close

Вход

Забыли?

вход по аккаунту

?

отчёт

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
ФГАОУ ВПО "СЕВОРО-КАВКАЗСКИЙ ФЕДЕРАЛЬНЫЙ УНИВЕРСИТЕТ"
Лабораторная работа №4
По дисциплине "Основы алгоритмизации и программирования"
"Обработка массивов"
Вариант 1
Работы выполнил: студент ИТС-б-о-121 Чеховский Александр Сергеевич
Работу проверила: Братченко Наталья Юрьевна, доцент кафедры инфокоммуникаций.
Ставрополь 2013
Цель и содержание:
Цель
1. Приобретение практических навыков в составлении программ с массивами. Содержание
1. Решение заданий в соответствии с вариантом.
Индивидуальные задания
Ввести массив из n элементов и выполнить задание из своего варианта.
1. Найти максимальный и минимальный элемент массива и переставить их местами. Преобразованный массив вывести.
2. Найти максимальный элемент матрицы А (размер m*n), и поменять его местами с минимальным элементом.
Рисунок 1 - Блок схема программы использующей одномерный массив.
Рисунок 2 - Блок схема программы использующей двумерный массив.
Листинг 1 - Код программы использующей одномерный массив. program array1;
var
a: array[1..20] of Integer;
n,i,max,min,imax,imin:Integer;
begin
max:=-32000;
min:=32000;
write('vvedite n<20; n=');
readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i]<min then
begin
min:=a[i];
imin:=i;
end;
end;
a[imax]:=min;
a[imin]:=max;
for i:=1 to n do
write(a[i],' ');
readln;
end.
Листинг 2 - Код программы использующей двумерный массив. program array2;
uses crt;
var a: array[1..20,1..20] of Integer;
m,n,i,j,max,min,imax,jmax,imin,jmin:Integer;
begin
max:=-32000;
min:=32000;
write('kolichestvo strok=');
readln(m);
writeln('kolicestvo stolbcov=');
readln(n);
for j:=1 to m do
begin
writeln(j,' stroka');
for i:=1 to n do
read(a[j,i]);
writeln;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[j,i],' ');
writeln;
end;
writeln;
for j:=1 to m do
for i:=1 to n do
begin
if a[j,i]>max then
begin
max:=a[j,i];
imax:=i;
jmax:=j;
end;
if a[j,i]<min then
begin
min:=a[j,i];
imin:=i;
jmin:=j;
end;
end;
a[jmax,imax]:=min;
a[jmin,imin]:=max;
for j:=1 to m do
begin
for i:=1 to n do
write(a[j,i],' ');
writeln;
end;
readkey;
end.
Рисунок 3 - Результат выполнения программы с одномерным массивом.
Рисунок 4 - Результат выполнения программы с двумерным массивом.
Вывод: на данной лабораторной работе я изучил возможности языка Pascal по работе с массивами и реализовал два простейших алгоритма.
Документ
Категория
Рефераты
Просмотров
12
Размер файла
103 Кб
Теги
отчет
1/--страниц
Пожаловаться на содержимое документа