помогите составить программу на Паскале СРОЧНО

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите составить программу на Паскале СРОЧНО

Дан Х. Если Х=0, то А=cos(x), если Х<0 - то В=1-sin(x). Для Х>0 - С=sin(x)/pi . Вычисление оформить как процедуру и как функцию.

№1 | Автор: Hachetlov_R | 2012-05-24, 13:09 | Репутация: [ + 0 ]

var
a:integer;
begin
read(a);
if a=0 then writeln(cos(a));
if a<0 then writeln(1-sin(a));
if a>0 then writeln(sin(a)/pi);
end.

Аналогично.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-05-24, 18:10 | Репутация: [ + 211 ]

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите составить программу на Паскале СРОЧНО

Страница 1 из 1
1

прикладная математика