М

Прочитай правила форума 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.