3 лабы (срочно!!!!) - Pascal

Формулировка задачи:

Здравствуйте. Помогите пожалуйста выполнить ниже описанные лабораторные работы. Заранее благодарен. Лаба 1. 1. Разработать и отладить программу, вычисляющую среднее арифметическое значение массива восьми целых чисел, использующую цикл for. Значения элементов массива должны быть заданы при его объявлении. При выполнении разрешается пользоваться материалами лабораторной работы №1. 2. К имеющейся программе добавить объявление двумерного массива вещественных чисел (2 на 3) и заполнить его значениями, введенными с клавиатуры. Для ввода использовать любой тип цикла. 3. Вывести на экран значения массива, созданного в п.2, в виде таблицы, используя процедуры Write и WriteLn. Чтобы преобразовать вещественное число к удобному для чтения виду, в процедуре вывода для отображения переменных использовать запись: <имя_переменной>:<миним.размер_поля_под_число>:<кол-во_знаков_после_запятой> Примерный вид таблицы: Столбец 1 Столбец 2 Столбец 3 34.5 66.22 5.50 56.8 7.7 2.10 Лаба 2. 1. Создать функцию, читающую с клавиатуры два числа типа LongInt и сохраняющую их в соответствующих глобальных (т.е. объявленных в вне любых подпрограмм) переменных. 2. Создать функцию Max(), использующую в качестве аргументов два числа, полученных в предыдущей функции и возвращающую максимальное из них. 3. Создать процедуру DisplayMax, отображающую на экране результат работы функции Max(), передав эту функцию в DisplayMax в виде аргумента. 4. Добавить в число аргументов процедуры DisplayMax переменную типа String, в которую по завершении процедуры должна записываться фраза ‘Выполнено успешно’ (или что-либо аналогичное). Лаба 3. 1. Создать запись, описывающую вагоны поезда со следующими свойствами: a.количество мест b.фамилия проводника c.год выпуска d.тип вагона (купейный, плацкартный, общий) 2. Написать процедуру, заполняющую такую запись значениями, введенными с клавиатуры. 3. Написать функцию, выводящую все поля структуры на экран в виде строки и возвращающую тип отображаемого вагона. 4. Создать массив четырех таких записей. 5. Используя любой тип цикла, заполнить массив. 6. Вывести на экран все вагоны, выпущенные до 1970 года, используя ранее написанную процедуру. 7. Вывести на экран все купейные вагоны. Использовать оператор case.

Решение задачи: «3 лабы (срочно!!!!)»

Листинг программы

[FONT='Courier New CYR']uses crt;
[FONT='Courier New CYR']const n=8;[/FONT]
[FONT='Courier New CYR']      a:array[1..n]of integer=(2,5,9,13,-8,7,-5,5);[/FONT]
[FONT='Courier New CYR']var i,j:byte;[/FONT]
[FONT='Courier New CYR']    sr:real;[/FONT]
[FONT='Courier New CYR']    b:array[1..2,1..3]of real;[/FONT]
[FONT='Courier New CYR']begin[/FONT]
[FONT='Courier New CYR']clrscr;[/FONT]
[FONT='Courier New CYR']sr:=0;[/FONT]
[FONT='Courier New CYR']for i:=1 to n do[/FONT]
[FONT='Courier New CYR']sr:=sr+a[i]/8;[/FONT]
[FONT='Courier New CYR']writeln('Srednee=',sr:4:2);[/FONT]
[FONT='Courier New CYR']readln;[/FONT]
[FONT='Courier New CYR']writeln('Vvedite v stroku s probelom 6 chisel:');[/FONT]
[FONT='Courier New CYR']for i:=1 to 2 do[/FONT]
[FONT='Courier New CYR']for j:=1 to 3 do[/FONT]
[FONT='Courier New CYR']read(b[i,j]);[/FONT]
[FONT='Courier New CYR']readln;[/FONT]
[FONT='Courier New CYR']clrscr;[/FONT]
[FONT='Courier New CYR']writeln('Matrix:');[/FONT]
[FONT='Courier New CYR']for i:=1 to 2 do[/FONT]
[FONT='Courier New CYR']   begin[/FONT]
[FONT='Courier New CYR']    for j:=1 to 3 do[/FONT]
[FONT='Courier New CYR']    write(b[i,j]:6:2);[/FONT]
[FONT='Courier New CYR']    writeln;[/FONT]
[FONT='Courier New CYR']    writeln;[/FONT]
[FONT='Courier New CYR']   end;[/FONT]
[FONT='Courier New CYR']readln[/FONT]
[FONT='Courier New CYR']end.[/FONT]

Объяснение кода листинга программы

Объявлены переменные: n, a, i, j, sr, b.
Задано значение переменной n равное 8.
Задано значение переменной a равное (2,5,9,13,-8,7,-5,5).
Объявлен массив b размером 2x3.
Заполнен массив b с помощью цикла for и оператора read.
Выведено на экран значение переменной sr (среднее значение элементов массива a).
Выведен на экран запрос на ввод 6 чисел.
Введенные числа сохранены в массиве b.
Выведена на экран матрица размером 2x3, составленная из введенных чисел.
Программа завершена.