Составление Блок-схемы

[prs58]

Здравствуйте. Вот данная задача:


Условие :
Проверьте, можно ли построить параллелограмм из отрезков с длинами x, y, v, w.

Текст программы в Паскале:

uses crt;
var x, y, v, w:real;
begin
read(x, y, v, w);
if (x=w) and (y=v) then write('можно') else
if (x=v) and (w=y) then write('можно') else
if (x=y) and (w=v) then write('можно') else write('нельзя');
end.

Перечень текстовых заданий:
1 вариант: X=4, y=5, w=4, v=5; 2 вариант: х=4, y=6, w=5, v=7
Результаты, полученные на машине:
1 вариант: можно; 2 вариант: нельзя.

Как будет выглядеть Блок-схема?Извините,что такое спрашиваю,потихоньку хочу все вспомнить.
Заранее спасибо.Я все думал ,думал и остаюсь в сомнениях.

Я думаю вот так: Начало--->Данные---->Условие Если нельзя то возвращаемся к данным, если можно то ----> Процесс----> Конец

Правильно?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[prs58]

Что скажете?

[_kilik_]

Программа для создания блок-схем-FCEditor

http://asoi-gomel.com/news/2010-01-30-2

[prs58]

Смысл от не?Она не составляет блок-схему мне.

[prs58]

никто не подскажет как блок-схема тут будет выглядеть?

[Serge_Bliznykov]

никто не подскажет как блок-схема тут будет выглядеть?

я тупо взял FCEDITOR (который Вам уже предлагали выше), засунул в него текст Вашей программы и получил такую блок-схему:

[prs58]

Можете прислать скрин как вы там вставляли код программы?А то я вставлял у меня ничего не выходило.Заранее спасибо.

[prs58]

Эта программа,у меня не работает, или просто я не умею пользоваться, какая здесь будет блок схема?

uses crt;
var a, b, c, s, x: real;
begin
write('a='); read(a);
write('b='); read(b);
write('x='); read(x);
s:=(1/2)*a*b*sin(pi/x);
c:=sqrt(a*a+b*b-2*a*b*cos(pi/x));
writeln('c=', c:2:2);
writeln('s=', s:2:2);
end.

И здесь:

uses crt;
var x, y, z, a, b: real;
begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=(sqrt(abs(x-1))-sqrt(abs(y)))/(1+2*x*x+cos(x));
b:=x*x*(arctan(z)+y);
writeln('a=', a:4:2);
writeln('b=', b:4:2);
end.

Заранее большое спасибо.

[Rififi]

Serge_Bliznykov

я тупо взял FCEDITOR (который Вам уже предлагали выше), засунул в него текст Вашей программы и получил такую блок-схему:

аффтар наверное не сумел его взломать...

[prs58]

Сообщение от Rififi

Serge_Bliznykov

я тупо взял FCEDITOR (который Вам уже предлагали выше), засунул в него текст Вашей программы и получил такую блок-схему:

аффтар наверное не сумел его взломать...

Честно скажу, когда я программу переключаю на русский язык то там какие-то иероглифы. С программой первый раз работаю.Вообще все позабыл, эти блок-схемы,программирование.Хочу все вспомнить.Потихоньку внедриться в это все.