Использование массивов (продолжение).

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

 Использование массивов (продолжение).

program massiv3;
uses crt;
const N=10;
type X=array [1..N] of integer;
var LINE:X;
I:integer;
begin
clrscr;
for I:=1 to N do
begin
write (‘Введите ’,I, ‘ число ’);
readln (LINE[I]);
end;
for I:=1 to N do
write (-LINE[I]:5);
writeln;
readln
end.

В строке №3 объявляем раздел описания констант Const. Записываем константу «N» и присваиваем ей значение 10. Это значение не будет меняться по ходу выполнения программы.

В строке №4 объявляем массив. Для объявления массива мы использовали новый раздел Type. Это раздел для описания типов переменных. Эти типы определяет сам пользователь. Здесь мы объявляем массив из целых чисел.  [1..N] – это диапазон чисел, причем N заранее определен в разделе констант Const и равен 10. Если бы мы объявляли массив старым способом, то у нас получилась бы такая строка: var LINE:array [1..N] of integer. В нашем примере мы записываем так: type X=array [1..N] of integer. А далее, в строке №5, мы записываем переменную LINE и указываем для нее тип данных X. Получается, что для переменной мы указываем тип данных, который описали в строке №4 в разделе Type. Можно объявлять массивы любым способом: и в разделе описания переменных Var, и в разделе описания типов переменных Type. Однако, с точки зрения грамотного стиля составления программы, второй вариант более предпочтителен.

В строке №6 записываем переменную «I», которая будет являтся счетчиком для цикла.

Строка №9. Записываем цикл. Следует помнить, что после записи for I:=1 to N do у нас следуют операторы, которые необходимо заключать в отдельный блок begin…end. В нашей программе 2 оператора (строка №11 и №12) заключены в отдельный блок, поэтому цикл for I:=1 to N будет выполняться для обоих этих операторов (10 раз будет выводиться сообщение на экран и 10 раз будем вводить число с клавиатуры).

В строке №14 задаем новый цикл for I:=1 to N do для оператора write (-LINE[I]:5). Таким образом, мы выводим на экран значения всех элементов массива. (элементы массива содержат значения, которые мы ввели с клавиатуры). Так как нам необходимо вывести эти значения на экран с противоположным знаком, перед LINE[I] ставиться знак «-» . Кроме того, указываем формат вывода для каждого числа (:5). В результате, при выводе на экран, под каждое число будет выделено 5 знакомест.

Запускаем программу и вводим 10 различных чисел, как отрицательных, так и положительных

Мы видим, что положительное число вывелось в нижней строке отрицательным, а отрицательное – положительным.

Предыдущая статья : Использование массивов.

Оглавление : Уроки Паскаль. Массивы.

Следующая статья : Randomize и Random в Pascal.