Использование массивов.

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

 Использование массивов.

1. program massiv2;
2. uses crt;
3. var
4.   mes: array [1..12] of integer;
5.   i: integer;
6.   sredtemp: real;
7. begin
8. clrscr;
9. for I:=1 to 12 do
10. begin
11.    write ('Введите температуру ',I, ' месяца ');
12.    readln (mes[I]);
13. end;
14. sredtemp:=0;
15. for I:=1 to 12 do
16. begin
17.  sredtemp:=sredtemp+mes[I]
18. end;
19. sredtemp:=sredtemp/12;
20. write ('Средняя температура за год ',sredtemp:3:2);
21. readln
22. end.

В строке №4 записываем массив.

В строке №5 вводим переменную «i». Практически во всех программах для работы с массивами необходимы и циклы. Переменную «i» будем использовать в качестве счетчика для цикла.

В строке №6 записываем переменную для хранения значения средней температуры.

В строке №9 записываем цикл. Напомню, что если в цикле нам необходимо повторить более одного оператора, то эти операторы заключаются в операторные скобки begin .. end. В нашей программе нам необходимо вывести на экран сообщение 12 раз (строка №11) и ввести с клавиатуры значение 12 раз (строка №12). Соответственно, эти строки должны находиться внутри конструкции begin..end.

В строке №11 выводим на экран сообщение «ВВЕДИТЕ ТЕМПЕРАТУРУ».  Потом указывается значение переменной «I». В цикле, оно будет принимать значения  от 1 до 12. В конце дописываем сообщение «МЕСЯЦА»

В строке №12 вводим с клавиатуры значение температуры для каждого элемента массива, т.е. всего мы введем 12 значений.

В строке №14 обнулим среднюю температуру. Скажу несколько слов об этом обнулении. Когда мы создали переменную «sredtemp», под эту переменную автоматически выделяется 6 байт в памяти компьютера. Эти 6 байт ничем не заполняются, то есть первоначально там ничего нет. Если, например, мы запишем sredtemp:=345, то память заполнится числом 345. Или, например, у нас есть переменные «sredtemp», в которой записано число 25 и «A», в которой записано число 75, тогда при sredtemp:=sredtemp+A переменная «sredtemp» перезапишется. Вместо числа 25 в нее запишется число 100. Новое значение переменной «sredtemp» (число 100) получается путем прибавления к старому значению этой переменной (25) значения переменной «A» (75). В нашем примере, переменная «sredtemp» перезаписывается, путем прибавления к старому значению этой переменной значения элемента массива (строка №17). Значение элемента массива у нас есть (мы вводим это значение с клавиатуры), но нам нужно знать и старое значение переменной «sredtemp», а без строки №14 мы его бы не знали.

В строке №15 пишем цикл для подсчета суммы всех температур.

Строка №17. Средняя температура равна сумме старого значения температуры и значения I-го элемента массива. Благодаря циклу, в переменную «sredtemp» запишется сумма всех элементов массива (т.е. сумма всех температур, которые мы вводим с клавиатуры).

Строка №19. Подсчитываем среднюю температуру путем деления суммы температур всех месяцев на количество этих месяцев.

Следует сказать, что операторные скобки (строка №16 и №18) здесь не обязательны, т.к. в цикле (строка №15) выполняется лишь один оператор (строка №17).

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

Предыдущая статья : Массивы в Pascal.

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

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