Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.
{Не получается правильно составить алгоритм. Прошу помочь}
Ловлю на слове "не получается".
Покажи то, что уже есть.
Т.к. объём писанины на 2-3 часа, а подобные задачи я уже решал и интерес к ним угас, чтобы повторно тратить время.
Задачу уже решил, если интересно, код могу скинуть
Я-то их с десяток решал, но может быть кто-то начинающий захочет решить подобную задачу, а тут твой правильный пример-образец как нельзя кстати (в общем, очень вовремя).
Ещё не видя код, предлагаю воспользоваться http://forum.sources.ru/index.php?showtopic=373648. Правда, если у тебя PascalABC, Lazarus или Delphi, то там есть встроенные средства.
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
Это твоя программа после обработки JCF. Пришлось только добавить строку program иначе JCF не обрабатывает.
Правда читабельнее выглядит?