Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Площадь параллелограмма

Автор: Игорек 30.06.2007 23:48

М
Прочитай правила форума

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [ code=pas ] ... [ /code ].

В следующий раз тема с таким названием будет удалена.



Нужно написать прогу которая с помощю ФУНКЦИИ mad.gif находила площадь параллелограмма. Вот че у меня получилось:

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.



Прикрепленные файлы
Прикрепленный файл  5.PAS ( 319 байт ) Кол-во скачиваний: 229

Автор: Serij 1.07.2007 14:50

Здесь вообще непонятно, где закачивается функция и начинается программа - больно коряво написано (зачем пустой раздел констант, почему пропущена точка с запятой и т.д.). Если будет время - сейчас напишу. Если тебе по условию не нужны вещественные числа - заменишь 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.