Отчет по практике: Язык программирования Pascal
4: begin
for i: =1 to n-1 do
for j: =1 to n do
if a [i]. Nap>a [j]. Nap then
begin
x: =a [i] ;
a [i]: =a [j] ;
a [j]: =x;
end;
for i: =1 to n do
begin
writeln (i,’ ’,'машинист ',a [i]. fio,' ','Направление ',a [i]. Nap);
writeln ('время ',a [i]. vy);
end;
end;
end;
readln;
end.
3.8.5 Результат работы программы
3.9 Решение задачи
3.9.1 Постановка задачи
Написать программу решения ребуса VOLVO+FIAT=MOTOR.
3.9.2 Таблица идентификаторов
| № | Переменные | Тип | Значение |
| 1 | v, o, l, f, i, a, t, m, r | 0. .9 | Параметры цикла |
| 2 | dig | 0. .9 | Множество цифр |
| 3 | Sum | longint | Сумма VOLVO+FIAT |
| 4 | motor | longint | MOTOR |
3.9.3. Блок-схема
 |
 |
3.9.4 Программа
Uses crt;
var
v, o, l, f, i, a, t, m, r: 0. .9;
dig: set of 0. .9;
sum, motor: longint;
begin
clrscr;
for v: =0 to 9 do begin
include (dig,v);