23.04.2009, 23:35
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами:
9456866
Репутация:
138
|
|
Сообщение от fker
1.
y:=sqrt(1-sqr(cos(x))); //точно не помню как вычисл cos^2 x
2.
Код:
Program xya2;
uses crt;
var x,y:real;
begin
writeln('BBeguTe X');
readln(x);
if (x<=0) then
y:=cos(x)*(5-3*x)
else
y:=2*sqrt(x);
writeln('Y = ',y);
readln();
end.
Неужели нет интереса научится хотябы немного программировать?=\ Спасибо! Ну, другие интересы)
|
|
|