Новые сообщения · Правила  
  • Страница 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
Поиск: