Обработка одномерных массивов и матриц
Заполнение массива из целых чисел с присвоением элементам разных значений. Варианты программы с использованием различных операторов организации циклов. Определение квадрата максимального из четных элементов массива и общего числа нулевых элементов.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | лабораторная работа |
| Язык | русский |
| Дата добавления | 14.05.2011 |
| Размер файла | 259,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
ЛАБОРАТОРНАЯ РАБОТА 5
Цель работы: изучение и применение методов программирования действий по обработке одномерных массивов и матриц.
Задача 1
Массив из 30 целых чисел заполнить, присваивая элементам, делящимся на 4, значения 0, остальным элементам значение -1. Cоставить три варианта программы с использованием различных операторов организации циклов.
Вариант 1. Использование оператора For
Текст программы
program lab5_1_1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
m:array [1..30] of integer;
i:byte;
begin
for i:=1 to 30 do begin
if i mod 4 =0 then m[i]:=0
else m[i]:=-1;
writeln(m[i]);
end;
readln;
end.
Вывод результата
Вариант 2. Использование оператора While
Текст программы
program lab5_1_2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
m:array [1..30] of integer;
i:byte;
begin
i:=0;
while i<=30 do begin
i:=i+1;
if i mod 4 =0 then m[i]:=0
else m[i]:=-1;
writeln(m[i]);
end;
readln;
end.
Вывод результата
Вариант 3. Использование оператора Repeat
Текст программы
program lab5_1_3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
m:array [1..30] of integer;
i:byte;
begin
i:=0;
repeat
i:=i+1;
if i mod 4 =0 then m[i]:=0
else m[i]:=-1;
writeln(m[i]);
until i=30;
readln;
end.
Вывод результата
Задача 2
массив число программа цикл
Для заданной функции y = cos(0.5x/2)+cos(x) вычислить массив 11 ее значений в равноотстоящих точках интервала [2,4]. Вывести на экран таблицу значений функции. Обработать массив значений функции указанным образом. Результаты вывести на экран. Найти квадрат максимального из четных элементов массива и общее число нулевых элементов.
Текст программы
program lab2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var my:array [1..11] of real;
mx: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];
max:= max*max;
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}
uses
SysUtils;
var
m:array [1..3,1..4] of real;
i,j:byte;
max:real;
begin
randomize;
{zapolnenie}
for i:=1 to 3 do
for j:=1 to 4 do
begin
m[i,j]:=random;
writeln(m[i,j]:5:3);
end;
{nahozhdenie max}
max:=m[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if max<m[i,j] then max:=m[i,j];
writeln ('max= ',max:5:3);
{umnozhenie}
for i:=1 to 3 do
for j:=1 to 4 do
begin
m[i,j]:=m[i,j]*max;
{vyvod}
writeln('new massiv= ',m[i,j]:5:3);
end;
readln;
end.
Вывод результата
Вывод: я изучил и применил методы программирования действий по обработке одномерных массивов и матриц.
Размещено на Allbest.ru
Подобные документы
Разработка и реализация типовых алгоритмов обработки одномерных массивов на языке Delphi. Максимальный и минимальный элемент массива. Значение и расположение элементов массива. Элементы массива, находящиеся перед максимальным или минимальным элементом.
лабораторная работа [12,8 K], добавлен 02.12.2014Изучение элементов языка С++, программирование разветвлений и циклов с использованием операторов условного и перехода. Обработка одномерных массивов. Поиск максимального элемента массива с заданной размерностью. Листинги программы и результатов.
курсовая работа [647,7 K], добавлен 05.02.2013Составление программы для нахождения минимального и максимального элементов массива. Программа вычисления корней квадратных алгебраических уравнений. Ранжирование одномерного массива по заданному признаку. Формирование массивов с помощью функции random.
контрольная работа [1,0 M], добавлен 30.04.2013Понятие двумерного массива целых чисел. Создание динамического массива из элементов, расположенных в четырех столбах данного массива и имеющих нечетное значение. Сохранение результатов в файл и выведение их на экран. Использование ввода с файла.
курсовая работа [44,0 K], добавлен 09.11.2014Выведение значения элементов массива, которые удовлетворяют неравенству. Подсчет количества отрицательных элементов массива. Изменение исходного массива. Тестирование программы. Проверка её работоспособности. Реакция программы на сообщение об ошибке.
лабораторная работа [1,3 M], добавлен 23.11.2014Составление программы разветвляющейся структуры для вычисления заданной функции. Нахождение произведения чётных и нечётных первых чисел натурального ряда. Приёмы программирования обработки одномерных массивов. Расчет суммы положительных элементов массива.
контрольная работа [1,3 M], добавлен 20.12.2012Одномерные числовые массивы, образование элементами целочисленного массива невозрастающей последовательности. Программное нахождение суммы элементов каждой возможной строки матрицы и формирование массива из найденных сумм, вывод массива-результата.
лабораторная работа [12,8 K], добавлен 09.01.2011Виды информационно-вычислительных сетей: локальные, городские, глобальные; их классификация. Разработка программы на языке программирования С: формирование одномерного массива путем замены нулевых элементов на среднеарифметическое, а пробелов - на слова.
практическая работа [37,5 K], добавлен 20.05.2012Подсчет количества отрицательных элементов массива. Изменение исходного массива перемещением всех его положительных элементов в начало с исходным порядком их следования. Вывод на дисплей количества перемещенных элементов. Алгоритм и код программы.
лабораторная работа [946,5 K], добавлен 23.11.2014Особенности создания массивов в AutoCAD 2012, основные команды. Создание прямоугольного массива путем размножения выбранных элементов с заданным количеством рядов и столбцов, образующих прямоугольную матрицу. Этапы проектирования кругового массива.
курсовая работа [1,1 M], добавлен 20.05.2014
