При виведенні елементів масиву у рядок бажано зазначити формат виведення, наприклад, write (М[і]: 10:3)— для дійсних чисел або write (М[і] :5)—для цілих.
Можна об'єднувати в одному циклі кілька етапів розв'язування задачі. Наприклад, заповнення масиву та виведення елементів масиву для контролю на екран.
Розглянемо типові завдання з одновимірними таблиць.
ЗАДАЧА № 293 (1)
Умова: Записати наведені нижче послідовності змінних з індексами у вигляді послідовностей елементів масивів: (сj), де (j =-3, -2,..., 3).
Умова: Нехай нижня та верхня межі індексів одновимірного масиву S дорівнюють відповідно -10 та 32. Визначити значення індексів елементів масиву S, порядковими номерами яких є:
№ варіанту
Завдання
Відповідь
S[-10]
S[-8]
S[-1]
S[1]
S[21]
ЗАДАЧА № 299
Умова: Нехай елементи одновимірного масиву А[1..1О] набувають відповідно значень -5, -3, -1, 1, 3, 5, 7, 9, 11, 13. Які значення буде надруковано в результаті виконання таких операторів:
№ варіанта
Завдання
Відповідь
Примітка
For i:=l to 5 do
Writeln(A[i+5])
Друкується тільки п'ять останніх елементів масиву, тому що змінна циклу змінюється від 1 до 5, а індекс елементів масиву від 6 (1+5) до 10 (5+5)
i:=l;
While A[i]<0 do
Begin
i:=i+l;
Writeln(A[i])
End;
-5
-3
-1
Друкуються тільки від'ємні елементи масиву, тому що умова виходу з циклу така, що коли А[і]<=0, він припинить свою роботу.
i:=l;
repeat
i:=i+l;
Writeln(A[i])
until A[i]>=0;
-3
-1
Елементи масиву друкуються до першого додатного значення зліва направо. 1-й елемент масиву не друкується тому, що в тілі циклу спочатку змінюється індекс, і виконується друк.
ЗАДАЧА № 311 (2)
Умова: Дано одновимірний масив цілих чисел А[і], де і = 1, 2, ...n. Вивести елементи масиву з парними індексами.
Разв'язання: В даному випадку незручно користуватися для виведення на екран елементів з парними індексами циклом з параметром, тому що він дозволяє зміну індексу тільки на одиницю. Тому пропонуємо скористатися циклом з перед — або післяумовою.
Program Example_311_2;
Uses crt;
Var N,і:word; {N — кількість елементів масиву, і — змінна циклу)
A:array[1..100] of longint; {A — заданий масив}
Begin
Clrscr;
Write('Введіть кількість елементів масиву (<100):');
Readln(N);
For i:=1 to N do
Begin
А[і] :=random(300) ; {Заповнення масиву випадковими числами}
{Виведення масиву на ехран для контролю правильності роботи програми}
Write(A[i]:5);
End;
Writeln; {Переведення курсору на наступний рядок}
і:=2;
while i<=N do
Begin
Write(A[i]:5);
i:=i+2; {Змінна циклу змінюється на 2, щоб вибрати тільки парні елементи}