1) Цикл for
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.
Питання для повторення:
Які цикли існують в мові Паскаль?
Який формат запису мають цикли WHILE і REPEAT?
В яких випадках зручно застосовувати ці цикли?
Чим відрізняється цикл WHILE від циклу REPEAT?
Чи буде зупинено виконання даного циклу? Чому?
s:=0; i: =1;
while i<=4 do
s:=s+i;
Завдання для самостійної роботи:
Дано натуральне число n.
Скільки цифр в числі n?
Скільки парних цифр в числі n?
Дано натуральне число n.
Обчислити, чи входить цифра 3 в запис числа n2.
Поміняти порядок цифр числа n на зворотний.
Переставити першу і останню цифри числа n.
Приписати по одиниці в початок і в кінець запису числа n.
Чи є число n - палиндромом? (9889 - так, 9878 -нет)
Дано натуральне число n. Чи є n ступенем 3.
Для даного натурального числа m>1. Знайдіть максимальне до, для якого ще виконується рівність 2k<m. (наприклад, якщо m=10, то k=3).
Для даного натурального числа m>1знайдіть мінімальне до, для якого вже виконується рівність до!>m. (Наприклад, якщо m=10, то k=4).
Вивчаємо “Цикли”
Тема уроку:
Вкладені цикли.
Мета заняття:
Закріпити знання по використовуванню різних типів циклів;
Отримати навики рішення алгоритмів з вкладеними циклами;
Вдосконалення уміння будувати програми мовою Паскаль. Виховувати уважність, активність на уроці.
Для вирішення задачі достатньо часто вимагається використовувати декілька вкладених один в одного циклічних конструкцій. Такі конструкції називають вкладеними циклами.