М | Прочитай правила форума 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [ code=pas ] ... [ /code ]. В следующий раз тема с таким названием будет удалена. |
program start;
uses crt;
type
Func=Function(x:Real):Real;
Procedure PrintFunc(XPos:Byte;F:Func);
const
var
a,b,s:integer;
begin {PrintFunc}
s:=a*b;
begin
writeln ('Vvedite visoty');
readln (a);
writeln ('Vvedite dlinny storoni AC');
readln (b);
writeln ('ploshayd parallelogramma s=',s);
Readkey
End.
Здесь вообще непонятно, где закачивается функция и начинается программа - больно коряво написано (зачем пустой раздел констант, почему пропущена точка с запятой и т.д.). Если будет время - сейчас напишу. Если тебе по условию не нужны вещественные числа - заменишь real на longint.
++++++++++++++++++
Так, готово:
program test_1;
var h,side,result:real;
function area(side,h:real):real;
begin
area:=h*side;
end;
begin
writeln('Введите длину стороны и высоты, перпендикулярной ей:');
readln(side,h);
result:=area(side,h);
writeln('Площадь параллелограмма: ',result:5:2);
readln;
end.