Обработка одномерных массивов и матриц
ЛАБОРАТОРНАЯ РАБОТА 5
Цель работы:
изучение и применение методов программирования действий по обработке одномерных
массивов и матриц.
Задача 1
Массив
из 30 целых чисел заполнить, присваивая элементам, делящимся на 4, значения 0,
остальным элементам значение -1. Cоставить
три варианта программы с использованием различных операторов организации
циклов.
Вариант 1. Использование оператора For
Текст программы
program lab5_1_1;
{$APPTYPE CONSOLE};:array [1..30] of
integer;:byte;i:=1 to 30 do begini mod 4 =0 then m[i]:=0
else m[i]:=-1;(m[i]);
end;
readln;
end.
Вывод результата
Вариант 2. Использование оператора While
Текст программы
program lab5_1_2;
{$APPTYPE CONSOLE};:array [1..30] of
integer;:byte;:=0;i<=30 do begin:=i+1;i mod 4 =0 then
m[i]:=0m[i]:=-1;(m[i]);;
Вывод результата
Вариант 3. Использование оператора Repeat
Текст программы
program lab5_1_3;
{$APPTYPE CONSOLE};:array [1..30] of
integer;:byte;:=0;:=i+1;i mod 4 =0 then m[i]:=0
else m[i]:=-1;(m[i]);
until i=30;;.
Вывод результата
Задача 2
массив число
программа цикл
Для
заданной функции y = cos(0.5x/2)+cos(x) вычислить массив 11 ее значений в
равноотстоящих точках интервала [2,4]. Вывести на экран таблицу значений
функции. Обработать массив значений функции указанным образом. Результаты
вывести на экран. Найти квадрат максимального из четных элементов массива и
общее число нулевых элементов.
Текст программы
program lab2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
my:array [1..11] of real;
max,y,x1,x2,x,h:real;
i,k:byte;
begin
x1:=2;
x2:=4;
x:=x1;
h:=(x2-x1)/10;
mx[1]:=x;
for i:=1 to 11 do
begin
y:=cos((0.5*x)/2)+cos(x);
my[i]:=y;
x:=x+h;
mx[i+1]:=x;
writeln('x=',mx[i]:5:2,'
y=',my[i]:5:2);
end;
max:=my[1];
for i:=1 to 11 do
if
(max<my[i]) and (i mod 2 =0) then
max:=my[i];
writeln
('max kvadr y= ',max:5:2);
for
i:=1 to 11 do
if
my[i]=0 then k:=k+1;
writeln ('vsego nulevyh
elementov= ',k);
readln;
end.
Вывод
результата
Задача 3
Дан двумерный массив [3..4]. Получить новый
массив путем умножения всех элементов исходного массива на его элемент,
наибольший по абсолютной величине.
Текст программы (массив заполняется
случ. числами).
program lab5_3;
{$APPTYPE CONSOLE};:array
[1..3,1..4] of real;,j:byte;:real;;
{zapolnenie}i:=1 to 3 doj:=1 to 4
do[i,j]:=random;(m[i,j]:5:3);;
{nahozhdenie max}:=m[1,1];i:=1 to 3
doj:=1 to 4 domax<m[i,j] then max:=m[i,j];('max= ',max:5:3);
{umnozhenie}i:=1 to 3 doj:=1 to 4
do[i,j]:=m[i,j]*max;
{vyvod}('new massiv= ',m[i,j]:5:3);;
Вывод результата
Вывод:
я изучил и применил методы программирования действий по обработке одномерных
массивов и матриц.