Помогите пожалуйста нарисовать блок-схему - Паскаль, Turbo Pascal, PascalABC.NET

Анюта141 · 26.05.2009, 18:33

uses crt;
var x,y,z,p,c:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
p:=2*abs(x)+y;
c:=exp(ln(3)*(-p));
z:=p-sin(p)-c;
write('z=',z:0:4);
readln;
end.

Анюта141 · 26.05.2009, 18:34

uses crt;
var x,y:real;
begin
clrscr;
write('x='); readln(x);
if(x=0) then y:=0;
if(x<0) then y:=1-cos(2*x*2)/1+cos(2*x*2);
if(x>0) then y:=exp(-x);
write('y=',y:0:2);
readln;
end.

Так же и к этой

andreww · 26.05.2009, 19:57

скажи мыло куда скинуть

Анюта141 · 27.05.2009, 06:36

Lisenok141@yandex.ru

26.05.2009, 18:33	#1
Анюта141 Регистрация: 26.05.2009 Сообщений: 8	Помогите пожалуйста нарисовать блок-схему uses crt; var x,y,z,p,c:real; begin clrscr; write('x='); readln(x); write('y='); readln(y); p:=2abs(x)+y; c:=exp(ln(3)(-p)); z:=p-sin(p)-c; write('z=',z:0:4); readln; end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ребята помогите нарисовать блок схему алгоритма?	PashAs	Помощь студентам	1	23.03.2009 17:44
Помогите пожалуйста нарисовать блок-схему к задаче	Filosofijka	Паскаль, Turbo Pascal, PascalABC.NET	2	01.12.2008 10:23
Помогите нарисовать блок схему ио к такой задаче	gigaman	Паскаль, Turbo Pascal, PascalABC.NET	2	10.03.2008 15:12

26.05.2009, 18:34	#2
Анюта141 Регистрация: 26.05.2009 Сообщений: 8	uses crt; var x,y:real; begin clrscr; write('x='); readln(x); if(x=0) then y:=0; if(x<0) then y:=1-cos(2x2)/1+cos(2x2); if(x>0) then y:=exp(-x); write('y=',y:0:2); readln; end. Так же и к этой

26.05.2009, 19:57	#3
andreww Пользователь Регистрация: 26.05.2009 Сообщений: 20	скажи мыло куда скинуть

27.05.2009, 06:36	#4
Анюта141 Регистрация: 26.05.2009 Сообщений: 8	Lisenok141@yandex.ru