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

Write('maximum=',max);End.

Задание 28.

Написать функцию нахождения дискриминанта уравнения и определяющая количество корней (т.е. принимает значения: 0,1, 2).

Program Z3;

var a,b,c:integer;

Function D(a,b,c:integer):integer;

Begin

if Sqr(b)-4*a*c>0 then D:=2;

If Sqr(b)-4*a*c=0 then D:=1;

If Sqr(b)-4*a*c<0 then D:=0;

end;

Begin

Writeln('Vvedite a,b,c');

Readln(a,b,c);

Writeln('Yravnenie imeet' ,D(a,b,c),' kornei' );

Readln;

end.

Задание 29.

Написать функцию нахождения общего сопротивления при параллельном соединении двух проводников.

R_общ. =

Program Z4;

var R1,R2,rez:real;

function Sopr(R1,R2:real):real;

Begin

Sopr:=1/R1+1/R2;

End;

Begin

Writeln('Vvedite R1 i R2');

Readln(R1,R2);