Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.01.2015, 10:33   #1 (permalink)
winowl
Новичок
 
Регистрация: 14.01.2015
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите написать программу

Заданный файл, который состоит из информации о фонде книг в библиотеке. Создать информационную программу, которая выдает информацию о книгах по запросам: автор книги по ее названию, количество книг указанного автора, название книг указанного автора. Информация постоянно обновляется.

Язык програмирования Паскаль АВС
winowl вне форума   Ответить с цитированием

Старый 17.01.2015, 10:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожие темы встречались на нашем форуме, посмотрите

Помогите написать программу
Помогите написать программу в Си++
Помогите написать программу
С++ помогите написать программу
Помогите написать программу
Помогите написать программу С++

Старый 17.01.2015, 15:36   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от winowl Посмотреть сообщение
Заданный файл, который состоит из информации о фонде книг в библиотеке. Создать информационную программу, которая выдает информацию о книгах по запросам: автор книги по ее названию, количество книг указанного автора, название книг указанного автора. Информация постоянно обновляется.

Язык програмирования Паскаль АВС
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 18.01.2015, 20:41   #3 (permalink)
winowl
Новичок
 
Регистрация: 14.01.2015
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Огромное спасибо!
winowl вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.