| ← Декабрь 2016 → | ||||||
|
1
|
2
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
14
|
15
|
16
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
25
|
||
|
26
|
27
|
28
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Создать файл, содержащий сведения о личной коллекции книголюба. Каждая запись содержит поля: шифр книги, автор, название, год издания, местоположение (номер стеллажа, номер полки в шкафу). На экран и в отдельный файл вывести: местонахождение книги автора Х с названием Y; список книг автора Z, находящихся в коллекции; число книг издания ХХХХ года. Значения X, Y, Z вводится с клавиатуры.
Дата отправки: 13.12.2016, 18:42 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, roma5310! Код (Pascal) :: выделить код type Likebooks=record
s: string[10]; //Шифр книги
av: string[50]; //Автор
Name: string[50]; //Название книги
Data: string[10]; //Год издания
Ns: string[10]; //Номер стеллажа
Np: string[10]; //Номер полки
end;
var
a: array [1..5] of Likebooks;
i,n,s: integer;
z,x,y:string;
begin
write('Введите кол-во книг: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите шифр книги: ');
readln(a[i].s);
writeln('Введите имя автора: ');
readln(a[i].av);
writeln('Введите название книги: ');
readln(a[i].Name);
writeln('Введите дату: ');
readln(a[i].Data);
writeln('Введите номер стелажа: ');
readln(a[i].Ns);
writeln('Введите номер полки: ');
readln(a[i].Np);
end;
write('Введите автора: ');
s:=0;
readln(Z);
write('Введите год издания: ');
readln(X);
write('Введите имя автора: ');
readln(Y);
for i:=1 to n do
begin
if x=a[i].Data then
s:=s+1;
if z=a[i].av then
//write(a[i].s, '; ');
write(a[i].av, '; ');
write(a[i].Name, '; ');
write(a[i].Data, '; ');
//write(a[i].Ns, '; ');
writeln();
end;
writeln('количество книг введенного года ', s,'.');
write('Список изданий: ');
for i:=1 to n do
begin
if y=a[i].av then
write(a[i].Name, ' ');
end;
end.Удачи! ps:(эксперт молчит) -доработать файлы можно и в минифоруме, или самостоятельно обратить внимание на типизированные файлы.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
