Опорний конспеки з інформатики

Тема: «Цикл з передумовою
та післяумовою»

Команда циклу з передумовою в мові програмування Object Pascal має такий вигляд:

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

             Then begin

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

      end;

(while – поки)

Звертаємо вашу увагу:

• якщо в тілі циклу лише одна команда, то операторні дужки begin і end можна не ставити;

Приклад 1

Задача. Скільки потрібно взяти доданків, перший з яких дорівнює заданому дійсному числу, а кожний наступний на 3 більший від попереднього, щоб їхня сума перевищила 100?

Відповідний фрагмент проекту матиме такий вигляд:

var a, s: real; n: integer;

begin

a := StrToFloat (Edit1.Text);

s := a; n := 1;

while s <=100 do

begin

a := a+3;   s := s+a;

n := n+1;

end;

Label1.Caption := IntToStr(n);

end;

Оператор циклу з післяумовою

 REPEAT

Оператор циклу Repeat використовують у тих випадках, коли потрібно спочатку виконати деяку послідовність дій, а потім визначити, чи є потреба повторювати ці дії ще раз. Синтаксис оператора Repeat:

Блок операторів між Repeat і Until обов'язково виконується хоча б один раз.

Задача: Вивести парні числа від 2 до 12.

var k: Integer;

Begin

 k := 0;

 Repeat

  k := k + 2;

  Label1.Caption := IntToStr(k);

 Until  k > 10;

end;

Д/З Створити по можливості проект!

Задача: Полічити кількість слів у введеному користувачем тексті.

Які компоненти треба розмістити на формі?

Код проекту