|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2013, 08:26 | #1 |
Новичок
Джуниор
Регистрация: 17.03.2013
Сообщений: 15
|
построение блок-схемы
Помогите пожалуйста составить блок-схему
program a; uses crt; procedure soz; var F: text; s: string[100]; begin Assign(F, 'C:\file.txt'); Rewrite(F); Writeln('Zapolnite dokument'); Writeln('Nazvanie plozhad zhiteli god osnovaniya'); repeat Readln(s); Writeln(F,s); until s=' '; Close(F); end; procedure log; var F: file of char; c:char; begin Assign(F, 'C:\file.txt'); Reset(F); Writeln('Nazvanie plozhad zhiteli god osnovaniya'); While not eof(F) do begin read(F,c); Write(c); end; Close(F); end; procedure poisk; var f: text; str,s:string; begin Assign(F, 'C:\file.txt'); Reset(F); Writeln('slovo dlya poiska'); Readln(s); Writeln('Nazvanie plozhad zhiteli god osnovaniya'); while not eof(F) do begin Readln(F, str); if pos(s, str)>0 then Writeln(str); end; Close(F); end; procedure dobov; var F: text; s: string[100]; begin Assign(F, 'C:\file.txt'); Append(F); Writeln('Dobavte zapis'); Writeln('Nazvanie plozhad zhiteli god osnovaniya'); repeat Readln(s); Writeln(F,s); until s=' '; Close(F); end; var m:Byte; q:integer; begin ClrScr; q:=0; repeat Writeln('---------------------------------------------'); Writeln('1-sozdanie'); Writeln('2-zagrazka'); Writeln('3-poisk'); Writeln('4-dobovlenie'); Writeln('5-vyx'); Readln(m); Writeln('---------------------------------------------'); case m of 1:soz; 2:log; 3: poisk; 4obov; end; until m=5; end. |
09.04.2013, 15:20 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
FCEditor Вам в помощь.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построение блок-схемы в Паскале | Андрей77777 | Помощь студентам | 0 | 31.12.2012 00:48 |
Построение блок-схемы | Smokin_rockin | Помощь студентам | 0 | 15.11.2012 00:13 |
Построение Блок-Схемы | Bitte | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 18.12.2011 13:45 |
БЛОК СХЕМЫ-ПОСТРОЕНИЕ | rdbykjhl | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 11.02.2011 07:33 |