Pascal|Вывести на печать перечень автомобилей

[Dadni]

Задача на тип record.
В магазине имеется список поступивших в продажу автомобилей. Каждая запись этого списка содержит марку автомобиля и его параметры: стоимость, расход бензина на 100км, надежность(число лет безотказной работы), комфортность(отличная, хорошая, удовлетворительная). Покупатель также имеет ряд требования по каждому из этих параметров. Эти требования задаются в виде некоторого интервала(например, стоимость - 100...300тыс. руб.; расход бензина - 4...10л на 100км). Вывести на печать перечень автомобилей, удовлетворяющих требованиям покупателя. Требования покупателя ввести с клавиатуры.

[Stilet]

Попытки и наработки увидеть можно?

[Dadni]

Актуально!

[Niro]

Сообщение от Dadni

Актуально!

Ну ты ваще красава

Прям как во фрилансе

[newerow1989]

type
  tKomfort = (otl,hor,udov);
  tAvto = record
     Marka:string;
     Stoimost,Rashod,Nadezhnost:integer;
     Komfort:tKomfort;
  end;
var i,St1,St2,Ra1,Ra2:integer;
    p:array[0..4] of tAvto;
begin
   p[0].Marka:='Zhiguli';
   p[0].Stoimost:=150000;
   p[0].Rashod:=8;
   p[0].Nadezhnost:=10;
   p[0].Komfort:=hor;
   p[1].Marka:='Volga';
   p[1].Stoimost:=180000;
   p[1].Rashod:=10;
   p[1].Nadezhnost:=12;
   p[1].Komfort:=otl;
   p[2].Marka:='Zaporozhec';
   p[2].Stoimost:=120000;
   p[2].Rashod:=8;
   p[2].Nadezhnost:=5;
   p[2].Komfort:=udov;
   p[3].Marka:='Niva';
   p[3].Stoimost:=200000;
   p[3].Rashod:=5;
   p[3].Nadezhnost:=14;
   p[3].Komfort:=otl;
   p[4].Marka:='Mercedes';
   p[4].Stoimost:=250000;
   p[4].Rashod:=6;
   p[4].Nadezhnost:=20;
   p[4].Komfort:=otl;
   Write('Stoimost = ');
   Readln(St1);
   Readln(St2);
   Write('Rashod = ');
   Readln(Ra1);
   Readln(Ra2);
   For i:=0 to 4 do
      If (p[i].Stoimost>=St1) and (p[i].Stoimost<=St2) and
         (p[i].Rashod>=Ra1) and (p[i].Rashod<=Ra2) then
      Writeln(p[i].Marka,': Stoimost = ',p[i].Stoimost,', Rashod = ',
         p[i].Rashod,', Nadezhnost = ',p[i].Nadezhnost);
   Readln;
end.

Сойдет?

[Dadni]

Сейчас посмотрим, но, все равно, спасибо!

[Dadni]

Тему можно закрывать!