Зауважимо так само, що параметр циклу може і не використовуватися в тілі циклу, так що основне його призначення - це управління числом повторень циклу. Наприклад, значення y = xn, де n> = 0 - ціле, можна обчислити за наступним алгоритмом: попередньо покласти y = 1, а потім n раз домножити це значення на x:
Приклад коду програми циклу Паскаля:
Readln (n); (x);: = 1; i: = 1 to n do y: = y * x;
3.6 Математичні завдання
Задача 1. За допомогою циклу надрукувати на екрані:
Початок рахунку 3 5 7 9 Кінець счета.m;
VAR f: Integer; ('Початок рахунку');: = 3;: Write (f, ' ');: = f +2; f <= 9 then goto m; (' Кінець рахунки ')
END.
Завдання 2. 200 разів надрукувати слово ФУТБОЛ. m1, m2; i: Integer; i: = 1 ;: if i> 200 then goto m2; ('ФУТБОЛ');: = i +1; m1;
m2:.
Задача 3. Найпростіша
LABEL m1;
BEGIN: Write ('Це'); ('зробив'); ('Бауку'); ('Назира Балтабековна');
goto m1
END.
4. Програми
Додаток 1
Uses crt; i: integer;; i: = 1 to 10 do begin (i * i * i, '');;;.
Додаток 2
crt; n = 10; A: array [1 .. n] of integer;: integer;;; i: = 1 to n do begin [i]: = random (61) -30 ; (a [i], '');;; i: = 1 to n do begina [i] <0 then begin ('a [', i, ']: =', a [i], '' );;;;.
Додаток 3
crt; matrix: array [1 .. 25,1 .. 25] of integer;, i, j, k: integer;;; ('enter n ='); readln (n) ; i: = 1 to n doj: = 1 to n do begin [i, j]: = random (61) -30;;: = 0; i: = 1 to n doj: = 1 to n doi
Додаток 4crt; x: array [1 .. 4,1 .. 4] of integer;: array [1 .. n] of integer;, max, i: integer;, b: integer ;; ('Vvedite razmernost n ='); readln (n); a: = 1 to n do beginb: = 1 to n do [a, b]: = (2 * ab) * (3 * a +2 * b);;: = x [1,1];: = x [1,1]; i: = 1 to n do beginj: = 1 to n dox [a, b]
