Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
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 і сторони виражені натуральними числами.
|
|