делфи

@ASTANA PAVLODAR · Регистрация: 18.09.2013

Author24 — интернет-сервис помощи студентам

здравствуйте помогите с кодом !!! в делфи на форме
Даны два массива А и В одинакового размера N. Сформировать новый массив С того же размера, каждый элемент которого равен максимальному из элементов массивов А и В с тем же индексом.

@zuxa-zuxa · 18.09.2013, 19:07

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=1 to n do
   if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];
end;

@ASTANA PAVLODAR · 18.09.2013, 19:36 **[ТС]**

можно весь код ??? а то ругается то на переменные то на then

@zuxa-zuxa · 18.09.2013, 19:38

Delphi

1
2
3

var
a,b,c:array of integer;
i:integer;

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
// как то или заполняем массивы a,b или входим в процедуру с уже заполненными массивами
 
  for i:=1 to n do
   if a[i]>b[i] then c[i]:=a[i] else c[i]:=b[i];  
end;

@ASTANA PAVLODAR · 18.09.2013, 19:51 **[ТС]**

все равно ругается вот мой код

procedure TForm1.Button1Click(Sender: TObject);
var a:array [1..4,1..4]of integer;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
a[i,j]:=random (20) ;
stringgrid1.Cells [i,j]:=inttostr(a[i,j]);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var b:array [1..4,1..4]of integer;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
b[i,j]:=random (20) ;
stringgrid2.Cells [i,j]:=inttostr(b[i,j]);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
????????????????????????????????????
????????????????????????????????
?????????????????????????????????
???????????????????????????????
??????????????????????????????
??????????????????????????????
?????????????????????????????
??????????????????????????????
???????????????????????????????
????????????????????????????????
?????????????????????????????????
??????????????????????????????????
????????????????????????????????
?

@northener · 18.09.2013, 19:55

Если чо, то нумерация строк и столбцов в гриде начинается с 0, а не с 1.
А если ругается на вопросительные знаки, то я тоже ругался бы. Уж слишком их много.

@zuxa-zuxa · 18.09.2013, 19:57

Ну во первых у тебя так:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var b:array [1..4,1..4]of integer;
var i,j:integer;
begin

а нужно так:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var b:array [1..4,1..4]of integer;
i,j:integer;
begin

То есть 1 раз var написал и все.

Дальше:
Есть глобальные переменные и переменные в процедуре.
Если ты пишешь var после процедуры то есть так как у тебя, то эти переменные используются только в процедуре и нигде больше их не видно. А переменные которые видать всей программе это глобальные переменные и писать их тута:

Delphi

var
  Form1: TForm1;
  a:array [1..4,1..4] of integer;
  b:array [1..4,1..4] of integer;
  i,j:integer;
 
implementation
 
{$R *.dfm}

И того полный и рабочий код программы будет таков:

Delphi

var
  Form1: TForm1;
  a:array [1..4,1..4] of integer;
  b:array [1..4,1..4] of integer;
  i,j:integer;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do begin
a[i,j]:=random (20) ;
stringgrid1.Cells [i,j]:=inttostr(a[i,j]);
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do begin
b[i,j]:=random (20) ;
stringgrid2.Cells [i,j]:=inttostr(b[i,j]);
end;
end;
 
end.

А вообще мое мнение нужно больше литературы прочитать, прежде чем решать самостоятельно такие задачи.

@ASTANA PAVLODAR · 18.09.2013, 19:58 **[ТС]**

умный да

@zuxa-zuxa · 18.09.2013, 19:59

И да, я убрал по одной паре begin и end так как они там лишние.
То есть если по середине begin и end стоит всего 1 команда то begin и end можно убрать.

@northener · 18.09.2013, 20:03

Сообщение от zuxa-zuxa

То есть 1 раз var написал и все.

Хоть 100500 раз можно написать var. Плохо не будет.

@zuxa-zuxa · 18.09.2013, 20:04

Сообщение от northener

Хоть 100500 раз можно написать var. Плохо не будет.

А оно нужно?

@ASTANA PAVLODAR · 18.09.2013, 20:31 **[ТС]**

не прет

Добавлено через 2 минуты
это 2 массива нада ещё из них третий создать

Добавлено через 35 секунд
это 2 массива нада ещё из них третий создать

@northener · 18.09.2013, 20:51

Сообщение от ASTANA PAVLODAR

это 2 массива нада ещё из них третий создать

И в чем проблема?
Ответ #2 читал?

@zuxa-zuxa Мишка Косолапый :) 284 / 254 / 86 Регистрация: 15.02.2012 Сообщений: 1,511
	18.09.2013, 20:04	11
	Сообщение от northener Хоть 100500 раз можно написать var. Плохо не будет. А оно нужно? 0

@ASTANA PAVLODAR 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
	18.09.2013, 20:31 [ТС]	12
	не прет Добавлено через 2 минуты это 2 массива нада ещё из них третий создать Добавлено через 35 секунд это 2 массива нада ещё из них третий создать 0

@ASTANA PAVLODAR 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
		1
	делфи 18.09.2013, 19:05. Показов 739. Ответов 12 Метки нет (Все метки) здравствуйте помогите с кодом !!! в делфи на форме Даны два массива А и В одинакового размера N. Сформировать новый массив С того же размера, каждый элемент которого равен максимальному из элементов массивов А и В с тем же индексом. 0

@ASTANA PAVLODAR 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
	18.09.2013, 19:36 [ТС]	3
	можно весь код ??? а то ругается то на переменные то на then 0

@ASTANA PAVLODAR 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
	18.09.2013, 19:51 [ТС]	5
	все равно ругается вот мой код procedure TForm1.Button1Click(Sender: TObject); var a:array [1..4,1..4]of integer; var i,j:integer; begin randomize; for i:=1 to 4 do begin for j:=1 to 4 do begin a[i,j]:=random (20) ; stringgrid1.Cells [i,j]:=inttostr(a[i,j]); end; end; end; procedure TForm1.Button2Click(Sender: TObject); var b:array [1..4,1..4]of integer; var i,j:integer; begin randomize; for i:=1 to 4 do begin for j:=1 to 4 do begin b[i,j]:=random (20) ; stringgrid2.Cells [i,j]:=inttostr(b[i,j]); end; end; end; procedure TForm1.Button3Click(Sender: TObject); ???????????????????????????????????? ???????????????????????????????? ????????????????????????????????? ??????????????????????????????? ?????????????????????????????? ?????????????????????????????? ????????????????????????????? ?????????????????????????????? ??????????????????????????????? ???????????????????????????????? ????????????????????????????????? ?????????????????????????????????? ???????????????????????????????? ? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,255
	18.09.2013, 19:55	6
	Если чо, то нумерация строк и столбцов в гриде начинается с 0, а не с 1. А если ругается на вопросительные знаки, то я тоже ругался бы. Уж слишком их много. 0

@ASTANA PAVLODAR 0 / 0 / 0 Регистрация: 18.09.2013 Сообщений: 8
	18.09.2013, 19:58 [ТС]	8
	умный да 0

@zuxa-zuxa Мишка Косолапый :) 284 / 254 / 86 Регистрация: 15.02.2012 Сообщений: 1,511
	18.09.2013, 19:59	9
	И да, я убрал по одной паре begin и end так как они там лишние. То есть если по середине begin и end стоит всего 1 команда то begin и end можно убрать. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,255
	18.09.2013, 20:03	10
	Сообщение от zuxa-zuxa То есть 1 раз var написал и все. Хоть 100500 раз можно написать var. Плохо не будет. 1

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,255
	18.09.2013, 20:51	13
	Сообщение от ASTANA PAVLODAR это 2 массива нада ещё из них третий создать И в чем проблема? Ответ #2 читал? 0