Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определить количество положительных элементов в каждой строке матрицы https://www.cyberforum.ru/ pascalabc/ thread2773063.html
Определить количество положительных элементов в каждой строке матрицы С(5Х5) и записать эти числа в массив Д. ввод чисел ручной.
Pascal ABC Написать программы с любыми данными на языке Pascal
Перемножить двумерный и одномерный массив. Хелп
Написать программы с любыми данными на языке Pascal Pascal ABC
11)В одномерном массиве заменить максимальный и минимальный элементы их средним. 12)Перемножить двумерный и одномерный массив
Pascal ABC Написать программы с любыми данными на языке Pascal 9)В трехмерном массиве поменять местами максимальный и минимальный элементы. 10)В трехмерном массиве поменять местами максимальный и минимальный элементы. 11)В одномерном массиве заменить... https://www.cyberforum.ru/ pascalabc/ thread2772996.html
Pascal ABC Работа с файлами (txt) https://www.cyberforum.ru/ pascalabc/ thread2772905.html
Нужно из файла вывести данные первого элемента ( в моем случае число 2000), но программа выводит число 168626701. В чем проблема? myfilen: file of integer; begin reset(myfilen);...
Pascal ABC Вычислить произведение элементов у которых 1 цифра больше второй.
В массиве из 15 чисел вычислить произведение элементов у которых 1 цифра больше второй Все элементы являются трёхзначными
Pascal ABC доделать программу
задача следующая: 1. Составить алгоритм и программу для нахождения элементов матрицы размерностью NхN и величины D. Вывести на печать результаты и исходную матрицу в виде таблицы. где D -...
Pascal ABC "Pascal ABC" Переписать из Бейсика в Паскаль open "A.txt" for input as 1 open "B.txt" for input as 2 open "C.txt" for output as 3 line input #1,s print #3,s line input #2,s print #3,s line input #1,s... https://www.cyberforum.ru/ pascalabc/ thread2772856.html
Pascal ABC Pascal ABC https://www.cyberforum.ru/ pascalabc/ thread2772799.html
текстовые файлы a и b содержат по две строки с текстом. создать файл c в котором будут эти же строки, в следующем порядке: 1 из А 1 из Б 2 из А и 2 из Б
Pascal ABC Описать и проверить функцию https://www.cyberforum.ru/ pascalabc/ thread2772462.html
Pascal ABC Паскаль работа с файлами https://www.cyberforum.ru/ pascalabc/ thread2772433.html
Ввести числа a и b, определяющие диапазон табулирования функции, а также n – кол-во значений функции. Записать в текстовый файл таблицу, содержащую заданное количество значений функции на...
Pascal ABC Попадает ли точка с заданными координатами в область? Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Помогите пожалуйста, никак не могу нормально условие написать. https://www.cyberforum.ru/ pascalabc/ thread2772332.html
0 / 0 / 0
Регистрация: 04.12.2020
Сообщений: 16
0

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

22.01.2021, 10:56. Просмотров 301. Ответов 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.

Вернуться к обсуждению:
Описать запись с именем Auto, содержащую следующие поля:  Название модели;  год выпуска;  цвет;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2021, 10:56
Готовые ответы и решения:

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

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

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

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

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