Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Лабораторная работа 6

Очередь | Этап программирования. | Приоритет операций в выражении | Program TREUG; | ЛАБОРАТОРНАЯ РАБОТА 2 | Program zarplata2; | Числом повторений | Program Lab3; | Программирование циклических алгоритмов с предусловием | ЛАБОРАТОРНАЯ РАБОТА 5 |


Читайте также:
  1. I.2. Теплота, работа, внутренняя энергия.
  2. I.6. Работа и теплота. Свойства работы и теплоты.
  3. III. Работа в глобальной сети Интернет.
  4. III. Работа по социальной защите учащихся.
  5. III. Слово учителя. Работа с текстом. (5 мин.)
  6. IV. Работа над новым материалом.
  7. IV. Работа с электронной почтой.

Программирование алгоритмов обработки одномерных массивов

Цель работы: научиться разрабатывать и отлаживать программы с использованием регулярных типов (векторов).

Массив - упорядоченная структура однотипных данных, хранящихся последовательно.

Массив обязательно имеет размеры, определяющие, сколько в нем хранится элементов. Описывается в разделе TYPE (или VAR). Структура описания одномерного массива:

<имя> = ARRAY[диапазон _ индексов] OF <базовый _ тип>;

Диапазон указывает значения индексов первого и последнего элементов в массиве.

Пример. Найти значение и номер наименьшего элемента в одномерном массиве. При задании элементов исходного массива типизированной константой СА решения задачи имеет вид (рис.8, а) и используется следующая программа:

Program lr6_1;

const a: array[1..10] of integer=(5,2,7,1,8,3,4,5,6,6);

var i, min, n: integer;

Begin

min:=a[1]; n:=1;

for i:=2 to 10 do

if a[i]<min then begin

min:=a[i];

n:=i;

end;

writeln('минимальный элемент равен ',min, ' n=',n);

End.

Если элементы массива вводятся с клавиатуры, то СА имеет вид (рис.8,б) и текст программы изменится:

Program lr6_2;

var a: array[1..10] of integer;

i, min, n: integer;

Begin

read(a[1]);

min:=a[1]; n:=1;

for i:=2 to 10 do begin

read(a[i]);

if a[i]<min then begin

min:=a[i]; n:=i;

end;

end;

writeln('минимальный элемент равен ', min, ' n=',n);

End.

 
 



Дата добавления: 2015-09-05; просмотров: 60 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
PROGRAM sum;| Задание 1

mybiblioteka.su - 2015-2024 год. (0.007 сек.)