Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
Vitalik |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.
{Не получается правильно составить алгоритм. Прошу помочь} |
Федосеев Павел |
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Ловлю на слове "не получается".
Покажи то, что уже есть. Т.к. объём писанины на 2-3 часа, а подобные задачи я уже решал и интерес к ним угас, чтобы повторно тратить время. |
Vitalik |
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Задачу уже решил, если интересно, код могу скинуть
|
Федосеев Павел |
Сообщение
#4
|
Знаток Группа: Пользователи Сообщений: 481 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 9 |
Я-то их с десяток решал, но может быть кто-то начинающий захочет решить подобную задачу, а тут твой правильный пример-образец как нельзя кстати (в общем, очень вовремя).
Ещё не видя код, предлагаю воспользоваться форматтером кода JCF. Правда, если у тебя PascalABC, Lazarus или Delphi, то там есть встроенные средства. Сообщение отредактировано: Федосеев Павел - |
Vitalik |
Сообщение
#5
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
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. Писал в PascalABC |
Федосеев Павел |
Сообщение
#6
|
Знаток Группа: Пользователи Сообщений: 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. Сообщение отредактировано: Федосеев Павел - |
Текстовая версия | 26.04.2024 3:25 |