Как составить блок-схему по программе???? - Помощь студентам

Tomny · 04.03.2011, 18:14

Код:

program first;
uses crt;
var
 k,f,n:real;
 j,i:integer;
begin
clrscr;
 repeat
 readln(n);
 until (n>0) and (n<>0);
 k:=1;
 i:=1;
 write(i);
   repeat
     i:=i+1;
     f:=0;
     for j:=i-1 downto 2 do
       if i mod j = 0 then f:=1;
     if f=0 then
                begin write(' ',i); k:=k+1; end;
   until k=n;
 end.

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

Serge_Bliznykov · 04.03.2011, 19:45

Что значит - "Как составить.." ?
Вы не знаете, что это такое? Или в чём её чертить?!
Вот, например, способ - платите деньги и Вам её чертят!

А ещё можно взять листик. Вверху нарисовать овал и написать там "Начало" потом стрелочка вниз, в прямоугольничек с двойными боковыми границами (это вызов подпрограммы), в прямоугольничке написать "ClrScr - очистка экрана" от него стрелочка вниз и т.д.

А вообще, есть программы для автоматического составления блок-схемы. Например, поищите fceditor

Vanta11a · 05.03.2011, 08:34

ГОСТ 19.701-90 в помощь.

Stilet · 05.03.2011, 08:51

...И FCEditor тоже

Tomny · 05.03.2011, 20:54

фишка в том что по этой проге кто-бы не состовлял блок-схему говорят не правильно

Serge_Bliznykov · 05.03.2011, 22:38

фишка в том, что мы не видели ни тех кто состовлял блок-схему, ни самой блок схемы...

И ничего не можем сказать про тех, кто говорит, что "не правильно"...

04.03.2011, 18:14	#1
Tomny Регистрация: 04.03.2011 Сообщений: 3	Как составить блок-схему по программе???? Код: `program first; uses crt; var k,f,n:real; j,i:integer; begin clrscr; repeat readln(n); until (n>0) and (n<>0); k:=1; i:=1; write(i); repeat i:=i+1; f:=0; for j:=i-1 downto 2 do if i mod j = 0 then f:=1; if f=0 then begin write(' ',i); k:=k+1; end; until k=n; end.` ________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 04.03.2011 в 19:41.

05.03.2011, 08:34	#3
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	ГОСТ 19.701-90 в помощь. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

05.03.2011, 08:51	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	...И FCEditor тоже I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как составить блок схему в Си	alex(21)	Помощь студентам	0	09.11.2010 20:17
Составить блок-схему	Andi1	Помощь студентам	1	06.10.2010 00:06
Составить блок-схему	Any13	Помощь студентам	0	17.05.2010 17:04
Составить блок-схему по массивам по готовой программе..	maru	Помощь студентам	1	12.03.2010 01:28
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему!	...Оленька...	Паскаль, Turbo Pascal, PascalABC.NET	2	20.01.2009 09:37

04.03.2011, 19:45	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Что значит - "Как составить.." ? Вы не знаете, что это такое? Или в чём её чертить?! Вот, например, способ - платите деньги и Вам её чертят! А ещё можно взять листик. Вверху нарисовать овал и написать там "Начало" потом стрелочка вниз, в прямоугольничек с двойными боковыми границами (это вызов подпрограммы), в прямоугольничке написать "ClrScr - очистка экрана" от него стрелочка вниз и т.д. А вообще, есть программы для автоматического составления блок-схемы. Например, поищите fceditor

05.03.2011, 20:54	#5
Tomny Регистрация: 04.03.2011 Сообщений: 3	фишка в том что по этой проге кто-бы не состовлял блок-схему говорят не правильно

05.03.2011, 22:38	#6
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	фишка в том, что мы не видели ни тех кто состовлял блок-схему, ни самой блок схемы... И ничего не можем сказать про тех, кто говорит, что "не правильно"...