Цель работы
1. Приемы программирования циклических алгоритмов для задач с обработкой одномерного и двумерного маcсивов.
2. Вывода элементов одномерного и двумерного маcсивов.
3. Изучение одного из видов сортировки одномерного массива.
Пример первого задания.
Дан массив целых чисел А (4, 5). Переставить четвертый и пятый столбец местами.
Program change_;
Var
a:array[1..4,1..5] of integer;
i,n:byte;
buf:integer;
BEGIN
Writeln(Введите элементы массива А (4*5)’);
Randomize;
For i:=1 to 4 do
For n:=1 to 5 do
a[I,n]:= integer(random(100))-50;
writeln(‘исходный массив А до перестановки’);
For i:=1 to 4 do
begin
For n:=1 to 5 do
Write(a[I,n]:4);
Writeln
End;
For i:=1 to 4 do
Begin
Buf:=a[I,4];
a[I,4]:= a[I,5];
a[I,5]:= Buf
End;
writeln(‘исходный массив А после перестановки’);
For i:=1 to 4 do
begin
For n:=1 to 5 do
Write(a[I,n]:4);
Writeln
End
END.
Пример второго задания.
Ввести n чисел. Отсортировать числа по возрастанию.
Program Sогt _;
type
size=l..100:
mas=array[size] of' integer;
var
arr_: mas;
i,n,k: size;
Buf: integer;
BEGIN
Write(‘введите количество сортируемых элементов массива ’);
Readln(n);
Writeln(‘Введите элементы массива АRR_’);
Randomize;
For i:=1 to n do
Arr_[I]:= integer(random(100))-50;
writeln(‘исходный массив до перестановки’);
For i:=1 to n do
Write(arr_[i]:4);
Writeln;
For i:=1 to n-1 do
For k:=i+1 to n do
If arr_[i]> arr_[k] then
begin
buf:= arr_[i];
arr_[i]:= arr_[k];
arr_[k]:=buf
End;
writeln(‘исходный массив после перестановки’);
For i:=1 to n do
Write(a[i]:4);
Writeln;
END.
Лабораторная работа №4.
Процедуры и функции – элементы структуризации программ.
Цель работы
1. Использование подпрограмм (процедур и функций) для ввода/вывода векторов и матриц.
2. Использование подпрограмм (процедур и функций) для вставки и удаления элементов массива.
Пример первого задания.
Удалить из массива последний (в том случае, если их несколько) максимальный элемент.
Для решения задачи необходимо:
· найти номер максимального элемента к;
· сдвинуть все элементы, начиная с к+1-го на один элемент влево;
· последнему элементу присвоить значение 0.
{$R+}
Program My;
Const
MaxN=10;la=-10;ha=21; {Размер массива и интервал значений}
Type
MyArray=Array[1..MaxN] Of Integer;
Var
A:MyArray;
k:Integer;
Procedure Init(t,v,w:Integer; Var X:MyArray);{Процедура формирования значений элементов массива}
Var
I:Integer;
Begin
Randomize;
For i:=1 To t Do
X[i]:=v+Integer(Random(w));
End;
Procedure Print(t:Integer;X:MyArray);{Вывод t первых элементов массива X}
Var
i:Integer;
Begin
For i:=l To t Do
Write(X[i]:5);
WriteLn;
End;
Function Max(t:Integer;X:MyArray):Integer;
{Поиск номера последнего максимального элемента}
Var
i,mx:Integer;
Begin
mx:=1;
For i: =2 To t Do
If X[i]>=X[Mx] Then Mx:=i;
Max:=Mx;
End;
Procedure Sz (t,q:Integer;Var X:MyArray);{Сдвиг элементов массива влево на одну позицию, начиная с элемента с номером q+1}
Var
i:Integer;
Begin
For i:=q To t-1 Do
X[i]:=X[i+1];
X[t]:=0;
End;
Begin
n:=MaxN;
Init(n,la,ha,A);
WriteLn ('Исходный массив ');
Print(n,A);
k:=Max(n,A);
Sz(n,k,A);
WriteLn(‘Массив после удаления элемента ');
Print(n-1,A);
ReadLn;
END.
Пример второго задания.
Даны 3матрицы (5*4,4*5,5*5), содержащие целые компоненты. Требуется в каждой матрице определить минимальный по модулю элемент. Распечатать ту, в которой находится больший из минимальных по модулю элемент. Считать, что такой элемент один.
{$R+}
Const
MaxN=5; МахМ=5;
Type
TMyArray=Array[l..MaxN,l..MaxM] Of Integer;
Var
A,B,C:TMyArray;
Res:array[1..3] of Integer;
M,n,max:Integer;
Procedure Init(t,v:Integer; Var X:TMyArray);{Процедура формирования значений элементов массива}
Var
I,j:Integer;
Begin
Randomize;
For i:=l To t Do
For j:=1 To v Do
X[I,j]:=Integer(Random(50))-20;
End;
For i:=l To t Do
Procedure Print(t,v:Integer;X:TMyArray);{Вывод элементов массива }
Var
I,j:Integer;
Begin
For i:=l To t Do
Begin
For j:=1 To v Do
Write(X[I,j]:5);
WriteLn;
End;
End;
Function Min(t,v:Integer;X:TmyArray):Integer;{ Функция нахождения минимального по модулю элемента}
Var
i,j:Integer;
Begin
Min:=X[1,1]:
For i:=l To t Do
For j:=1 To v Do
If abs(X[I,j])<abs(min) then
min:=X[I,j];
End;
Begin{ 0сновная программа }
Init(5,4,A);
Init(4,5,B);
Init(5,5,C);
Writeln(‘Матрица А’); Print(5,4,A);
Writeln(‘Матрица B’); Print(4,5,B);
Writeln(‘Матрица C’); Print(5,5,C);
Res[1]:=Min(5,4,A);
Res[2]:=Min(4,5,B);
Res[3]:=Min(5,5,C);
Max:=Res[1];
For n:=2 to 3 do
If Res[n]>max then
begin
Max:=res[n];
M:=n
End;
Writeln(‘Матрица содержащая максимальный из минимальных по модулю’);
Case m of
1: Print(5,4,A);
2: Print(4,5,B);
3: Print(5,5,C);
End;
END.
Лабораторная работа №5
