Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
 Аватар для Droner
1 / 1 / 0
Регистрация: 22.06.2009
Сообщений: 21
1

Тема Записи

24.06.2009, 11:39. Показов 1387. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сформировать запись, имеющую следующую структуру
type владелец=record
фамилия:string; адрес:string; марка автомобиля:string; рег. номер:string; год выпуска:1900..2000; end;
и определить:
количество автомобилей каждой марки;
владельца самого старого автомобиля;
фамилии владельцев и номера автомобилей данной марки.


Пожалуйста, очень надо.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.06.2009, 11:39
Ответы с готовыми решениями:

Тема записи. Сортировка
Нужно отсортировать по возрасту, но не работает что-то. Вот код, поправьте пожалуйста эту...

Тема Записи Сведения о вузах
12. Сведения о вузах. Запись имеет вид: название вуза, число студентов, количество факультетов,...

Тема: Записи. Работа с текстовыми файлами.
В деканате хранится информация о зимней сессии на 1 курсе (фамилия, номер группы, оценка 1 по...

Тема: Записи. Работа с текстовыми файлами
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о багаже нескольких...

2
Добрый самаритянин
 Аватар для John_Pa9JIbHuK
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
24.06.2009, 12:14 2
Лучший ответ Сообщение было отмечено Droner как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
type
vlad =record
famil:string;
adres:string;
marka:string;
regnom:string;
god:longint;
end;
var
i,k,min,j:integer;
a:array[1..5] of vlad;
begin
writeln('Введите кол-во записей');
readln(k);
for i:=1 to k do
begin
writeln('Введите фамилию ',i,'-го');
readln(a[i].famil);
writeln('Введите адрес ',i,'-го');
readln(a[i].adres);
writeln('Введите марку ',i,'-го');
readln(a[i].marka);
writeln('Введите рег.номер ',i,'-го');
readln(a[i].regnom);
writeln('Введите год выпуска ',i,'-го');
repeat
readln(a[i].god);
until (a[i].god<=2000) and (a[i].god>=1900);
end;
min:=2000;
for i:=1 to k do
if a[i].god<min then begin min:=a[i].god;j:=i; end;
writeln('Самое старое авто у ' a[j].famil);
end.
остальное сам добавишь
1
 Аватар для Droner
1 / 1 / 0
Регистрация: 22.06.2009
Сообщений: 21
24.06.2009, 14:13  [ТС] 3
Спасибо биг)
0
24.06.2009, 14:13
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.06.2009, 14:13
Помогаю со студенческими работами здесь

Тема: Записи(структуры)
Распечатать список учеников, фамилии которых начинаются на букву В, с суказанием даты из рождения.

PascalABC.NET Тема: Записи
Задание: В библиотеке для каждого посетителя заполняется карточка: фамилия, дата заказа, дата...

Pascal. Записи(самая ужасная тема). Нужно немного доделать программу, у меня не получается
Необходимо что бы вывод Фамилии, Имени, Отчества, Даты рождения осуществлялся в столбик, то-есть...

Тема Записи. делфи 7 (Графические примитивы)
Графические примитивы type TShapeList = (Rectangle, Triangle, Circle, Rhomb); TFigure =...

пожалуйста найдите ошибку.тема записи
Условие такое: Из ассортимента конфет , выпускаемых пермской кондитерской фабрикой , выбрать те...

Тема:записи и файлы.есть задача на паскале,переделайте пожалуйста(файл приложен)
задание:В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Откуда у float лишние цифры в конце дробной части. Представление чисел с плавающей точкой
bytestream 25.01.2025
При разработке программного обеспечения часто возникает необходимость работать с вещественными числами, которые содержат дробную часть. В современных компьютерных системах такие числа представляются. . .
Как использовать глобальную переменную в функции в Python
bytestream 25.01.2025
В программировании на Python глобальные переменные представляют собой особый тип переменных, которые доступны для использования во всех частях программы, включая различные функции, классы и модули. . . .
Как в цикле обойти все элементы map в Java
bytestream 25.01.2025
В разработке на Java одной из наиболее востребованных структур данных является интерфейс Map, который предоставляет эффективный способ хранения и управления парами "ключ-значение". Разработчики. . .
Для чего нужен UserManager.isU­serAGoat(­) в Android и как это использовать
bytestream 25.01.2025
В мире Android-разработки существует множество интересных и порой загадочных функций, о которых знают далеко не все разработчики. Одной из таких функций является метод UserManager. isUserAGoat(),. . .
Как обойти масси в JavaScript. Всё о циклах
bytestream 25.01.2025
JavaScript представляет собой мощный язык программирования, широко используемый в веб-разработке, где массивы и циклы являются фундаментальными концепциями для эффективной работы с данными. Массив в. . .
Как сделать, чтобы существующая ветка отслеживала удалённую в Git. Связывание локальных и удалённых веток
bytestream 25.01.2025
В разработке программного обеспечения системы контроля версий стали неотъемлемой частью процесса создания качественного программного продукта. Эти инструменты позволяют разработчикам эффективно. . .
Как проверить, что файл НЕ существует с помощью Bash
bytestream 25.01.2025
В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .
Как проверить, что строка пустая, неопределена или null в JavaScript
bytestream 25.01.2025
При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .
Как проверить существование ключа в объекте или массиве в JavaScript
bytestream 25.01.2025
При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .
Как создать ArrayList из массива (array) в Java
bytestream 25.01.2025
При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .
Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java
bytestream 25.01.2025
В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .
Как сделать, чтобы grep выводил строки до и после найденной
hw_wired 25.01.2025
Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru