Министерство образования и науки Украины

Национальный горный университет

Институт электроэнергетики

Факультет информационных технологий

Кафедра ПЗКС

Реферат  по теме:

«Освоение технологии структурного программирования

и применения стандартных методов работы

 с одномерными массивами

при разработке и создании программы на языке Турбо Паскаль»

 

по дисциплине

 

“Основы программирования и алгоритмические языки”

 

ВЫПОЛНИЛА:

студент группы КС-06-2

Иванова Е.И.

ПРОВЕРИЛА:

ассистент кафедры ПЗКС

                                                                                             Попова Т.С.

Днепропетровск

2006

1.Условие задачи:

В массиве T(12) хранится среднемесячная температура для каждого из 12 месяцев в г. Днепропетровске. Определить самую большую отрицательную и самую маленькую положительную температуры.

2. Решение задачи в ее предметной области:

Создадим массив T12, где хранится среднемесячная температура для каждого из 12 месяцев в г. Днепропетровске. Создадим массивы А и В. Из массива Т12 перенесем все отрицательные элементы в массив А, а все положительные элементы в массив В. В массиве А найдем самую большую отрицательную температуру, а в массиве В - самую большую положительную температуру.

3. Проектируем структуры данных (их имена и типы).

Понятно, что все имена массивов с их типами, входящие в условие задачи, нужно описать в программе. Кроме того, нам понадобятся: переменная цикла i, количество отрицательных элементов KolOtric, , количество положительных элементов KolPolozh, самая большая отрицательная температура Max и самая маленькая положительная температура Min и – все типа Integer.

Значит в разделе описаний программы, назовем ее ALENA5, с учетом требований о необходимости обеспечения легкочитаемости программы и размещения необходимых комментариев, поместим следующие описания:

Type

   VectorType= Array[1..12] of integer;

Var

  A,                           {massiv dlya hranenija otric. chisel}

  B,                           {massiv dlya hranenija polozh. chisel}

  T12:VectorType;   {massiv dlya hraneniya vektora}

  i,                            {parametr cikla}

  kolOtric,                {kolichestvo otric. elementov}

  kolPolozh,             {kolichestvo polozhitelnih elementov}

  Max,                      {samaya bol'shaya otric. temper.}

  Min:integer;           {samaya mal. polozhit. temper}

4. Проводим нисходящую разработку (проектирование) программы методом пошаговой детализации с помощью псевдокода. Воспользуемся результатами для получения первой версии алгоритма:

Ввести данные ALENA5

Выполнить вычисления ALENA5

Вывести результаты  ALENA5

С учетом требований к «дружественности» интерфейса, детализация псевдокода  Ввести данные ALENA5  дает следующее:

Вывести на экран приглашение для ввода массива  T12

Ввести массив T12

Детализация псевдокода Выполнить вычисления ALENA5

 дает следующее:

Определить отрицательные элементы T12 и переписать в массив А

Определить положительные элементы T12 и переписать в массив В

Найти наибольший отрицательный элемент массива А или доказать,   что   его не существует

Найти наименьший положительный элемент массива В или доказать,   что   его не существует

Детализация псевдокода Вывести результаты ALENA5 дает   следующее:

Вывести наибольший отрицательный элемент массива T12

Вывести наименьший положительный элемент массива T12

5. Выполняем структурное программирование с использованием стандартных приемов:

BEGIN

CLRSCR;           {ochicshaem ekran}

Writeln('Vvedite 12 elementov vectora T12: ');

for i:=1 to 12 do {organizovivaem cikl po kolichestvu elementov}

  begin

    Write ( ' T12 [ ' , i , ' ] = ') ; {Udobno videt' nomera elementov}

    Readln (T12[i])

  end;

  Writeln; {Ustanavlivaem kursor na novuju stroku}

{perenosim otric. ............