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


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

ЛАБОРАТОРНАЯРАБОТА 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 мильонов к студенческой карме :

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

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

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

Реферат Совершенстование информационных потоков предприятия
Реферат Болезни раннего детского возраста и дошкольного периода
Реферат Развитие санаторно-курортной сферы Кавказских Минеральных Вод
Реферат «Согласовано» «Утверждаю» Директор огаук «днт «Авангард» Начальник Департамента по культуре Томской области
Реферат Новые банковские услуги продукты
Реферат 9-я международная научно-техническая конференция современные металлические материалы и технологии
Реферат Инновационная деятельность организации, как средство достижения ее экономических целей
Реферат АСУ Компьютерные курсы
Реферат Jewish History Essay Research Paper The Jews
Реферат Прогресс и регресс в историческом развитии
Реферат Spanish Weekends Essay Research Paper El fin
Реферат Організаційні процедури аудиту дебіторської заборгованості ТзОВ "Інтер-Синтез"
Реферат Конспект лекций по финансам
Реферат Показатели деятельности коммерческого банка Мегаполис
Реферат Aids Prevention Essay Research Paper AIDS PreventionSince