Реферат по предмету "Информатика, программирование"


Обработка одномерных массивов и матриц

ЛАБОРАТОРНАЯРАБОТА 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
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] ofreal;
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
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 nulevyhelementov= ',k);
readln;
end.
Выводрезультата

/>
 
Задача 3
 
Дан двумерный массив[3..4]. Получить новый массив путем умножения всех элементов исходного массивана его элемент, наибольший по абсолютной величине.
Текст программы (массивзаполняется случ. числами).
programlab5_3;
{$APPTYPECONSOLE}
uses
SysUtils;
var
m:array[1..3,1..4] of real;
i,j:byte;
max:real;
begin
randomize;
{zapolnenie}
fori:=1 to 3 do
forj:=1 to 4 do
begin
m[i,j]:=random;
writeln(m[i,j]:5:3);
end;
{nahozhdeniemax}
max:=m[1,1];
fori:=1 to 3 do
forj:=1 to 4 do
ifmax
writeln('max= ',max:5:3);
{umnozhenie}
fori:=1 to 3 do
forj:=1 to 4 do
begin
m[i,j]:=m[i,j]*max;
{vyvod}
writeln('newmassiv= ',m[i,j]:5:3);
end;
readln;
end.
Вывод результата
 
/>

Вывод:яизучили применил методы программирования действий по обработке одномерных массивов иматриц.


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Бэлэчану, Эманоил
Реферат Социально-экономические отношения в Новгороде 12-15 вв.
Реферат Chaos In The Currency Market Essay Research
Реферат Девиз правления
Реферат Исторические корни советского тоталитаризма
Реферат Анализ применяемых методов регулирования доходов в России
Реферат Мёд, Сахар, Заменители сахара
Реферат Расчет оптимального теплообменника по параметрам эффективности теплопередачи
Реферат Социальные, экономические и политические последствия привлечения инсотранных инвестиций в экономику принимающих стран
Реферат Дидактическая игра как средство умственного развития
Реферат Гуманизм философских взглядов Ф.М. Достоевского
Реферат Лечение пароксизмальной формы фибрилляции предсердий ПФФП
Реферат 1. Проблема,яку передбачається розв’язати шляхом державного регулювання
Реферат Табулирование и шкалирование данных
Реферат Физикохимия проницаемости биологических мембран