Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Паскаль - лекциии.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
1 Mб
Скачать

Var ім 'я_масиву:аrrау[t1 ] of t2;

Де array - масив;

Of - із

tl – тип індексу, в ролі якого може бути стандартний тип, крім Real.

t2 - тип елементів масива, які допускаються в мові Pascal.

Для попереднього прикладу:

VAR A:ARRAY[1..3]OF REAL;

Якщо декілька масивів мають однаковий тип індексів та однаковий базовий тип, то допускається при описі об'єднувати масиви у список:

VAR A,B,C:ARRAY[1..3] OF REAL;

Елементи масиву можуть знаходитись як в лівій частині оператору присвоєння так і в виразах. Над елементами масиву можливо виконувати ті ж операції, які допускаються для даних його базового типу. Для введення та виведення числових значень масиву використовують цикл

For і:=1 to 3 do

Read(A[i]);

Даний цикл організує введення 3-х значень елементу масива A, а

цикл

For і: =1 to 3 do

Writeln(A[i] ); - виведення 3-х елементів того ж масиву.

Приклад: 1. Які із приведених описів одномірних масивів неправильні і чому ?

a) VarA: array[1..20] of real; +

b) Var В : array [integer] of char; (невірно заданий тип індексу)

c) Var C: array [false..true] of char; +

2. присвоїти нульові значення усім елементам масиву А : array['k'.. 'r']of real;

for i: ='k' to 'r' do

A[i]:=0;

Задача. Ввести текст, що складається із 30 символів. Надрукувати його в зворотньому порядку:

program mas1;

var mas: array[1..30] of char;

i: integer;

begin

writeln('Введіть символи');

for і: =1 to 30 do

read(mas [i]);

for i: =30 downto 1 do

write(mas[i]);

end.

Задача І: Обчислити суму 10 цілих чисел

Program s1;

Var su,i: integer;

X: array [1. . 10] of integer;

Begin

Su: =0;

Writeln('Bведіть числа: ');

For i:=1 to 10 do

Begin

Read(x[i]);

Su: =su+x[i] ;

End;

Writeln('su= ',su:4:2);

End.

Задача 2: Нехай c[1],...c[10] - кількість опадів, що випали в Києві на протязі перших 10 років нашого століття. Підрахувати середню кількість опадів та відхилення від середньої кількості для кожного року.

Program s2;

Var a,c :array[1..10] of real;

I: integer;

Sr,s :real;

Begin

S:=0;

Writeln( 'Введіть числа : ');

For і: =1 to 10 do

Begin

Read(c[i]);

S: =s+c[i];

End;

Sr:=s/10;

For i: =1 to 10

Begin

a[i] : =sr-c[i];

Wrileln(a[i]:4:2);

End;

End.

Тип масиву

В мові Паскаль крім явного опису масивів у розділі змінних є інша форма опису, що складається з двох етапів. Спочатку у розділі опису Туре вказується тип масиву, а потім в розділі опису змінних перераховуються масиви, що відносяться до вказаного типу. Введення типу масиву збільшує розділ опису, але в той же час спрощує відлагодження програми. Вказування типів у розділі опису допомагає досягти логічної ясності програми. Об'ява масиву в розділі типу має слідуючий вигляд:

Туре ім’я_muny=array[t1..t2]of mun;