| Marina_Ostrioglo | Дата: Понедельник, 25.04.2016, 22:38 | Сообщение # 1 |
 Генерал-лейтенант
Группа: Админ
Сообщений: 583
Статус: Offline
| по формуле Герона
program u1;
var a,b,c: integer;
function s(a,b,c : integer):
real;
var p: real;
begin
p:=(a+b+c)/2;
s:=sqrt((p-a)(p-b)(p-c));
end;
begin
writeln (‘вычислить
стороны треугольника’);
Readln(a,b,c);
writeln(s(a,b,c));
End.
programp4;
var SR, a,b,c,d:real;
function sr(a,b,c,d:real):real;
begin
sr:=a+b+c+d;
end;
begin
writeln(‘введите 4 целых числе’);
readln(a,b,c,d);
writeln(‘summa=Sr(a,b,c,d’);
Sr:=(sr(a,b,c,d)\4;
writeln(sr);
end.
|
| |
| |
|
