ывавптарьпорлоьптаау. Отчет по лабораторной 5. Лабораторная работа 3 по дисциплине Программная инженерия

• Название: Лабораторная работа 3 по дисциплине Программная инженерия
• Анкор: ывавптарьпорлоьптаау
• Дата: 27.12.2021
• Размер: 28.54 Kb.
• Имя файла: Отчет по лабораторной 5.docx
• Тип: Лабораторная работа; #319795

Российский государственный социальный университет

ЛАБОРАТОРНАЯ РАБОТА _3_

по дисциплине «___Программная инженерия___»

ФИО студента	Сериков Александр Игоревич
Направление подготовки	Программная инженерия
Группа	ПИН-Б-0-Д-2021-2

Москва

Задание:

Вариант 12

Ввести информацию по 10 перевозкам (N рейса, пункт назначения,

наименование, вес). Найти суммарный объем всех перевозок.

Код:

const n = 2; // глобальная переменная отвечающая за количество перевозок

type // создание нового типа данных

transportation = record

nflight: integer; // номер рейса

destination, namе: string[15]; // пункт назначения и наименование не длиннее 15 символов

weight: real; // вес

end;

var t: array[1..n] of transportation; i, maxwnf : integer; sumw, maxw: real; //создание списка перевозок и глобальные переменные

begin

writeln('Введите таблицу ', n, ' перевозок (N рейса, пункт назначения, наименование, вес)');

for i:=1 to n do // формальная переменная i

begin

readln(t[i].nflight);

readln(t[i].destination);

readln(t[i].namе);

readln(t[i].weight);

end;

for i:=1 to n do // формальная переменная i

begin

sumw := sumw + t[i].weight; // вычисление суммы веса всех перевозок

if (t[i].weight > maxw) then // сравнивание максимального числа и элемента массива

begin

maxw := t[i].weight; // присваивание максимального веса

maxwnf := t[i].nflight; // присваивание номера рейса с максимальным весом

end;

end;

writeln('Суммарный объем всех перевозок ', sumw);

writeln('Номер рейса с максимальным весом ', maxwnf);

end.