Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

ЛАБОРАТОРНА РОБОТА № 9. Оператор циклу repeat має наступну форму :

Читайте также:
  1. IV. Лабораторная диагностика ВИЧ-инфекции
  2. X. Робота самодіяльних організацій засуджених.
  3. XV. Аналітична робота.
  4. Ассемблер. Лабораторная работа № 5
  5. Бычий цепень. Систематическое положение, морфология, цикл развития, лабораторная диагностика. Тениаринхоза.
  6. Вирус папилломы человека. Характеристика. Онкогенность. Лабораторная диагностика
  7. Виховна та позакласна робота.
  8. Данная лабораторная работа предполагает освоение базовых принципов работы с консолью в Linux.
  9. Дипломна робота
  10. Емісійно-касова робота установ Національного банку України

Оператор циклу 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 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2024 год. (0.005 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав