|
помогите составить программу на Паскале СРОЧНО
|
|
|
Дан Х. Если Х=0, то А=cos(x), если Х<0 - то В=1-sin(x). Для Х>0 - С=sin(x)/pi . Вычисление оформить как процедуру и как функцию.
|
|
|
|
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
|
|
|
|
