|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2010, 20:49 | #1 |
Регистрация: 24.04.2010
Сообщений: 8
|
записи
Помогите пожалуйста,написать программу, формирующую архив данных по книгам и журналам(записи с вариантами). Общие (для книг и журналов), данные включают: фамилию автора, название книги или статьи в журнале, год издания. Вариантная часть для книг : город, где издана книга, издательство. Вариантная часть для журналов : название журнала, в котором размещена статья, номер журнала. Сначала необходимо создать блок программы который будет формировать архив, а второй блок программы должен осуществлять поиск книг,изданных автором, фамилию которого указывает пользователь.
|
02.06.2010, 20:33 | #2 |
Регистрация: 24.04.2010
Сообщений: 8
|
сам написал вот код:
program zap; type literature=record fam:string[20]; namebook:string[20]; namestatya:string[20]; god:integer; case k:integer of 1gorod, made:string[20]); 2namemagazine:string[20];nombmag:integer); end; var avtor:array [1..100] of literature; i,n,k,s:integer; familiya:string; begin writeln('vvedite kol-vo knig arhiva'); readln(n); writeln('kniga(1) ili zhyrnal(2)?'); readln(k); for i:=1 to n do begin case k of 1: begin writeln('vvedite familiu avtora'); readln(avtor[i].fam); writeln('vvedite nazvanie knigi'); readln(avtor[i].namebook); writeln('vvedite god izdaniya'); readln(avtor[i].god); writeln('vvedite gorod'); readln(avtor[i].gorod); writeln('vvedite izdatelstvo'); readln(avtor[i].made); end; 2: begin writeln('vvedite familiu avtora'); readln(avtor[i].fam); writeln('vvedite nazvanie statyi'); readln(avtor[i].namestatya); writeln('vvedite god izdaniya'); readln(avtor[i].god); writeln('vvedite nazvanie zhyrnala'); readln(avtor[i].namemagazine); writeln('vvedite nomer zhyrnala'); readln(avtor[i].nombmag); end; end; end; writeln('poisk'); writeln('vvedite familiu avtora'); readln(familiya); for i:=1 to n do if avtor[i].fam=familiya then begin if k=1 then writeln(avtor[i].fam,' ',avtor[i].namebook,' ',avtor[i].god,' ',avtor[i].gorod,' ',avtor[i].made); if k=2 then writeln(avtor[i].fam,' ',avtor[i].namestatya,' ',avtor[i].god,' ',avtor[i].namemagazine,' ',avtor[i].nombmag); end else writeln('dannyh net'); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
записи((( | diller89 | Помощь студентам | 2 | 25.04.2010 18:32 |
записи | Cepgeich | Помощь студентам | 2 | 23.04.2010 11:03 |
Записи | Дмитрий230192 | Фриланс | 8 | 03.03.2010 00:59 |
записи | paladinn | Помощь студентам | 1 | 14.01.2009 20:23 |
Записи | zzzzz | Помощь студентам | 1 | 25.05.2007 16:26 |