Помощь - Поиск - Пользователи - Календарь
Полная версия: Площадь параллелограмма
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Игорек
М
Прочитай правила форума

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