@Nikon5486

Описать запись с именем Auto, содержащую следующие поля:
* Название модели;
* год выпуска;
* цвет;
2.Написать программу, выполняющую следующие действия:
* Ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Auto;
записи должны быть размещены в алфавитном порядке названия моделей;
* Вывод на экран названия моделей, цвет которых введен с клавиатуры, и которые
выпущены не позднее года, введенного с клавиатуры; если таких нет, вывести на
экран соответствующее сообщение.

Добавлено через 38 минут
program Nikon;
uses crt;
const n=3;
Type
Auto=record
model:string;
year:integer;
cvet:string;
end;
var
a:array[1..n] of Auto;
i,j:byte;
s:string;
z:integer;
x:Auto;
k:string;
f:integer;
m:integer;
begin
clrscr;
for i:=1 to n do
with a[i]do
begin
writeln('vvedite nazvaniyu madeli');
readln(model);
writeln('vvedite year ');

readln(year);
writeln('vvedite cvet');
readln(cvet);
end;

for j:=i+1 to n do
if (a[i].model)>(a[j].model) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to n do
with a[i]do
begin
writeln('model:',model,',year:',year,' ,cvet:',cvet);
end;
writeln('vvedite cvet');
readln(s);
writeln('vvedite year') ;
readln(z);
f:=0;
for i:=1 to n do
if (a[i].cvet=s)and (a[i].year>z) then
begin
f:=f+1;
writeln('model:',a[i].model,',year:',a[i].year,' ,cvet:',a[i].cvet);
end;

if f=0 then
writeln('takix netu');
readln;
end.

Вернуться к обсуждению:
Описать запись с именем Auto, содержащую следующие поля:  Название модели;  год выпуска;  цвет;

0