Отчет по практике: Язык программирования Pascal

3: begin

writeln ('введите 2 числа');

readln (v,c);

min: =a [1] ;

k1: =1;

for i: =1 to n do

if a [i] <min then begin min: =a [i] ; k1: =i; end;

writeln;

for i: =n downto k1 do

a [i+1]: =a [i] ;

a [k1]: =v;

for i: =n+1 downto k1+1 do

a [i+1]: =a [i] ;

a [k1+2]: =c;

for i: =1 to n+2 do

write (a [i]: 3);

readln;

end;

end;

end.

3.7.5 Результат работы программы

3.8 Решение задачи

3.8.1 Постановка задачи

Дан массив записей, содержащий сведения о расписании поездов: направление; фамилия, имя, отчество машиниста; время отправления поезда. Необходимо осуществить:

1. заполнение массива данными;

2. поиск поездов по фамилии, имени, отчеству машиниста;

3. редактирование времени отправления поезда;

4. удаление поездов по полю "Направление";

5. сортировку по полю "Направление".

3.8.2 Таблица идентификаторов

№	Переменные	Тип	Значение
1	A	array	Заполнение массива
2	N	integer	Количество поездов
3	Nap	string	Поле направления
4	fio	String	Поле фамилии имя отчества
5	vy	String	Поле время отправления
6	i, j	integer	Параметры цикла
7	q	integer	Выбор действия
8	s1	string	Новое время
9	x	Rs	Дополнительная переменная для сортировки
10	s	String	Время
11	w	String	Фамилия, Имя, Отчество машиниста
12	r	String	Направление поезда, которое удаляем
13	k	Integer	Номер удаляемой записи
14	f	integer	флажок

3.8.3 Блок-схема

3.8.4 Программа

type RS=Record

Nap: string [40] ;