Referat.me

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

Вид работы: лабораторная работа

Рубрика: Информатика и программирование

Размер файла: 60.11 Kb

Скачать файл: referat.me-136768.docx

Краткое описание работы: Заполнение массива из целых чисел с присвоением элементам разных значений. Варианты программы с использованием различных операторов организации циклов. Определение квадрата максимального из четных элементов массива и общего числа нулевых элементов.

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

ЛАБОРАТОРНАЯ РАБОТА 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.

Вывод результата

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

Похожие работы

  • Программное определение числовых массивов

    Одномерные числовые массивы, образование элементами целочисленного массива невозрастающей последовательности. Программное нахождение суммы элементов каждой возможной строки матрицы и формирование массива из найденных сумм, вывод массива-результата.

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

    Разработка программ на языке Turbo Pascal на основе использования массивов данных. Особенности хранения данных, способы объявления переменных, действия над элементами массивов, их ввод и вывод. Практическое применение одномерных и многомерных массивов.

  • Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных – по убыванию

    2.24. Составить программу, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных – по убыванию. 17. Задан массив {Ai}: 2; 0,4; 3,14; -1,57; 11; 7,34; -2,6; 0; 5; -1. Вычислить массив {Yi}, каждый элемент которого вычисляется по формуле cos(A), и подсчитать количество элементов L из массива {Yi}, попадающих в интервал [0;1].

  • Лабораторная работа по информатике, вариант №13, с методическим пособием.zip

    Целью работы является написание программ на ЭВМ, согласно условию в выбранном варианте, первая программа для задания А, и вторая программа для задания Б. Для написания программ использовался Borland Turbo Pascal версии 7.1. Рассмотрим по очереди эти два задания.

  • Лабораторная работа №11

    Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.

  • Методы работы с массивами на языке BASIC

    В работе описывается лишь несколько способов применения массивов. Если возникнет потребность в более глубоком изучении этого раздела программирования, необходимо обратиться к специальной литературе для соответствующего алгоритмического языка.

  • Организация ввода-вывода. Обработка массивов. Структурированные данные

    Ознакомление с основными понятиями и организацией ввода-вывода, обработкой массивов. Описание одномерных и двумерных массивов. Описание строк и операции с ними. Комбинированный тип данных - записи. Характеристика записей, использующих вариантную часть.

  • Понятие и элементы массива

    Массив - это коллекция переменных, которые имеют общее имя и базовый тип. Функциональные возможности, виды массивов и их характеристика. Основные требования к входным и выходным данным массива. Использование IF THEN для перехвата всех возможных ошибок.

  • Информатика и ВТ

    Вычисление произведения элементов массива. Обсуждение алгоритма. Текст программы. Линейный, циклический и разветвляющийся вычислительные процессы.

  • Алгоритмические языки: обработка одномерных массивов

    Работа с массивами, их ввод и вывод, организация программ циклической структуры. Способы описания и использования массивов, алгоритмы их сортировки, сортировка выбором и вставками. Алгоритмы поиска элемента в неупорядоченном и упорядоченном массивах.