|
Донецкий Национальный Технический Университет
Кафедра геодезии и геоинформатики
Лабораторная работа №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; просмотров: 14 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
L.W. Wing model aerodynamic performances experimental determination. | | |