Лекции.Орг


Поиск:




Категории:

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

 


WITH <Имя записи> DO




Begin

<Операторы обращения к элементам записи>

End;

Для нашего примера используем этот оператор при суммировании трех оценок i-го студента:

...

Sum:=0;

With Spisok[i] do

Begin

For j:=1 to 3 do

Sum:=Sum+Ball[j];

...

End;

 

 

Рассмотрим пример использования записи внутри другой записи.

Пусть имеется структура:

№ п/п Ф.И.О. Дата рождения Пол Национальность

Причем поле дата рождения состоит из полей: число, месяц, год. Тогда описание в программе будет иметь вид:

Type

Date=Record

Days:1..31;

Month:1..12;

Year:1900..2000;

End;

Tzap=Record

Nom:word;

FIO:string[40];

DateR:Date;

Pol:(Man,Woman);

Nac:string[20];

End;

Var Zap:Tzap;

Для того чтобы обратиться к элементам записи дата рождения, необходимо записать:

D:=Zap.DateR.Days;

M:= Zap.DateR.Month;

G:= Zap.DateR.Year;

или с использованием оператора присоединения

With Zap.DateR do

Begin

D:=Days; M:=month; G:=Year;

End;

Типизированные константы - записи имеют вид:

<Имя константы>: Тип = (Список значений полей записи);

Список значений полей записи - это список из последовательностей вида: Имя поля: Константа;

Например:

1) Type

Tdate=Record

Day:1..31;

Month:1..12;

Year:1000..2000;

End;

Const Date:Tdate=(day:25;month:10;year:1999);

2) Type

Tkoord=record

Xk,Yk:real;

end;

Tmas=array[1..3] of Tkoord;

Const Maskoord:Tmas=((Xk:0.0; Yk:0.0),

Xk:1.5; Yk:2.5),

Xk:3.0; Yk:4.5));

Типовой пример

Дан список, содержащий N записей (N£100) следующей структуры:

 

№ рейса Пункт отправления Пункт назначения День недели Время отправления Час Мин Цена билета
5 символов 15 символов 15 симв. 1..7 0..23 0..59 Real

1) Ввести заданый список с экрана в массив записей Spis.

2) Ввести искомый номер рейса - Isk_nom.

3) Найти в списке рейс с заданным номером.

4) Вывести информацию о найденном рейсе на экран.

 

Текст программы

Uses crt;

Type

T_Time=record

Hour:0..23;

Min:0..59;

end;

tzap=record {Описание типа для одной записи списка}

nom:string[5];

p1,p2:string[15];

day:1..7;

time:T_Time;

price:real;

end;

Var Spis:array[1..100]of tzap; {Описание списка}

N,i:byte;

Isk_nom:string[5];

Begin

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

Readln(N);

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

For i:=1 to N do

With Spis[i] do

begin

Write(' Номер очередного рейса - 5 символов ');

Readln(nom);

Write(' Пункт отправления - 15 символов ');

Readln(p1);

Write(' Пункт назначения - 15 символов ');

Readln(p2);

Write(' День недели - от 1 до 7 ');

Readln(day);

Write(' Время отправления - часы (от 0 до 23) и

минуты (от 0 до 59), через пробел ');

Readln(time.hour,time.min);

Write(' Цена билета = ');

Readln(price);

end;

writeln(' введите искомый номер рейса - 5 символов ');

Readln(Isk_nom);

{Oрганизация поиска заданного рейса в массиве записей Spis}

for i:=1 to N do

with Spis[i] do

if nom = Isk_nom then

begin

writeln(' Рейс найден');

writeln(nom,' ',p1,' ',p2,' ',day,' ',time.hour,':',time.min,' ',price);

readkey;

halt;

end;

writeln(' Рейс не найден');

readkey;

End.

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

 

 

Варианты заданий

В А Р И А Н Т 1

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр книги Ф.И.О. авторов Название Год

тип строка тип строка тип строка издания

5 символов 20 символов 15 символов целое

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

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

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

- поиск книг, изданных в 1960 году и шифром, начинающимся с буквы "А" с выводом найденных записей на экран.

 

В А Р И А Н Т 2

1. Дан список, содержащий не менее 10 записей, каждая из которых имеетструктуру:

Шифр товара Наименование Цена (в руб.) Количество

тип строка тип строка вещественное экземпляров

5 символов 20 символов число целое число

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

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

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

- поиск товаров, имеющих цену меньше 20000 руб. и количеством экземпляров больше 100 с выводом найденных записей на экран.

 

В А Р И А Н Т 3

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Номер рейса Пункт отправления Пункт назначения Дни

тип строка тип строка тип строка полетов

5 символов 10 символов 10 символов от 1 до 7

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

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

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

- поиск рейсов, вылетающих из города " Волгоград" в среду(3день) с выводом найденных записей на экран.

 

В А Р И А Н Т 4

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

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

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

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

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

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

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

- поиск всех граждан из списка, родившихся до 1950 года и номером участка = 55 с выводом найденных записей на экран.

В А Р И А Н Т 5

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр товара Наименование товара Цена(руб.) Признак

тип строка тип строка число типа наличия или

5 символов 20 символов real отсутствия

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

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

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

- поиск всех товаров, имеющихся в наличии и цена которых не превышает 15000 руб., с выводом найденных записей на экран.

В А Р И А Н Т 6

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. Факультет Группа Год рождения

20 символов 5 символов 6 символов целое число

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

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

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

- поиск всех студентов, группы " 97ВС1", родившихся в 1979 году с выводом найденных записей на экран.

В А Р И А Н Т 7

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. авторов Название Год Шифр

тип строка тип строка издания строка

20 символов 20 символов целое 8 символов

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

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

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

- поиск книг, названия которых начинаются с буквы " П" и изданных до 1990 года с выводом найденных записей на экран.

В А Р И А Н Т 8

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. авторов Название Год Шифр

тип строка тип строка издания строка

20 символов 20 символов целое 8 символов

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

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

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

- поиск книг, поле шифр которых начинаются с буквы " Т" и изданных после 1990 года с выводом найденных записей на экран.

В А Р И А Н Т 9

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Номерр рейса Пункт отправления Пункт назначения Дни

тип тип строка тип строка полетов

integer 20 символов 10 символов от 1 до 7

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

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

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

- поиск всех рейсов с номерами большими, чем 50, и вылетающими в " Адлер", с выводом найденных записей на экран.

В А Р И А Н Т 10

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

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

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

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

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

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

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

- поиск всех граждан, родившихся до 1970 года и фамилия которых начинается с буквы " П" с выводом найденных записей на экран.

 

В А Р И А Н Т 11

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр книги Ф.И.О. авторов Название Год

тип строка тип строка тип строка издания

5 символов 20 символов 15 символов целое

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

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

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

- поиск книг, изданных до 1950 году и шифром " СС11" с выводом найденных записей на экран.

В А Р И А Н Т 12

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр товара Наименование Цена(в руб.) Количество

тип строка тип строка вещественное экземпляров

5 символов 20 символов число целое число

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

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

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

- поиск товаров, имеющих цену не меньше 20000 руб. и количеством кземпляров больше 180 с выводом найденных записей на экран.

В А Р И А Н Т 13

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Номер рейса Пункт отправления Пункт назначения Дни

тип строка тип строка тип строка полетов

5 символов 12 символов 10 символов от 1 до 7

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

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

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

- поиск рейсов, вылетающих из города " Владивосток" в 1 или 3 день недели с выводом найденных записей на экран.

В А Р И А Н Т 14

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

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

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

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

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

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

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

- поиск всех граждан из списка, родившихся до 1980 года и номером участка не более 100 с выводом найденных записей на экран.

 

В А Р И А Н Т 15

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр товара Наименование товара Цена(руб.) Признак

тип строка тип строка число типа наличия или

5 символов 20 символов real отсутствия

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

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

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

- поиск всех товаров, которых нет в наличии и имеющих цену, не меньше 25000 руб. с выводом найденных записей на экран.

В А Р И А Н Т 16

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. Факультет Группа Год рождения

20 символов 5 символов 6 символов целое число

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

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

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

- поиск всех студентов, группы " 97ВС2", родившихся до 1980 году с выводом найденных записей на экран.

В А Р И А Н Т 17

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. авторов Название Год Шифр

тип строка тип строка издания строка

20 символов 20 символов целое 8 символов

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

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

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

- поиск книг, фамилии авторов которых начинаются с буквы " В", и изданных после 1990 года с выводом найденных записей на экран.

В А Р И А Н Т 18

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. авторов Название Год Шифр

тип строка тип строка издания строка

20 символов 20 символов целое 8 символов

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

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

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

- поиск книг, поле шифр которых начинаются с буквы " Т" и изданных в 1990 году с выводом найденных записей на экран.

В А Р И А Н Т 19

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Номер рейса Пункт отправления Пункт назначения Дни

тип тип строка тип строка полетов

integer 20 символов 10 символов от 1 до 7

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

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

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

- поиск всех рейсов с номерами меньшими, чем 100 и вылетающими в из пункта " Краснодар" с выводом найденных записей на экран.

В А Р И А Н Т 20

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

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

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

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

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

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

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

- поиск всех граждан, родившихся после 1970 года и фамилия которых начинается с буквы " А" с выводом найденных записей на экран.

В А Р И А Н Т 21

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Название Ф.И.О. авторов Год

тип строка тип строка издания

15 символов 20 символов целое

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

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

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

- поиск книг, изданных в 1987 году и автором, начинающимся с буквы "А" с выводом этих записей на экран.

В А Р И А Н Т 22

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Наименование Цена (в руб.) Количество

тип строка вещественное экземпляров

20 символов число целое число

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

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

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

- поиск товаров, имеющих цену больше 100 руб. и количеством экземпляров меньше 10 с выводом найденных записей на экран.

В А Р И А Н Т 23

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Номер рейса Пункт отправления Пункт назначения Дни

тип строка тип строка тип строка полетов

5 символов 10 символов 10 символов от 1 до 7

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

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

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

- поиск рейсов, прилетающих в город " Воркута" в понедельник (1день) с выводом найденных записей на экран.

В А Р И А Н Т 24

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

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

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

15 символов 10 символов byte 1910..2000

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

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

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

- поиск всех граждан из списка, родившихся после 1991 года и номером участка = 3 с выводом найденных записей на экран.

В А Р И А Н Т 25

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Шифр товара Наименование товара Цена(руб.) Признак

тип строка тип строка число типа наличия или

3 символов 10 символов integer отсутствия

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

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

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

- поиск всех товаров, имеющихся в наличии и цена которых превышает 50 руб., с выводом найденных записей на экран.

В А Р И А Н Т 26

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. Отделение Группа Год рождения

15 символов 5 символов 5 символов 1970..2000

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

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

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

- поиск всех студентов, группы " ВМ06", родившихся в 1990 году с выводом найденных записей на экран.

В А Р И А Н Т 27

1. Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:

Ф.И.О. автора Название Год Шифр

тип строка тип строка издания строка

15 символов 20 символов integer 3 символа

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

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

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

- поиск книг, названия которых начинаются с буквы " В", изданных после 2000 года и шифр которых начинается с буквы " Z" с выводом найденных записей на экран.

ЛИТЕРАТУРА

  1. Игошина Л.В. Методическое пособиепо курсу "Алгоритмические языки и программирование". - Пенза: ПГТУ, 1999г.
  2. Могилев Л.В. и др. Практикум по информатике. - М.: «Академия», 2005г.
  3. Иллюстрированный самоучитель по Turbo Pascal. – http://pascal.sources.ru/




Поделиться с друзьями:


Дата добавления: 2015-05-06; Мы поможем в написании ваших работ!; просмотров: 849 | Нарушение авторских прав


Поиск на сайте:

Лучшие изречения:

Что разум человека может постигнуть и во что он может поверить, того он способен достичь © Наполеон Хилл
==> читать все изречения...

2525 - | 2336 -


© 2015-2025 lektsii.org - Контакты - Последнее добавление

Ген: 0.013 с.