Изучение языка программирования
Турбо Паскаль

На этом сайте можно: скачать среду программирвания Турбо Пакаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль! Рейтинг@Mail.ru Решенные задачи на языке Паскаль

Условие задачи прислали на e-mail.
Написать программу на Паскале вычисления функции у=sinx+Z!(факториал) для х=5 и z=7.

CONST
x=5;
z=7;
VAR
y:real;

FUNCTION fact(const z:integer):integer;   {функция возвращает факториал аргумента z}
var
i,S:integer;
BEGIN
S:=1;
for i:=1 to z do S:=S*i;
fact:=S;
END;

BEGIN
y:=sin(x)+fact(z);
writeln('y = ',y:5:2);
readln;
END.

Copyright © 2001«http://www.pascalstudy.narod.ru» & «http://www.gfifdos.narod.ru»
Павел, e-mail: gfifdos@yandex.ru