Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 28.12.2014
Сообщений: 26
1

Найти фамилии владельцев и номера автомобилей данной марки

25.02.2015, 17:01. Показов 1635. Ответов 2
Метки нет (Все метки)

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.

{Не получается правильно составить алгоритм. Прошу помочь}
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2015, 17:01
Ответы с готовыми решениями:

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Файлы. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти количество автомобилей каждой марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл F содержащей...

Найти фамилии и номера владельцев машин заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл, содержащий эти...

2
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
25.02.2015, 17:31 2
Лучший ответ Сообщение было отмечено Vitalij1234 как решение

Решение

Объявляете тип
Pascal
1
2
3
type auto=record
               mar,nom,fam:string
               end;
объявляете массив записей
Pascal
1
var m:array[1..20] of auto;
заносите записи в массив, присваивая значения полей
вводите марку для поиска
Pascal
1
2
3
4
5
6
7
8
9
readln(mark);
k:=0;
for i:=1 to n do
if m[i].mar=mark then
 begin
  writeln(m[i].fam,' ',m[i].nom);
  k:=1
 end;
if k=0 then write('Нет автомобилей данной марки');
0
0 / 0 / 0
Регистрация: 28.12.2014
Сообщений: 26
25.02.2015, 18:21  [ТС] 3
Большое Спасибо, уже не в первый раз Вы меня выручаете !)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2015, 18:21

Вывести фамилии владельцев и номера автомобилей выпущенных позже 2011 года
1) Сведения об автомобиле состоят из его марки, номера, фамилии владельца и год выпуска. Вывести...

Файлы. Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке
Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке. Прошу...

Сведения об автомобилях состоят из его марки, номера, года выпуска и фамилии владельца.
Сведения об автомобилях состоят из его марки, номера, года выпуска и фамилии владельца. Найти...

Найти количество автомобилей каждой марки
Сведения об автомобиле состоят из его марки, года выпуска, фамилии владельца и государственного...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru