Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
Vitalik |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.
{Не получается правильно составить алгоритм. Прошу помочь} |
Федосеев Павел |
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Это твоя программа после обработки JCF. Пришлось только добавить строку program иначе JCF не обрабатывает.
Правда читабельнее выглядит? Код program Marka; const n = 3; type avto = record mar, nom, fio: string end; var a: array[1..n] of avto; mark: string; k, i: integer; begin for i := 1 to n do begin Write('Введите марку автомобиля: '); readln(a[i].mar); Write('Введите номер автомобиля: '); readln(a[i].nom); Write('Введите фамилию владельца: '); readln(a[i].fio); writeln; end; Write('Введите требуемую марку автомобиля: '); Read(mark); k := 0; for i := 1 to n do if a[i].mar = mark then begin writeln('ФИО: ', a[i].fio, '; ', 'Номер: ', a[i].nom); k := 1; end; writeln; if k = 0 then Write('Нет автомобилей данной марки'); end. Сообщение отредактировано: Федосеев Павел - |
Текстовая версия | 9.06.2024 23:42 |