28.02.2017, 15:25 [+3 UTC]
в нашей команде: 1 820 чел. | участники онлайн: 10 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
28.02.2017, 13:32

Последний вопрос:
28.02.2017, 08:03

Последний ответ:
28.02.2017, 12:20

Последняя рассылка:
28.02.2017, 14:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
18.09.2010, 12:03 »
Andrey Rew1791
Ответ звучит вполне логично. Большое спасибо. [вопрос № 179931, ответ № 263083]
15.05.2012, 10:03 »
Иван Васильевич Митяев
спасибо! [вопрос № 186015, ответ № 270810]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 430
Асмик Гаряка
Статус: Советник
Рейтинг: 249
mklokov
Статус: 3-й класс
Рейтинг: 107

Перейти к консультации №:
 

Консультация онлайн # 190292
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: roma5310 (Посетитель)
Отправлена: 13.12.2016, 18:42
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Создать файл, содержащий сведения о личной коллекции книголюба. Каждая запись содержит поля: шифр книги, автор, название, год издания, местоположение (номер стеллажа, номер полки в шкафу). На экран и в отдельный файл вывести: местонахождение книги автора Х с названием Y; список книг автора Z, находящихся в коллекции; число книг издания ХХХХ года. Значения X, Y, Z вводится с клавиатуры.

Состояние: Консультация закрыта

Здравствуйте, roma5310!

Ответ эксперта Voop:

Код (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:(эксперт молчит)
-доработать файлы можно и в минифоруме, или самостоятельно обратить внимание на типизированные файлы.


Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 20.12.2016, 01:10

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 190292
lamed
Академик

ID: 320937

# 1

= общий = | 15.12.2016, 15:43 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
roma5310:

Добрый день! На чем нужно писать? PascalABC, ....

roma5310
Посетитель

ID: 400749

# 2

= общий = | 15.12.2016, 19:40 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

да,pascalABC

Voop
1-й класс

ID: 400798

# 3

= общий = | 16.12.2016, 16:04 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
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.

Зенченко Константин Николаевич
Модератор

ID: 31795

# 4

= общий = | 17.12.2016, 04:53 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Voop:

, дайте ответ, файл потом в минифоруме доделаете.

 

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос | интересные статьи

Время генерирования страницы: 0.12908 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн