Студопедия — Тема: Работа с массивом из записей
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Тема: Работа с массивом из записей






 

Цель работы:

1.Научиться описывать записи с заданной структурой

2.Освоить приемы ввода данных по полям записи

Задание:

Дан список, содержащий не менее 4 записей, каждая из которых имеет

структуру:

Ф.И.О. Домашний адрес Номер участка Год

тип строка тип строка тип рождения

15 символов 30 символов integer 1900..2000

Разработать программу, выполняющую следующие функции:

- ввод данного списка в массив записей;

- вывод массива записей на экран;

- поиск всех граждан, родившихся до 1970 года и фамилия которых

начинается с буквы " М" с выводом найденных записей на экран.

 

 

Приложение Е (продолжение)

Листинг программы №5

Program Lab5;

Uses crt;

Type

T_year=record

Year:1900..2000;

end;

tzap=record

fio:string[15];

Adress:string[30];

Number:integer;

year:integer;

end;

Var Spis:array[1..50]of tzap;

N,i:byte;

isk_fio:string[15];

Begin

Write(' Введите число записей в списке N =');

Readln(N);

Writeln('Введите список по полям – каждое поле с новой строки');

For i:=1 to N do

With Spis[i] do

begin

Write('Ф.И.О. – 15 символов ');

Readln(fio);

Write('Домашний адрес - 30 символов');

Readln(adress);

Write('Номер участка ');

Readln(number);

Write('Год рождения с 1900 по 2000');

Readln(year);

end;

writeln('Введите искомую фамилию на букву М - 15 символов');

Readln(isk_fio);

for i:=1 to N do

with Spis[i] do

if fio[1]='М' then

begin

writeln(' Фамилия найдена ');

writeln(fio,'',Adress,'',number,'',year);

readkey;

halt;

end;

writeln(' Фамилия не найдена ');

readkey;

end.

 

 

Приложение Е (продолжение)







Дата добавления: 2015-08-31; просмотров: 332. Нарушение авторских прав; Мы поможем в написании вашей работы!



Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...

Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Способы тактических действий при проведении специальных операций Специальные операции проводятся с применением следующих основных тактических способов действий: охрана...

Искусство подбора персонала. Как оценить человека за час Искусство подбора персонала. Как оценить человека за час...

Этапы творческого процесса в изобразительной деятельности По мнению многих авторов, возникновение творческого начала в детской художественной практике носит такой же поэтапный характер, как и процесс творчества у мастеров искусства...

Психолого-педагогическая характеристика студенческой группы   Характеристика группы составляется по 407 группе очного отделения зооинженерного факультета, бакалавриата по направлению «Биология» РГАУ-МСХА имени К...

Общая и профессиональная культура педагога: сущность, специфика, взаимосвязь Педагогическая культура- часть общечеловеческих культуры, в которой запечатлил духовные и материальные ценности образования и воспитания, осуществляя образовательно-воспитательный процесс...

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

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия