ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

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

№1 Вычислить все значения функции ф=корень из x квадрат + y квадратесли х и у это значения элементов массива х(n) и у(m)

Код:

procedure dothis;
var x : array[1..5] of integer = (1,2,3,4,5,6);
      y : array[1..3] of integer = (1,2,3);
      i,j : integer;
      f : real;
begin
     for i:=0 to 4 do
          for j:=0 to 2 do begin
                f := sqrt( x[i]*x[i] + y[j] * y[j] );
                writeln(x[i],',',y[j],' = ',f);
         end;
end;