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

Про матеріал
Підготовлений міні- конспект з інформатики для учнів 8 класу. Тема: «Цикл з передумовою та післяумовою»
Перегляд файлу

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

Команда циклу з передумовою в мові програмування 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;

 


 

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

Компонент

Назва

Label1

Написати «Введіть текст» (Caption)

Label2

Написати «Кількість слів» (Caption)

Edit1

Видалити текст(Text)

Button1

Написати «Знайти кількість слів» (Caption)

Memo1

Видалити текст «Memo1»

 

 

 

 

 

 

 

Код проекту

 

 

 

 

 

 

 

 

 

docx
Додано
13 травня 2020
Переглядів
1056
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку