11 клас (академ). Команди циклу з передумовою та циклу з післяумовою в Delphi. - 11 клас (академічний) - Інформатика - Каталог статей - Кабінет інформатики Черкаської СПШ №20
Кабінет 208
Головна | Реєстрація | Вхід
П`ятниця, 09.12.2016, 21:17
Меню сайту
Форма входу

Категорії розділу
5 клас [11]
6 клас [24]
7 клас [16]
8 клас [15]
9 клас [25]
10 клас (стардарт) [17]
10 клас (академічний) [23]
11 клас (стандарт) [21]
11 клас (академічний) [33]
Головна » Статті » Інформатика » 11 клас (академічний)

11 клас (академ). Команди циклу з передумовою та циклу з післяумовою в Delphi.
Команди циклу з передумовою та циклу з післяумовою в Delphi.


Якщо кількість повторень команд тіла циклу до початку виконання команди циклу невідома, потрібно використовувати команду циклу з передумовою або команду циклу з післяумовою.

Загальний вигляд команди циклу з передумовою такий:

while  <логічний вираз> do begin

    <команди тіла циклу>

end;

Якщо тіло циклу складається лише з однієї команди, операторні дужки begin і end можна не ставити.

Виконується команда циклу з передумовою так:

1.                   Обчислити значення логічного виразу (перевірити умову).

2.                   Якщо це значення true (умова істина), то виконати команди тіла циклу і перейти до п. 1, а якщо false (умова хибна), то виконати команду, наступну за командою циклу.

Задача 2. Обчислити суму додатних членів арифметичної прогресії з додатним першим членом і від’ємною різницею.

var a, d, s: Real; 

begin

a := StrToFloat (Edit1.Text);  d := StrToFloat (Edit2.Text); s := 0;

if d<0 then while a > 0 do begin   s := s + a;   a := a + d; end;

Label1.Caption := FloatToStr (s);

end;

Виконання цього фрагменту програми для a=7 та d= 3  на стор. 89.

Загальний вигляд команди циклу з післяумовою такий:

repeat 

    <команди тіла циклу>

until <логічний вираз>;

(англ. repeat повторити, until – не раніше як).

Виконується команда циклу з післяумовою так:

1.        Виконати команди тіла циклу.

2.        Обчислити значення логічного виразу (перевірити умову).

3.        Якщо це значення false (умова хибна), то виконати п.1, а якщо true (умова істина), то виконати команду, наступну за командою циклу (за логічним виразом). 

Команду циклу з післяумовою доцільно використовувати в тих випадках, коли команди тіла циклу повинні виконатися хоча б один раз.

Запишемо фрагмент програми для розв’язування Задачі 2 з використанням циклу з післяумовою:

var a, d, s: Real; 

begin

a := StrToFloat (Edit1.Text); d := StrToFloat (Edit2.Text); s := 0;

if d<0 then

repeat

   s := s + a;  a := a + d;

until a <= 0;

Label1.Caption := FloatToStr (s);

end;


Домашнє завдання (1 хв) 

§2.9 стор. 86-90; пит. 1-12 стор. 93   Впр. 3(б,в), 7 (фрагмент програми) стор. 94




Категорія: 11 клас (академічний) | Додав: admin (06.10.2013)
Переглядів: 1368
Пошук
Статистика

Онлайн всього: 2
Гостей: 2
Користувачів: 0
Copyright MyCorp © 2016
Безкоштовний хостинг uCoz