Записи.Файлы Опции

[Симпотяжка]

Написать программу которая выводит в режиме запросов заданное число записей вида.
Запрос вводится для каждого поля с новой строки.
Пример:
Телевизор 1
название..................Рекорд
Цена.........................300
диагональ................59
изображение (ц\ч).........ц
производитель........
завод..............Фотон
город...............Москва
директор..................Иванов

после ввода массива записей программы осуществляет и ведет поиск следующей информации:Название городов где выпускаются телевизоры стоимостью менее 400руб.

[Jahnerus]

Код

uses
 crt;
const n=4;{kol-vo televizorov}
var
 a:array[1..n] of record
   title,zavod,city,director:string[20];
   price:real;
   diagonal:byte;
   color:char;
 end;
 g:array [1..n] of string;
 i,j,k:byte;
 b:boolean;

begin
 clrscr;
 k:=0;
 {Vvod svedeniy o televizorah}
 for i:=1 to n do begin
   with a[i] do begin
     writeln('Televizor ',i);
     write('Nazvanie..........');
     readln(title);
     write('Cena..............');
     readln(price);
     write('Diagonal..........');
     readln(diagonal);
     write('Izobrajenie(c\m)..');
     readln(color);
     writeln('Proizvoditel:');
     write('Zavod.............');
     readln(zavod);
     write('Gorod.............');
     readln(city);
     write('Direktor..........');
     readln(director);
     if price<400 then begin
       if k=0 then begin
         k:=k+1;
         g[k]:=city;
       end;
       for j:=1 to k do begin
         b:=(city=g[j]);
         if b then break;
       end;
       if not(b) then begin
         k:=k+1;
         g[k]:=city;
       end;
     end;
   end;
 end;
 for i:=1 to k do writeln(g[i]);
 readln;
end.

Немного не понятно ... нужен список городов в которых все телевизоры стоят меньше 400 руб или хотябы один!

Сообщение отредактировано: Jahnerus - 3.12.2004 20:36