Одновимірні масиви(лінійна таблиця)
| Індекс
| 1
| 2
| 3
| 4
| 5
| 6
| 7
|
| елемент таблиці
| a[1]
| a[2]
| a[3]
| a[4]
| a[5]
| a[6]
| a[7]
| Таблиця визначається імям(ідентифікатором) і кількістю номерів - індексів(розмірністю), які визначають місце елемента таблиці в масиві. A[n] Порядок роботи з масивом. 1. Описати масив у розділі описів. Для цього вказати його розмірність(діапазон індексів) і тип елементів, що в нього входять. Всі елементи повинні бути одного типу. 2. Заповнити масив значеннями елементів масиву необхідними для розвязування задачі. 3. Вивести масив на екран для контролю правильності заповнення. 4. Обробити елементи масиву в процесі виконання програм. 5. Вивести результати виконання програми. Масив такої структури
індекс
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
Елементи
масиву
|
|
|
|
|
|
|
|
|
|
називається одновимірним(лінійним) масивом.
I. Формат опису: Варіант 1. var a,b,c:array[1..100] of real; Варіант 2. const n=10; var b:array[1..n] of integer; i:integer; Варіант 3. type massiv=array[1..20] of integer; var a,b,c:massiv; i:integer; Якщо таблиця(масив) має імя А, індекс - і , то елемент масиву А[і] II. Методи заповнення одновимірного масиву(лінійної таблиці) Варіант 1. За формулою( може бути іншою) for i:=1 to n do a[i]:=2+i*i; Варіант 2. З клавіатури for i:=1 to n do begin write('vvesti a[',i,']=');readln(a[i]);end; Варіант 3. Випадковими числами for i:=1 to n do a[i]:=random(100)+1; Варіант 4. Сталими числами const a:array[1..6] integer= =(3,5,7,9,11,13); ІІІ. Методи виведення елементів одновимірного масиву на екран. Варіант 1. У рядок for i:=1 to n do write( a[i]:4); Цілі числа for i:=1 to n do
write( a[i]:6:2); Дійсні числа
Варіант 2. У стовпчик for i:=1 to n do
writeln( a[i]:4); Цілі числа
for i:=1 to n do
writeln( a[i]:6:2); Дійсні числа Приклад програми: Дано одновимірний масив перших ста натуральних чисел. Вивести на екран елементи масиву, що кратні 5 по 10 чисел у кожному рядку. program pr1; var a:array[1..100] of integer; k,i:nteger; begin for i:=1 to n do a[i]:=i; k:=0; for i:=1 to n do begin if a[i] mod 5 =0 then begin k:=k+1; write(a[i]:4); end; if (k mod 10) =0 then writeln; end; end.
|