Создание базы данных

@Turbo-mosk · Регистрация: 13.02.2009

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

Для отладки программы необходимо предварительно создать на магнитном диске соответствующий тестовый набор исходных данных для выполнения задачи (файл из 10-20 записей). Все перечисленные сведения, их порядок и количество должны точно соответствовать заданию. Организовать диалог, чтобы у пользователя была возможность ввода нескольких запросов, которые всякий раз необходимо проверять на корректность. Программа должна выводить сообщение и в том случае, если по указанному запросу в исходном файле информация отсутствует.

Исходный набор данных содержит сведения о книгах. Каждая запись набора представляет собой: фамилию и инициалы автора (соавторов через запятую), название книги, название издательства, год издания, тираж книги. Предусмотреть в исходных данных соавторство некоторых авторов, переиздание или издание некоторых книг другими издательствами различными тиражами в разные годы ХХ и ХХI веков.

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

Не получается сформировать файл с данными, вот что смог написать:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program mybook;
        type
        base=record
        fio:string[15];
        nazvanie:string[20];
        izdat:string[10];
        god,tirag:integer;
        end;
   Var
   knigiG:base;
   rab: file of base;
Begin
Assign(rab,'C:\TP\knigi.txt');
Rewrite(rab);
     While not eof do begin
     Writeln('Vvedite fio avtora:'); Readln(fio); Writeln(knigiG,fio);
     Writeln('Vvedite nazvanie knigi:'); Readln(nazvanie); Writeln(knigiG,nazvanie);
     Writeln('Vvedite izdatelstvo:'); Readln(izdat); Writeln(knigiG,izdat);
     Writeln('Vvedite god izdania:'); Readln(god); Writeln(knigiG,god);
     Writeln('Vvedite tirag:'); Readln(tirag); Writeln(knigiG,tirag);
     end;
     close(rab);
End.

@Sergei · 09.03.2009, 16:39

Друг если хочешь записать данные в файл то надо туда и записывать

Pascal
1
2
3
4
5
6
7
8
9
While not eof do begin
     Writeln('Vvedite fio avtora:'); Readln(fio); Writeln(knigiG,fio);
     Writeln('Vvedite nazvanie knigi:'); Readln(nazvanie); Writeln(knigiG,nazvanie);
     Writeln('Vvedite izdatelstvo:'); Readln(izdat); Writeln(knigiG,izdat);
     Writeln('Vvedite god izdania:'); Readln(god); Writeln(knigiG,god);
     Writeln('Vvedite tirag:'); Readln(tirag); Writeln(knigiG,tirag);
     write(rab,knigiG);{zapisi v fail}
     end;
     close(rab)

@Turbo-mosk · 09.03.2009, 21:28 **[ТС]**

Базу я создаю так:
Program mybook;
type
base = record
fio: string[15];
nazvanie: string[20];
izdat: string[10];
god, tirag:integer;
end;
Var
knigiG: base;
rab: Text;
i: Integer;
Begin
Assign(rab,'C:\knigi.txt');
Rewrite(rab);
for i := 1 to 10 do
begin
Write('Vvedite fio avtora:');
Readln(knigiG.fio);
Writeln(rab,knigiG.fio);
Write('Vvedite nazvanie knigi:');
Readln(knigiG.nazvanie);
Writeln(rab,knigiG.nazvanie);
Write('Vvedite izdatelstvo:');
Readln(knigiG.izdat);
Writeln(rab,knigiG.izdat);
Write('Vvedite god izdania:');
Readln(knigiG.god);
Writeln(rab,knigiG.god);
Write('Vvedite tirag:');
Readln(knigiG.tirag);
Writeln(rab,knigiG.tirag);
end;
close(rab);
End.

Помогите решить основную задачу: Требуется получить список книг указанного издательства, изданных в заданный период времени.

Добавлено через 3 часа 32 минуты 20 секунд

Вот что получилось:

program Project1;
type
base = record
fio: string[25];
nazvanie: string[20];
izdat: string[30];
god, tirag: integer;
end;
var
knigiG: base;
rab: Text;
MaxGod,MinGod: integer;
izd: string[30];
begin
Assign(rab,'C:\knigi.txt');
Reset(rab);
Write('Vvedite izdatelstvo: '); ReadLn(izd);
Write('Vvedite Max god: '); ReadLn(MaxGod);
Write('Vvedite Min god: '); ReadLn(MinGod);
while not EOF(rab) do
begin
ReadLn(rab,knigiG.fio);
ReadLn(rab,knigiG.nazvanie);
ReadLn(rab,knigiG.izdat);
ReadLn(rab,knigiG.god);
ReadLn(rab,knigiG.tirag);
if (knigiG.izdat = izd) and (knigiG.god < MaxGod) and (knigiG.god > MinGod) then
Begin
Writeln(' ');
WriteLn('FIO avtora: ',knigiG.fio);
Writeln('Naznanie: ',knigiG.nazvanie);
Writeln('Izdatelstvo: ',knigiG.izdat);
Writeln('God izdania: ',knigiG.god);
Writeln('Tirag: ',knigiG.tirag);
end;
end;
end.

Что можете сказать?

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Turbo-mosk 0 / 0 / 0 Регистрация: 13.02.2009 Сообщений: 10
	09.03.2009, 21:28 [ТС]
	Базу я создаю так: Program mybook; type base = record fio: string[15]; nazvanie: string[20]; izdat: string[10]; god, tirag:integer; end; Var knigiG: base; rab: Text; i: Integer; Begin Assign(rab,'C:\knigi.txt'); Rewrite(rab); for i := 1 to 10 do begin Write('Vvedite fio avtora:'); Readln(knigiG.fio); Writeln(rab,knigiG.fio); Write('Vvedite nazvanie knigi:'); Readln(knigiG.nazvanie); Writeln(rab,knigiG.nazvanie); Write('Vvedite izdatelstvo:'); Readln(knigiG.izdat); Writeln(rab,knigiG.izdat); Write('Vvedite god izdania:'); Readln(knigiG.god); Writeln(rab,knigiG.god); Write('Vvedite tirag:'); Readln(knigiG.tirag); Writeln(rab,knigiG.tirag); end; close(rab); End. Помогите решить основную задачу: Требуется получить список книг указанного издательства, изданных в заданный период времени. Добавлено через 3 часа 32 минуты 20 секунд Вот что получилось: program Project1; type base = record fio: string[25]; nazvanie: string[20]; izdat: string[30]; god, tirag: integer; end; var knigiG: base; rab: Text; MaxGod,MinGod: integer; izd: string[30]; begin Assign(rab,'C:\knigi.txt'); Reset(rab); Write('Vvedite izdatelstvo: '); ReadLn(izd); Write('Vvedite Max god: '); ReadLn(MaxGod); Write('Vvedite Min god: '); ReadLn(MinGod); while not EOF(rab) do begin ReadLn(rab,knigiG.fio); ReadLn(rab,knigiG.nazvanie); ReadLn(rab,knigiG.izdat); ReadLn(rab,knigiG.god); ReadLn(rab,knigiG.tirag); if (knigiG.izdat = izd) and (knigiG.god < MaxGod) and (knigiG.god > MinGod) then Begin Writeln(' '); WriteLn('FIO avtora: ',knigiG.fio); Writeln('Naznanie: ',knigiG.nazvanie); Writeln('Izdatelstvo: ',knigiG.izdat); Writeln('God izdania: ',knigiG.god); Writeln('Tirag: ',knigiG.tirag); end; end; end. Что можете сказать? 0