Блок-схема по коду программы

@Ишка · Регистрация: 16.04.2010

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

Pascal

Uses CRT; 
Procedure Print(S: String); 
(Выводит сообщение S и ждет инициативы пользователя}  
begin 
WriteLn(S); {Выводим сообщение} 
WriteLn('Нажмите клавишу Enter...'); 
ReadLn {Ждем нажатия клавиши Enter}  
end; {Print} 
var 
LM: Word;{Начальный режим экрана}  
begin 
LM := LastMode; {Запоминаем начальный режим работы дисплея} 
TextMode(Со40); 
Print('Режим 40x25'); 
TextMode(CoSO) ; 
Print('Режим 80x25'); 
TextMode(Co40+Font8x8); 
Print('Режим Co40+Font8x8') ; 
TextMode(Co80+Font8x8); 
Print('Режим Co80+Font8x8');  
{Восстанавливаем исходный режим работы:}  
TextMode(LM)  
end.

@Hidalgo08 · 03.06.2010, 17:20

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

@WolfCF · 03.06.2010, 17:30

Hidalgo08, ну попробуйте её найти

@Ишка · 03.06.2010, 20:43 **[ТС]**

спасибо, уже нашел!!!

@Hidalgo08 Идеи становятся силой... 121 / 121 / 64 Регистрация: 08.12.2009 Сообщений: 445
	03.06.2010, 17:20	2
	посмотри на сайте выкладывали программу для разработки блок-схем, или уже самостоятельно, будет правильней и наглядней 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	03.06.2010, 17:30	3
	Hidalgo08, ну попробуйте её найти 0

@Ишка 12 / 12 / 0 Регистрация: 16.04.2010 Сообщений: 156
	03.06.2010, 20:43 [ТС]	4
	спасибо, уже нашел!!! 0