4 короля:
в рядах 1,3,5 - нет
в рядах 2,4 - в столбиках2,4
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
1. Пользователь с помощью него быстро открывает файлы.
2. •Не могу ответить
•Опять не мону
•То, через что манипулируют(изменяют, управляют) файлами.
Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.
varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin //начинаем цикл
if f[i]<0 then begin //проверяем первое условик
if schet=0 then begin
inc(schet);
for i2:=0 to i do
f[i2]:=0;
end else
if schet=1 then //второе условие
for i2:=i to high(f) do
f[i2]:=0; end;<span>end;
//end for</span>