Лабораторные работы Pascal

Решенные задачи по темам:
«Циклические перестановки в одномерных массивах»
«Двумерные массивы»
«Обработка двумерных массивов по строкам и столбцам»
«Подпрограммы»

Программы написаны на языке программирования Pascal.
Представлены 6 вариантов по 30 страниц - исходники + блок-схемы + оформленные протоколы.

Задание взято из методичек ВолгГТУ.

...

Пример листинга:

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

program ABC;
uses crt;
const Nmass=100;
var A:array[1..Nmass] of integer;
i, j,k, p,N, max, maxmin, poz1,poz2, tmp,z:integer;
begin
ClrScr;
write('Размерность массива:');
readln (N);
writeLn('Введите массив A:');
for i:=1 to N do
begin
write('A[',i,']=');
readLn(A[i]);
end;
writeln('');
max:=A[1];
for i:=1 to N do
if (A[i]>max) then
begin
max:=A[i];
k:=i; end;
writeln ('Максимальный элемент : ',max,' ­ на позиции ',k);
for i:=1 to k-1 do
begin
for j:=1 to k-i-1 do
if A[j]>A[j+1] then
begin
tmp:=A[j];
A[j]:=A[j+1];
A[j+1]:=tmp;
end;
end;
writeln('');
for i:=1 to N do begin
writeln('A[',i,']=',A[i]);
end; readln; end.

Пример условий задач

1. Ввести одномерный целочисленный массив A, вывести его. В массиве отсортировать по возрастанию все элементы предшествующие максимальному.
2. Ввести двумерный массив A3×4. Определить в нём сумму элементов, значения которых лежат вне диапазона [-1;5].
3. Ввести двумерный массив AN × M. Все элементы, которые не кратны 4 и стоят в четных строках массива уменьшить на 10. Массив вывести до и после преобразования.
4. Ввести двумерный массив AN × M, вывести его. Если значение суммы элементов его главной диагонали превышает сумму элементов побочной, то квадратом полученной разности заменить отрицательные элементы под побочной диагональю.
5. Ввести целочисленную квадратную матрицу AN × M, вывести ее. Найти сумму элементов в той строке, где произведе ние элементов максимально.
6. Дважды вычислить значение выражения, первый раз используя процедуру,
а второй – функцию.
7. Ввести двумерные массивы X1N1, X2N2, X2N3. Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов (если оно существует) соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), а также функции IndMax(A,N):byte – поиск индекса максимума и SrAPol(A,N):real – поиск среднего арифметического положительных элементов (равно нулю, если положительных нет)).