[ДевочкаBlond]

Здравствуйте... Ребята мне очень нужна ваша помощь. Так как я не програмистка я умоляю вас помогите сделать 4 задачи на делфи... Все говорят что они очень лёгкие. Может вы поможите мне?

Без имени-2.zip

[Black Raider]

4-e

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure TForm1.Button1Click(Sender: TObject); var arr:array[1..10,1..10] of integer;     i,j,kol:integer;     st:string; begin   for j:=1 to 10 do     for i:=1 to 10 do     begin       if (i<=5) then begin         if (j<=5) then arr[j,i]:=0         else arr[j,i]:=i;       end       else begin         if (j<=5) then arr[j,i]:=i+(j-1)         else arr[j,i]:=0;       end;     end;   kol:=0;   for j:=1 to 10 do     for i:=1 to 10 do       if arr[j,i]>0 then kol:=kol+1;   memo1.Clear;   for i:=1 to 10 do   begin     st:='';     for j:=1 to 10 do     begin       st:=st+inttostr(arr[i,j])+'  |  ';     end;     memo1.Lines.Add(st);   end;   showmessage('Ненулевых-'+inttostr(kol)); end;

[ДевочкаBlond]

Спасибо Большое)))) Не ужели есть добрые люди!!!

[Black Raider]

5-е в консольном приложении?

[ДевочкаBlond]

Ну не знаю наверно. в делфи делается.

[ДевочкаBlond]

А в 4том там надо в Stringrid выводить.

[Black Raider]

оно и понятно что в делфи.
ладно. дома сделаю вам 5-е.
часа через 3 буду дома и сделаю.

[ДевочкаBlond]

ОЙ))) Спасибки Большие))))

[ДевочкаBlond]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button1Click(Sender: TObject); var q:array [1..10,1..10] of integer; i,j,p:integer; begin p:=0; for i:=1 to 10 do begin for j:=1 to 10 do begin if i > j then q[i,j]:=0;   if j>=2 then q[1,j]:=j+1; if (j>=3) and (i=2) then q[i,j]:=j+2; if (j>=4) and (i=3) then q[i,j]:=j+3; if (j>=5) and (i=4) then q[i,j]:=j+4; if (i>=2) and (j=10) then q[i,j]:=0; if (i>=4) and (j=9) then q[i,j]:=0; if (i>=5) and (j<=8) then q[i,j]:=0; if 11-i=j then q[i,j]:=i; if i=j then q[i,j]:=i; if i =10 then q[i,j]:= j+i; if (q[i,j]>-1) and (q[i,j]< 1) then p:=p+1; StringGrid1.Cells[j-1,i-1]:=inttostr(q[i,j]); end;  end; Edit1.Text:=inttostr(p); end; end.

У друга чётвёртое так выглядит.

[Black Raider]

Код:

1 2 3 4 5 6 7 8 9 10

memo1.Clear;   for i:=1 to 10 do   begin     st:='';     for j:=1 to 10 do     begin       st:=st+inttostr(arr[i,j])+'  |  ';     end;     memo1.Lines.Add(st);   end;

этот блок можете убрать и вставить заполнение стринггрида.

[Black Raider]

Сообщение от ДевочкаBlond

Код:

У друга чётвёртое так выглядит.

хмм... не буду настаивать... но помоему заполнение у него как то уж замудренно... этак можно просто каждый элемент массива проставить в нужное значение и все.

[ДевочкаBlond]

Сообщение от Black Raider

Код:

этот блок можете убрать и вставить заполнение стринггрида.

Сейчас попробую))

[ДевочкаBlond]

Получилось))) Уррааа!!

[Black Raider]

5-я задача
Стринггрид на форме в него заполняется массив

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.BitBtn1Click(Sender: TObject); var a:array[1..5,1..8] of integer;     b:array[1..5] of real; i,j,sr:integer; begin //Заполняем массив из стринггрида   for j:=1 to 5 do     for i:=1 to 8 do     begin       a[j,i]:=strtoint(StringGrid1.Cells[i,j]);     end;   //Формируем массив B со среднем значением   for j:=1 to 5 do   begin     sr:=0;     for i:=1 to 8 do       sr:=sr+a[j,i];     b[j]:=sr/8;   end;   //Заменяем четные элементы на 0   for i:=1 to 5 do     if ((i mod 2)=0) then b[i]:=0; end;