Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

Циклы и массивы

Организация условного перехода. Оператор IF.

Для программирования разветвляющихся процессов, содержащих две ветви, используется оператор IF условного перехода (ветвления), имеющий две конструкции.

Рекурсивные вычислительные процессы.

Функция может вызывать другую функцию, та в свою очередь третью и т.д. В результате программы приобретают иерархическую структуру.

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

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


  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).

massivih v paskalj..

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

massivih v paskalj...


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

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

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


Комментарии  

 
+2 # Юрий 22.03.2012 17:21
Здравствуйте! Продолжаю проявлять полученные навыки :) В строке 13 примера 28, на мой взгляд, рано ставить точку.
Ответить
 
 
+2 # Administrator 23.03.2012 17:12
Да,совершенно верно, спасибо за подсказку, сейчас исправлю.
Ответить
 
 
0 # 1640max 05.02.2013 19:33
Но эту прогу можно написать с применением for и без массивов :sigh:
Ответить
 
 
0 # Антон 24.02.2013 21:23
Ну раз уж тут речь идет о массивах...
Ответить
 
 
-2 # призрак 25.02.2013 06:04
паскаль реальная хрень :lol:
Ответить
 
 
-1 # WARRIOR 25.02.2013 06:05
8)
Ответить
 
 
0 # lolhlk 25.02.2013 06:07
;-)
Ответить
 
 
0 # windous 25.02.2013 06:10
паскаль рулит 8) ;-) :P
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальМассивы в Паскаль