Может кто-нибудь пошагово обьяснить как сделать блок-схему к этой программе?

@LarisaD · Регистрация: 19.11.2018

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

Pascal

var s,b,t:string;
* * a:array [1..1000] of string;
* * i,q,w:integer;
begin
write(#13,'S= ');
readln(s);
q:=1;
b:='';
for i:=1 to length(s) do
* * begin
if (s[i]=' ') or(s[i]=' ') and (s[i+1]=' ')
* * then
* * * * begin
* * * * a[q]:=b ;
* * * * b:='';
* * * * inc(q);
* * * * end
* * else b:=b+s[i];
* * end;
a[q]:=b;
for i:=1 to q-1 do
* * for w:=i+1 to q do
* * * * if length(a[i])>length(a[w]) then
* * * * * *begin
* * * * * *t:=a[w];
* * * * * *a[w]:=a[i];
* * * * * *a[i]:=t;
* * * * * *end;
writeln;
for i:=1 to q do
* * write(a[i],' ');
readln;
end.

@Sun Serega · 26.12.2018, 01:03

Для этого есть специальные программы. Ищите их в интернете.

@JuriiMW · 26.12.2018, 06:46

Зачем какие-то программы?
Просто читаете программу построчно и рисуете блок-схему согласно действию, которое описано в строке программы согласно правил описанных в ГОСТе.

@ZX Spectrum-128 · 26.12.2018, 08:34

LarisaD, звездочки из кода уберите.

@Sun Serega 2229 / 1349 / 507 Регистрация: 07.04.2017 Сообщений: 4,632
	26.12.2018, 01:03	2
	Для этого есть специальные программы. Ищите их в интернете. 0

@JuriiMW 5067 / 2638 / 2349 Регистрация: 10.12.2014 Сообщений: 10,004
	26.12.2018, 06:46	3
	Зачем какие-то программы? Просто читаете программу построчно и рисуете блок-схему согласно действию, которое описано в строке программы согласно правил описанных в ГОСТе. 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	26.12.2018, 08:34	4
	LarisaD, звездочки из кода уберите. 0

Опции темы