Донецкий Национальный Технический Университет

Донецкий Национальный Технический Университет

Кафедра геодезии и геоинформатики

Лабораторная работа №8

Тема: «ОРГАНИЗАЦИЯ ЦИКЛОВ И РАБОТА С ОДНОМЕРНЫМИ МАССИВАМИ»

Выполнила:

ст.гр.ГКЗ -12а

Зашихина А.В.

Проверил:

Шморгун Е.И.

г.Донецк-2012

Постановка задачи

Вариант 6

В ходе данной лабораторной работы необходимо задав одномерный массив целочисленных данных в формате byte найти произведение элементов массива удовлетворяющих условию с<=A[i]<=d. Длина массива N<=20, исходные данные задать самостоятельно, учитывая формат элементов массива А.

В программе должна быть предусмотрена возможность ввода – вывода элементов массива А и его обработки. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определить из контекста задачи.

Теоретическое введение

Массив состоит из фиксированного количества компонентов одного и того же типа. Компонент определяется именем массива и индексом. Индекс может вычисляться (поэтому он должен описываться определенным типом заранее), а может быть задан непосредственно. Следовательно, при описании массива необходимо указывать тип компонента и тип индекса.

Описание массива может иметь вид:

Ar = array [1..Т] of byte, где

Ar - имя нового массива;

1..Т – диапазон элементов массива, Т должно быть задано заранее;

byte - тип компоненты массива.

Ввод элементов необходимо представить в формате типа byte. Это целочисленный тип данных с диапазоном [0.. 255].

Описание логической структуры программы:

1. Очистка экрана

2. Ввод размерности массива, не более 20

3. Ввод диапазона в виде чисел c, d (d>c).

4. Ввод массива с контролем возможного диапазона.

5. Организация цикла по выводу полученного массива.

6. Организация цикла по поиску чисел в массиве из заданного диапазона и получение произведения.

7. Печать полученного результата.

Описание входных данных:

c, d – переменные задающие диапазон в котором должны находиться элементы массива для подсчета суммы;

A – массив данных типа byte;

n – размерность массива А;

rd – переменная для хранения введенного элемента массива с последующей проверкой на допустимый диапазон;

i – переменная для организации циклов

Описание выходных данных:

mul – переменная для хранения произведения подходящих элементов

Текст программы

Program Lab_3;

uses crt;

const NN = 20;

var

A: array [1..NN] of byte;

c, d, n, i: byte;

rd: integer;

mul: real;

begin

clrscr;

writeln(' Lab 3, Varian 6.');

writeln('Proizvedenie elementov massiva A v diapazone');

writeln(' c<= a[i] <= d');

repeat

write('Vvedite n[1..20] = ');

readln(n);

until (n <= NN) and (n >= 1);

repeat

write('Vvedite c[0..255] = ');

readln(rd);

until (rd <= 255) and (rd >= 0);

c:= rd;

repeat

write('Vvedite d[0..255] = ');

readln(rd);

until (rd <= 255) and (rd >= 0);

d:= rd;

for i:= 1 to n do

begin

repeat

write('Vvedite A[',i,']= ');

readln(rd);

until (rd <= 255) and (rd >= 0);

A[i]:= rd;

end;

writeln(' Ishodnij vektor:');

for i:=1 to n do

write(A[i]:4);

mul:= 1;

for i:= 1 to n do

if (A[i] >= c) and (A[i] <= d) then

mul:= mul*A[i];

writeln;

writeln('Proizvedenie = ', mul:8:0);

readln;

end.

Блок – схема программы

Вывод: в ходе лабораторной работы был создан массив элементов заданного типа, проведена проверка на входимость в диапазон. Произведение элементов в диапазоне с<=A[i]<=d выполнено успешно о чем свидетельствуют результаты.

Дата добавления: 2015-09-30