|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
17.01.2015, 10:33 | #1 (permalink) |
Новичок
Регистрация: 14.01.2015
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу
Язык програмирования Паскаль АВС |
17.01.2015, 10:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие темы встречались на нашем форуме, посмотрите Помогите написать программу Помогите написать программу в Си++ Помогите написать программу С++ помогите написать программу Помогите написать программу Помогите написать программу С++ |
17.01.2015, 15:36 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Type Fund=Record Author:String[20]; Title:String[200]; end; Var f,f1:File of Fund; A:Fund; i:Byte; C:Char; Auth:String[20]; Tit:String[200]; N:Integer; b:Boolean; Begin Repeat Writeln; Writeln('Choose the operation:'); Writeln('1 - create new catalogue (all the previous data will be lost!!!)'); Writeln('2 - add new book'); Writeln('3 - show all books of the author'); Writeln('4 - find the author of the book'); Writeln('5 - exit'); Readln(i); Writeln; Case i of 1: begin Assign(f,'Catal'); Rewrite(f); Repeat Write('Author: '); Readln(A.Author); Write('Title: '); Readln(A.Title); Write(f,A); Write('Continue (Y/N)? '); Readln(C); Until (C='n') or (C='N'); Close(f); end; 2: begin Assign(f,'Catal'); Reset(f); Assign(f1,'xxxx'); Rewrite(f1); Repeat Read(f,A); Write(f1,A); Until EoF(f); Close(f); Write('Author: '); Readln(A.Author); Write('Title: '); Readln(A.Title); Write(f1,A); Close(f1); Reset(f1); Rewrite(f); Repeat Read(f1,A); Write(f,A); Until EoF(f1); Close(f1); Close(f); Erase(f1); end; 3: begin N:=0; Write('Author: '); Readln(Auth); Assign(f,'Catal'); Reset(f); Repeat Read(f,A); if A.Author=Auth then begin Inc(N); Writeln(A.Title); end; Until EoF(f); Close(f); Writeln(N,' books'); end; 4: begin b:=true; Write('Title: '); Readln(Tit); Assign(f,'Catal'); Reset(f); Repeat Read(f,A); if A.Title=Tit then begin b:=false; Writeln(A.Author); end; Until Not(b) or EoF(f); Close(f); If b then Writeln('No such book!'); end; end; Until i=5; End. |
|
18.01.2015, 20:41 | #3 (permalink) |
Новичок
Регистрация: 14.01.2015
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное спасибо!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|