Читайте также:
|
|
Оператор циклу repeat має наступну форму:
repeat
оператори
until умова
На відміну від циклу while, умова обчислюється після чергової ітерації циклу, і якщо воно істинна, то відбувається вихід з циклу. Таким чином, оператори, що утворюють тіло циклу оператора repeat, виконуються принаймні один раз.
Зазвичай оператор repeat використовують у ситуаціях, де умову не можна перевірити, не виконавши тіло циклу. Наприклад:
repeat
read (x);
until x = 0;
Якщо умова завжди виявляється хибною, то може статися зациклення:
repeat
write (1);
until 2 = 1;
Щоб перервати зациклені програму, що виконується з інтегрованого середовища в режимі зв'язку з оболонкою, слід використовувати комбінацію клавіш Ctrl - F2 або пункт меню Програма / Завершити.
Приклади:
1. Знайти добуток перших натуральних чисел з використанням циклу з післяумовою.
Program dob;
Var s,i:integer;
begin
s:=1; i:=1;
Repeat
s:=s*i;
i:=i+1;
Until i>n;
End.
2. Вивести на друк усі цифри введеного цілого числа.
Program Maс;
Var a,b: longint;
Begin
Read(a); {введення цілого числа}
Repeat
b:=a mod 10; {вираховуємо крайню праву цифру числа}
Writeln(b); {друкуємо цифру}
a:=a div 10; {змінна а без крайньої правої цифри}
Until a=0;
End.
2. Завдання.
2.3. Скласти блок-схему та програму для обчислення циклічного
процесу.
2.4. Виконати програму, вивести результат.
3. Хід виконання роботи.
3. 1, Скласти блок-схему алгоритму
З, 2. Скласти програму мовою Паскаль, увести до ПК та виконати.
3.3. Виконати форматування результату та вивести його.
З, 4. Скласти звіт, який повинен містити.
- найменування та мету роботи;
- завдання;
- блок-схему алгоритму;
- текст програми;
- стислі відповіді на контрольні запитання.
4. Контрольні запитання.
4.1. Організація циклу з післяумовою.
Обчислити суму значень функції f(х) на інтервалі від А до В, з шагом ітерації
Х=0,02
ЛАБОРАТОРНА РОБОТА № 9
Дата добавления: 2014-12-18; просмотров: 23 | Поможем написать вашу работу | Нарушение авторских прав |