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

Writeln('Soprotivlenie=',Sopr(R1,R2):2:2);

Readln;

End.

Задание 30.

Написать функцию, вычисляющую процент от числа. Параметры- число и процент.

Program Z5;

var N,P,rez:real;

function Procent (N,P:real):real;

Begin

Procent:=(N*P)/100;

End;

begin

Writeln('Vvedite chislo i procent');

Readln(N,P);

rez:=Procent(N,P);

Writeln('Procent=',Procent(N,P):2:2);

Readln;

End.

Вариант-9.

Задание 31.

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

Program z1;

Var o,a,b,c,S,r,p:real;

Function Ploschad(a,b,c:real):real;

var p,s:real;

Begin

p:=(a+b+c)/2;

S:=Sqrt(p*(p-a)*(p-b)*(p-c));

r:=(2*S)/(a+b+c);

ploschad:=Pi*Sqr(r);