Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. |
Vitalik |
25.02.2015 17:15
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.
{Не получается правильно составить алгоритм. Прошу помочь} |
Федосеев Павел |
25.02.2015 20:21
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Ловлю на слове "не получается".
Покажи то, что уже есть. Т.к. объём писанины на 2-3 часа, а подобные задачи я уже решал и интерес к ним угас, чтобы повторно тратить время. |
Vitalik |
25.02.2015 20:48
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Задачу уже решил, если интересно, код могу скинуть
|
Федосеев Павел |
25.02.2015 21:22
Сообщение
#4
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Я-то их с десяток решал, но может быть кто-то начинающий захочет решить подобную задачу, а тут твой правильный пример-образец как нельзя кстати (в общем, очень вовремя).
Ещё не видя код, предлагаю воспользоваться форматтером кода JCF. Правда, если у тебя PascalABC, Lazarus или Delphi, то там есть встроенные средства. Сообщение отредактировано: Федосеев Павел - 25.02.2015 21:24 |
Vitalik |
26.02.2015 13:45
Сообщение
#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 |
Федосеев Павел |
26.02.2015 17:35
Сообщение
#6
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Это твоя программа после обработки 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.02.2015 17:36 |
Текстовая версия | 1.10.2024 11:18 |