Реферат Рішення інженерних завдань із застосуванням алгоритмічної мови програмування Pascal та програм MS Office та пакету MathCAD

діть кількість поїздів:'); readln (n); i: = 1 to n do begin: = 0; ('============ Запис №', i, '============');

write ('Введіть номер поїзда (4 знаки):'); readln (a [i]. nomer); ('Введіть назву маршруту:'); readln (a [i]. nazv) ; ('Введіть час відправлення (час.мін):'); readln (a [i]. tot);

if (a [i]. tot <0) or (a [i]. tot> 24) or (a [i]. tot-trunc (a [i]. tot)> 0.6) then begin ("Введення некоректний! '); (' ----------------- '); p: = 1; p = 1;: = 0; (' Введіть час прибуття (час.мін): '); readln (a [i]. tpr); (a [i]. tpr <0) or (a [i]. tpr> 24) or (a [i]. tpr -trunc (a [i]. tpr)> 0.6) then begin ("Введення некоректний! '); (' ----------------- '); p: = 1 ; p = 1;; ('Введіть тип поїзда:'); ('1 - вантажний'); ('2 - пасажирський'); ('Ваш вибір:'); (k); k = 1 then begin a [ i]. tip: = 'Груз.';: = 0; if k = 2 then begin a [i]. tip: = 'Пас.';: = 0; writeln ('Введення некоректний!'); p = 0 ;; ('Введіть дні прямування:'); ('1 - парні'); ('2 - непарні'); ('3 - усі'); ('Ваш вибір:'); (k); k = 1 then begin a [i]. dni: = 'Чет';: = 1; if k = 2 then begin a [i]. dni: = 'Непара';: = 1; if k = 3 then begin a [i] . dni: = 'Всі';: = 1; writeln ('Введення then s: = k1-k +24 s: = k1-k; l = l1 then s1: = 0l

'? ', A [i]. Tip: 4,'? ', A [i]. Pyt: 4:2,'

p: = 0; ('Введіть поле, по якому буде проводиться сортування:'); ('1 - № поїзда'); ('2 - Час відправлення'); ('3 - Час в дорозі ');

readln (z); (z> = 1) and (z <= 3) then p: = 1writeln ("Введення некоректний! ');;

GotoXY (15,15); p = 1 then begin ('Сортування проводиться за', z, 'варіанту');

clrscr; z = 1 theni: = 1 to n-1 doj: = 1 to n-1 do if a [j]. nomer> a [j +1]. nomer then sort_alg; z = 2 theni: = 1 to n-1 doj: = 1 to n-1 do if a [j]. tot> a [j +1]. tot then sort_alg; z = 3 theni: = 1 to n-1 doj : = 1 to n-1 do if a [j]. pyt> a [j +1]. pyt then sort_alg;;;; (20,10);

repeat ('Виберіть режим роботи');; ('1 - Введення значень'); ('2 - Сортування по номеру поїзда'); ('3 - Висновок розрахунків на екран');; ('10 - Вихід з програми');

writeln; ('Ваш вибір:'); (rez); rez of 1: input;

: sort;

: output;

: exit; writeln ('Вибір некоректний! Виберете режим роботи:');;