Презентация "Применение массивов"

Применение массивов

Блез Паскаль

Блез Паска́ль (фр. Blaise Pascal [blɛz pasˈkal]; 19 июня 1623, Клермон-Ферран,Франция —
19 августа 1662, Париж, Франция) — французский математик, механик,физик, литератор и философ. Классик французской литературы, один из основателей математического анализа, теории вероятностей и проективной геометрии, создатель первых образцов счётной техники, автор основного законагидростатики.

Создатель языка Pascal

Никлаус Вирт (нем. Niklaus Wirth, род. 15 февраля 1934 года) — швейцарский учёный, специалист в области информатики, один из известнейших теоретиков в области разработки языков программирования, профессор компьютерных наук (ETH), Лауреат премии Тьюринга 1984 года. Ведущий разработчик языков Паскаль, Модула-2, Оберон.

Массивы

Массивом называется упорядоченный набор однотипных данных. Массивам присвиваются имена. Количество элементов в массиве называется размерностью массива, например, 9a[1..23].
Примером массива является список учащихся в классном журнале
Каждый элемент массива имеет строго определенный номер в этом массиве. Обращение к элементам массива происходит путем указания имени массива и номера этого элемента в массиве, например, 9а[3], 9a[12] и т.д.
Объявление массива производится в разделе Var Pascal-программы путем объявления имени массива, ключевого слова array, размерности массива , например, [1..23] и типа данных элементов массива, например, of char;

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

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

Program temperature; {программа вычисления средней температуры}
Var
Temp : array[1..12] of real; {объявление массива температур}
i:integer;
Tav:real; { объявление средней температуры }
Begin
Tav:=0;
For i:=0 to 12 do
Begin { ввод массива температур }
Write(‘Input the temperature’);
Readln(Temp[i]);
End;
For i:=1 to 12 do |{суммирование }
Begin
Tav:= Tav + Temp[i];
End;
Tav:= Tav:/12; { нахождение средней температуры }
Writeln(‘The average temperature Tav during the year is’, Tav:2:6,’degrees’); { вывод данных }
End.