23.04.2009, 23:33
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
y:=sqrt(2*(1-cos(x)*cos(x)));
write('y='+floattostr(y));
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
if x>0 then
begin
y:=2*sqrt(x);
end
else
begin
y:=cos(x)*(5-3*x);
end;
write('y='+floattostr(y)+#10#13);
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|