Решение инженерных задач с применением алгоритмического языка программирования Pascal и приложений MS Office и пакета MathCAD
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
е вычислить среднее арифметическое положительных элементов, стоящих выше главной диагонали.
Создание числового массива с использованием встроенной функции rnd(10), генерирующей случайные числа
Нахождение суммы положительных элементов, стоящих выше главной диагонали:
pascal массив файл графический
Нахождение количества положительных элементов, стоящих выше главной диагонали:
Среднее арифметическое положительных элементов, стоящих выше главной диагонали:
ЗАДАЧА №2
Железнодорожное расписание:
№ поезда
Название маршрута
Время отправления
Время прибытия
Тип поезда
Время в пути
Дни
1.Выборка по полю
2.Сортировка по № поезда
.Нахождение максимального и минимального по полю
Program poezd;crt;stroka=record:array[1..50] of integer;:integer;:real;:real;:string;:string;:string;:real;;rez:integer;,i,p,n:integer;,l,s,s1:real;,k1:integer;,z:integer;:array[1..70] of stroka;input;;(Введите количество поездов: );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=a[i].tpr then s:=k1-k+24s:=k1-k;l=l1 then s1:=0l<l1 then s1:=l1-lbegin:=l1+0.6-l;:=s-1;;[i].pyt:=s+s1;;;(20,10);;output;;(s1=,s1);(--------------------------------------------------------------------------------);(¦ № поезда¦ Назв.марш.¦ Время отпр.¦ Время приб.¦ Тип поезда¦ Время в пути¦ Дни¦);
writeln(--------------------------------------------------------------------------------);i:=1 to n do begin(¦ ,a[i].nomer:4, ¦ ,a[i].nazv, ¦ ,a[i].tot:4:2, ¦ ,a[i].tpr:4:2,
¦ ,a[i].tip:4, ¦ ,a[i].pyt:4:2, ¦,a[i].dni:3,¦);;(--------------------------------------------------------------------------------);;;;;sort_alg;c: stroka;;.nomer:=a[j].nomer;.nazv:=a[j].nazv;.tot:=a[j].tot;.tpr:=a[j].tpr;.tip:=a[j].tip;.pyt:=a[j].pyt;.dni:=a[j].dni;[j].nomer:=a[j+1].nomer;[j].nazv:=a[j+1].nazv;[j].tot:=a[j+1].tot;[j].tpr:=a[j+1].tpr;[j].tip:=a[j+1].tip;[j].pyt:=a[j+1].pyt;[j].dni:=a[j+1].dni;[j+1].nomer:=c.nomer;[j+1].nazv:=c.nazv;[j+1].tot:=c.tot;[j+1].tpr:=c.tpr;[j+1].tip:=c.tip;[j+1].pyt:=c.pyt;[j+1].dni:=c.dni;;Sort;;(10,10);
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(Выбор некорректен! Выберете режим работы: );;
readln;rez=10;.
Блок-схема задачи 2
Решение задачи №2 средствами Excel
номер поезданазвание моршрутавремя прибытиявремя отпровлениятип поездавремя в пуиидни665Минск-Гомель15:3415:45Скорый4:12:00чет555Гомель-Калинковичи23:4323:59Пассажирский3:11:00не чет654Брест-Могилев21:3221:57Скоростной13:02:00не чет234Гомель-Брест23:4823:54Пассажирский12:21:00чет213Витебск-Харьков5:065:20Скорый13:21:00не чет244Одесса-Москва23:1423:31Скоростной10:33:00чет345Минск-Гродно10:2410:36Скорый15:21:00чет
номер поезданазвание моршрутавремя прибытиявремя отпровлениятип поездавремя в пуиидни555Гомель-Калинковичи23:4323:59пассажирский3:11:00не чет654Брест-Могилев21:3221:57скоростной13:02:00не чет234Гомель-Брест23:4823:54пассажирский12:21:00чет244Одесса-Москва23:1423:31скоростной10:33:00чет
По полю в пути было вычислено максимальное значение поля Время в пути.
номер поезданазвание моршрутавремя прибытиявремя отпровлениятип поездавремя в пуиидни665Минск-Гомель15:3415:45скорый4:12:00чет555Гомель-Калинковичи23:4323:59пассажирский3:11:00не чет654Брест-Могилев21:3221:57скоростной13:02:00не чет234Гомель-Брест23:4823:54пассажирский12:21:00чет213Витебск-Харьков5:065:20скорый13:21:00не чет244Одесса-Москва23:1423:31скоростной10:33:00чет345Минск-Гродно10:2410:36скорый15:21:00чет15:21
ЗАКЛЮЧЕНИЕ
Со времени появления первого компьютера сменилось несколько поколений ЭВМ. Однако, деление ЭВМ на поколения довольно относительно, так как между программным обеспечением, используемым в разных поколениях ЭВМ, их структурой и элементной базой существует очень тесная взаимосвязь.
За последнее десятилетие роль ЭВМ в жизни человечества возросла во множество крат. В наши дни невозможно представить себе почти ни одной отрасли человеческой жизнедеятельности, в которой не принимали бы участия ЭВМ. С появлением ЭВМ у людей появилась возможность решать многие, до этого невыполнимые, задачи, и это позволяет человеку ставить перед собой и решать новые, еще более сложные задачи, которые требуют создания еще более мощных ЭВМ.
В свою очередь столь стремительное развитие вычислительной техники требует создания программного обеспечения и программных систем, содержащих до нескольких сотен тысяч команд и операторов.
С накоплением че