Форум Не про работу Железо и софт

помогите. pascal

T
На сайте с 22.02.2014
Offline
9
Tryk
584

есть полтора часа. отплачу вмр )

1) напишите программу, используя функцию , которая вычисляет площадь куба, если знаем чему равен край куба

---------- Добавлено 16.05.2014 в 13:59 ----------

2) напишите одну функцию и одну процедуру, которая возвращает площадь параллелограма с основой A и высоту H

_
На сайте с 24.03.2008
Offline
381
_SP_
#1

Нет уж, декан сказал "в армию", значит в армию...

Sortafreel
На сайте с 09.01.2009
Offline
98
Sortafreel
#2
Tryk:
есть полтора часа. отплачу вмр )

1) напишите программу, используя функцию , которая вычисляет площадь куба, если знаем чему равен край куба

---------- Добавлено 16.05.2014 в 13:59 ----------

2) напишите одну функцию и одну процедуру, которая возвращает площадь параллелограма с основой A и высоту H

"край" или "грань"?)

Если у вас нет цели в жизни, значит, вы работаете на того, у кого она есть.
Z
На сайте с 24.11.2008
Offline
183
zyubr
#3

1.

var palka:real;

function noarmy(palka:real):real; begin noarmy:=palka*palka*6; end;

begin readln(palka);writeln(noarmy(palka)); end.

2.

var palka,banka,kakovpalas:real;

function kovrik(palka,banka:real):real; begin kovrik:=palka*banka; end;

procedure Palas(palka,banka:real); begin kakovpalas:=palka*banka; end;

begin readln(palka,banka); writeln(kovrik(palka,banka)); Palas(palka,banka);writeln(kakovpalas); end.

не проверял, деццтво вспоминал :)

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий