построить блок-схему

@annabelle · Регистрация: 14.03.2010

Студворк — интернет-сервис помощи студентам

Помогите пжл построить блок-схемы

Pascal

var
f,x: real;
begin
ReadLn(x);
if x < 3 then
f := 4;
else
f := 4;
WriteLn(f);
ReadLn;
end.

Pascal

uses crt;
label m1;
var y,x,a,b,h:real;
begin
clrscr;
writeln('vvedit a,b,h:');
readln(a,b,h);
x:=a;
m1: y:=3+sin(x)/cos(x);
writeln('y=',y);
x:=x+h;
if x<=b then goto m1;
repeat until keypressed
end.

@annabelle · 25.03.2010, 19:12 **[ТС]**

Помогите плизззз, завтра экзамен!!!

@STRATEG · 25.03.2010, 19:15

Щас нарисую подожди ))

@STRATEG · 25.03.2010, 19:43

Вот держи Блок-схемы.rar если что не так пиши

@annabelle 0 / 0 / 0 Регистрация: 14.03.2010 Сообщений: 9
	25.03.2010, 19:12 [ТС]	2
	Помогите плизззз, завтра экзамен!!! 0

@STRATEG 1173 / 479 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	25.03.2010, 19:15	3
	Щас нарисую подожди )) 0

@STRATEG 1173 / 479 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	25.03.2010, 19:43	4
	Вот держи Блок-схемы.rar если что не так пиши 1

Опции темы