Program zadacha3_1a;

var i,n,s:integer;

Begin

writeln('введіть натуральне n'); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('сумма від 1 до',n,' = ',s);

End.

2) цикл WHILE

Program zadacha3_1b;

var i,n,s:integer;

Begin

writeln('введіть натуральне n'); readln(n);

s:=0; i: =1;

while i<=n do

Begin

s:=s+i;

i:=i+1;

End;

writeln('сумма від 1 до',n,'=',s);

End.

Цикл WHILE виконуватиметься до тих пір, поки виконується умова i<=n. Причому змінну i змінюємо усередині циклу.

3) цикл REPEAT

Program zadacha3_1c;

var i,n,s:integer;

Begin

writeln(' введіть натуральне n'); readln(n);

s:=0; i:=1;

Repeat

Begin

s:=s+i;

i:=i+1;

End;

until i>n;

writeln('сумма від 1 до',n,' = ',s);

End.

Цикл REPEAT. UNTIL виконуватиметься до тих пір, поки не виконатися умова i>n.

Задано натуральне число n. Обчислити суму цифр числа.

program zadacha3_4;

var n,sum,cif:integer;

Begin

writeln('Введіть n'); readln(n);

sum:=0;

while n>0 do

begin

cif:=n mod 10;

sum:=sum+cif;

n:=n div 10;

end;

writeln('Сумма цифр введеного числа = ',sum);

End.

Знайти мінімальне натуральне число, яке при розподілі на 2 дає в залишку 1, при розподілі на 3 дає в залишку 2, при розподілі на 4 - в залишку 3, при розподілі на 5 - в залишку 4, при розподілі на 6 - в залишку 5 а при розподілі на 7 дають в залишку 6.

program zadacha3_5;

var i, kl:longint;

Begin

kl:=0; i:=0;

while kl=0 do

begin

i:=i+1;

if (i mod 2=1) and (i mod 3=2) and (i mod 4=3) and (i mod 5=4) and (i mod 6=5) and (i mod 7=6) then kl:=1;

end;

writeln(i);

End.

Питання для повторення:

1. Які цикли існують в мові Паскаль?

2. Який формат запису мають цикли WHILE і REPEAT?

3. В яких випадках зручно застосовувати ці цикли?

4. Чим відрізняється цикл WHILE від циклу REPEAT?

5. Чи буде зупинено виконання даного циклу? Чому?

s:=0; i: =1;

while i<=4 do

s:=s+i;

Завдання для самостійної роботи:

1. Дано натуральне число n.

a) Скільки цифр в числі n?

b) Скільки парних цифр в числі n?

2. Дано натуральне число n.

a) Обчислити, чи входить цифра 3 в запис числа n2.

b) Поміняти порядок цифр числа n на зворотний.

c) Переставити першу і останню цифри числа n.

d) Приписати по одиниці в початок і в кінець запису числа n.

e) Чи є число n - палиндромом? (9889 - так, 9878 -нет)

3. Дано натуральне число n. Чи є n ступенем 3.

4. Для даного натурального числа m>1. Знайдіть максимальне до, для якого ще виконується рівність 2k<m. (наприклад, якщо m=10, то k=3).

5. Для даного натурального числа m>1знайдіть мінімальне до, для якого вже виконується рівність до!>m. (Наприклад, якщо m=10, то k=4).

Вивчаємо “Цикли”

Тема уроку:

Вкладені цикли.

Мета заняття:

1. Закріпити знання по використовуванню різних типів циклів;

2. Отримати навики рішення алгоритмів з вкладеними циклами;

3. Вдосконалення уміння будувати програми мовою Паскаль. Виховувати уважність, активність на уроці.

Для вирішення задачі достатньо часто вимагається використовувати декілька вкладених один в одного циклічних конструкцій. Такі конструкції називають вкладеними циклами.

Розглянемо декілька прикладів:

Дано натуральне число S. Вимагається написати програму для знаходження всіх прямокутників, площа яких рівна S і сторони виражені натуральними числами.