Одномерный массив

[m()estro]

задание:дано три последовательности a, b, c.. сформировать две последовательности x, y по следующему правилу:

x[i]=max(a[i],b[i],d)/2;
y[i]:=max(b[i],c[i],d)/2;

i=1,2..n; d-любое число.

исправте код где нужно

var
a: array [1..10] of integer;
b: array [1..10] of integer;
c: array [1..10] of integer;
i,n,d:integer;
x,y:string;
begin
randomize;
i:=strtoint(edit1.text);
n:=strtoint(edit2.text);
a[i]:=random(100);
b[i]:=random(100);
c[i]:=random(100);
d:=6;
for i:=1 to n do
x[i]:=max(a[i],b[i],d)/2;
y[i]:=max(b[i],c[i],d)/2;
label1.caption:=floattostr(y);
label2.caption:=floattostr(x);
end;

end.

[M9ICHIK]

Паскаль уже плохо помню, приблизительно так:

var
a: array of integer;
b: array of integer;
c: array of integer;
i,n,d: integer;
x,y: array of real;
begin
randomize;
n:=strtoint(edit2.text);
a:=new integer[n];
b:=new integer[n];
c:=new integer[n];
x:=new integer[n];
y:=new integer[n];
for i:=1 to n do
begin
a[i]:=random(100);
b[i]:=random(100);
c[i]:=random(100);
end;
d:=random(10);
for i:=1 to n do
begin
x[i]:=max(a[i],b[i],d)/2;
y[i]:=max(b[i],c[i],d)/2;
end;

end.

[Serge_Bliznykov]

Паскаль уже плохо помню, приблизительно так:

если очень плохо помните, может не стоит такое писать?! ;(

Это не Паскаль. И даже не Delphi!!
я уже не говорю про грубые ошибки, когда в цикле забыты операторные скобки begin / end...

[M9ICHIK]

Serge_Bliznykov может Вы напишите?!
Нет, так иди гуляй.

[BDA]

M9ICHIK, не нужно грубить.

Осталось реализовать функцию max от 2 параметров, которая возвращает наибольшее из 2 чисел.

var
  a, b, c, n, d, i: integer;
  sa, sb, sc, sx, sy: string;
begin
  randomize;
  n := strtoint(edit1.text);
  d := strtoint(edit2.text);
  sa := '';
  sb := '';
  sc := '';
  sx := '';
  sy := '';
  for i := 1 to n do
  begin
    a := random(100);
    b := random(100);
    c := random(100);
    sa := sa + ' ' + inttostr(a);
    sb := sb + ' ' + inttostr(b);
    sc := sc + ' ' + inttostr(c);
    sx := sx + ' ' + floattostr(max(a, max(b, d)) / 2);
    sy := sy + ' ' + floattostr(max(b, max(c, d)) / 2);
  end;
  showmessage('a: ' + sa);
  showmessage('b: ' + sb);
  showmessage('c: ' + sc);
  showmessage('x: ' + sx);
  showmessage('y: ' + sy);
end;

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

[m()estro]

масивы как раз и нужны по требованию преподавателя

[BDA]

Ну ок

var
  a, b, c: array of integer;
  n, d, i: integer;
  sa, sb, sc, sx, sy: string;
begin
  randomize;
  n := strtoint(edit1.text);
  d := strtoint(edit2.text);
  sa := '';
  sb := '';
  sc := '';
  sx := '';
  sy := '';
  setlength(a, n);
  setlength(b, n);
  setlength(c, n);
  for i := 1 to n do
  begin
    a[i] := random(100);
    b[i] := random(100);
    c[i] := random(100);
    sa := sa + ' ' + inttostr(a[i]);
    sb := sb + ' ' + inttostr(b[i]);
    sc := sc + ' ' + inttostr(c[i]);
    sx := sx + ' ' + floattostr(max(a[i], max(b[i], d)) / 2);
    sy := sy + ' ' + floattostr(max(b[i], max(c[i], d)) / 2);
  end;
  showmessage('a: ' + sa);
  showmessage('b: ' + sb);
  showmessage('c: ' + sc);
  showmessage('x: ' + sx);
  showmessage('y: ' + sy);
end;