Одномерные массивы в языке программирования Pascal Общие сведения

advertisement
Одномерные массивы в языке
программирования Pascal
Общие сведения
Задача

Проведите наблюдения
за изменением
температурного режима
в течение летнего
периода и определите
максимальную,
минимальную и среднюю
температуру.
Использовать таблицу!
Массив


Структурированный тип данных,
состоящий из фиксированного числа
элементов, имеющих один и тот же
тип.
Каждому элементу массива
соответствует его порядковый
номер и наоборот.
Описание массивов
Var <имя массива>: array [n1..n2] of <тип элементов>;


где n1, n2 – начальный и конечный номера элементов
массива.
Например,



Var a: array [1..10] of integer;
Var x,y: array [1..50] of real;
Var alf: array [1..33] of char;
Работа с массивами


Для обработки элементов массива
необходимо указывать рядом с именем
массива порядковый номер элемента в
квадратных скобках.
Например,




а[5],
a[10 div 2 - 5],
a[i],
a[i+1].
Действия над элементами
массива
1.
Элементу массива можно
присваивать какие-либо значения:

2.
a[i]:=0;
Элемент массива можно
сравнивать с каким-либо
значением:

a[i]<0.
Задание элементов массива

Ввод элементов массива с клавиатуры.
Program Massiv1;
uses crt;
const n=20;
var a:[1..n] of integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
begin
writeln(‘Введите a[‘, i, ‘]=‘);
readln(a[i]);
end;
for i:=1 to n do write(a[i]:5);
writeln;
readkey;
End.
Задание элементов массива

Задание элементов массива с помощью формулы.
Program Massiv2;
uses crt;
const n=30;
var f:[1..n] of integer;
i:integer;
Begin
clrscr;
f[1]:=1; f[2]:=1;
for i:=3 to n do
begin
f[i]:=f[i-1] + f[i-2];
write(f[i]:5);
end;
readkey;
End.
Задание элементов массива

Задание элементов массива датчиком
случайных чисел.





random - генерирует случайное
вещественное число в диапазоне [0,1).
random (x) - генерирует случайное целое
число в диапазоне [0,x).
x + random *(y-x) - генерирует случайное
вещественное число в диапазоне [x,y).
x + random (y-x) - генерирует случайное
целое число в диапазоне [x,y).
Для повышения «степени случайности»
существует процедура Randomize,
которая меняет базу генерации, ее
используют до функции Random.
Задание элементов массива

Задание элементов массива датчиком случайных чисел.
Program Massiv3;
uses crt;
const n=20; x=-10; y=10;
var a:[1..n] of real;
i:integer;
Begin
clrscr;
for i:=1 to n do
begin
a[i]:=x+random*(y-x+1);
write(a[i]:5:2);
end;
readkey;
End.
Задание элементов массива

Задание элементов массива из
файла.
Download