Урок 3. Структурированный тип данных массив

Цель урока: изучить решение задач с использованием ввода-вывода массивов.

---

Форматный вывод

Для вывода вещественных чисел необходимо указать в операторе WRITE формат представления числа, который имеет вид:

 WRITE(<переменная>:m:n); 

где:

m – целое число, указывающее общее количество позиций отводимое под значение переменной, включая позицию под знак числа, точку и количество цифр дробной части; 

n – целое число, определяющее количество цифр дробной части.

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

Пример. Выведем значение переменной A, равное 401.3 оператором write(A:8:2) . На экран монитора будет выведено:

 Символом  обозначен пробел.

Вывод вещественных чисел выполняется по следующим правилам:

1. Если число имеет меньшую длину, чем m, то оно будет дополнено слева пробелами.
2. Если число имеет большую длину, чем m, то параметр m игнорируется и число будет выведено полностью.
3. Если дробная часть больше, чем параметр n, то число округляется. Округление не изменяет самого значения переменной, меняется только представление числа на мониторе.
4. Если параметр n не указан, то ни дробная часть числа, ни десятичная точка не выводятся. Вывод осуществляется в формате с плавающей запятой.

---

Задания по теме урока

1. Напишите программу, которая позво­ляет вводить с клавиатуры целочисленные элементы массива a[1..10], а затем выводит на экран в первую строку первые пять элементов массива, во вторую — остальные пять элементов.
2. Сформировать и вывести на экран массив a[1..10], элементы которого заданы датчиком случайных чисел на интервале от номера компьютера до 100. Вывести элементы массива в обратном порядке в строку через запятую. (Указание: цикл for … downto …)
3. Напишите программу, которая позво­ляет вводить с клавиатуры вещественные элементы массива a[1..10], а затем выводит на экран значения в одну строку, отводя на каждое значение по 4 позиции.
4. Элементы массива содержат значения температуры тела больного в течение недели. Составьте программу, которая заполняет массив случайными вещественными числами от 37.0 до 38.0 и выводит на экран значения температуры в столбец с одной десятичной цифрой.
5. В течение недели температура составляла 15, 18, 18, 16, 19, 20, 17 градусов. Составьте программу, в которой описан массив констант и выводит значения температуры по дням в следующем виде:

1-й день: температура воздуха 15 градусов.
2-й день: ... и т.д.

---

Домашнее задание

§ 3.5 учебного пособия, ответить на вопросы после параграфа.

---

Форма отправки файлов

Форма видна только зарегистрированным пользователям.

---

Примеры решения задач

Пример 1. Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

Program posled;
Var a: array[1..100] of integer;
      i, n: integer;
Begin
  Write ('Сколько элементов? ');
  Readln (n);
   For i:=1 to n do
       begin                       // Диапазон чисел на промежутке [a,b] 
            a[i]:= Random(58)-23;  // задается формулой: random(b-a+1)+a;
             writeln (a[i],' ');
       end;
End.

Пример 2. Изменим программу из Примера 1 так, чтобы на экран выводились элементы массива в обратном порядке (цикл for … downto …)

Program obrposled;
Var a: array[1..100] of integer;
      i, n: integer;
Begin
  Write ('Сколько элементов? ');
  Readln (n);
   For i:=n downto 1 do
       begin      
            a[i]:= Random(58)-23;
             writeln (a[i],' ');
       end;
End.

Пример 3. Cмировать и вывести на экран последовательность из n вещественных элементов, заданных датчиком случайных чисел на интервале [40.0, 41.0).

Program realposled;
Var a: array[1..100] of real;
      i, n: integer;
Begin
  Write ('Сколько элементов? ');
  Readln (n);
   For i:=1 to n do
       begin                       // Функция Random без аргумента генерирует случайные
            a[i]:= 40+Random;      // вещественные числа на промежутке [0,1)
             writeln (a[i],' ');   // т.о. случайное число из промежутка [z, z+1)
       end;                        // получаем по формуле z+random;
End.

Пример 4. В качестве примера рассмотрим печать вещественного числа в различных форматах.

program write;
var
  x: real;
begin
  x := -12345.12345;
  writeln('Печать вещественного числа':50);
  writeln('Форматированный вывод:');
  writeln(x:3:0);
  writeln(x:3:1);
  writeln(x:12:5);
  writeln(x:20:5);
end.