Реферат: Одномерные массивы. Организация ввода и вывода данных

End;

Begin

Dlina;

Readln;

End.

б) с параметром

Program p2;

Procedure dlina(x1,x2,y1,y2:integer);

Var d:real;

begin

d:=Sqrt(Sqr(x1-x2)+sqr(y1-y2));

Writeln(dlina=',d:2:2);

end;

begin

Writeln('vvedite koordinati');

Write('x1='); Readln(x1);

Write('x2='); Readln(x2);

Write('y1='); readln(y1);

write('y2='); Readln(y2);

Dlina(x1,x2,y1,y2);

Readln;

End.

Вариант-9

Задание 37.

Найдите x из пропорции .

Programp1;

Var a,b,c:real;

Procedure proporciya(a,b,c:real);

Var x:real;

Begin