Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.12.2020
Сообщений: 11
1

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

22.01.2021, 10:56. Просмотров 252. Ответов 0

Описать запись с именем 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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2021, 10:56
Ответы с готовыми решениями:

Описать запись с именем TRAIN, содержащую следующие поля:название пункта назначения; номер поезда;время отправления
привет мальчики, помогите решить задачки пожалуйста, сегодня скинули, оказывается без них я не...

Описать запись с именем Sladko, содержащую следующие поля: • Название конфет; • Цена за 1 кг; • Срок годности; • Фамилию упаковщика; Написать программ
Описать запись с именем Sladko, содержащую следующие поля: • Название конфет; • Цена за 1 кг;...

Описать структуру «Автомобиль», которая содержит следующие поля: - Марка; - Год выпуска; - Цена; - Цвет
Описать структуру «Автомобиль», которая содержит следующие поля: - Марка; - Год выпуска; - Цена;...

Описать запись с именем Note, содержащую следующие поля
Описать запись с именем NOTE, содержащую следующие поля:  фамилия, имя;  номер...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2021, 10:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Описать запись с именем PRODUCT, содержащую следующие поля:
Описать запись с именем PRODUCT, содержащую следующие поля: название продукта, количество этого...

Описать запись с именем TRAIN, содержащую следующие поля
Написала программу, не могу понять в чем ошибка, помогите пожалуйста 1. Описать запись с именем...

Описать запись с именем Country, содержащую следующие поля
1.Описать запись с именем Country, содержащую следующие поля: • Название страны; • количество...

Описать запись с именем PRICE, содержащую следующие поля:
1. Описать запись с именем PRICE, содержащую следующие поля: • TOVAR — название товара; • MAG —...

Описать запись с именем Note, содержащую следующие поля
Описать запись с именем Note, содержащую следующие поля: • Фамилия, имя; • номер телефона;...

Описать запись с именем Mall, содержащую следующие поля
Описать запись с именем Mall, содержащую следующие поля:  название;  номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.