While_Repeat

• Сегодня мы познакомились с логическими циклами While и Repeat .
• Узнали об их отличиях и особенностях применения.
• Рассмотрели примеры использования цикла WHILE .
• Обратили особое внимание на необходимость изменения в цикле переменной, которая участвует в условии завершения цикла.

С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить:

• Максимальное число в этой последовательности. Количество четных чисел.
• Максимальное число в этой последовательности.
• Количество четных чисел.

• § 14, стр 113 № 1(а, б, в)
• § 15, стр 115 № 1

• Когда нельзя использовать цикл FOR?
• Как записывается цикл WHILE?
• Как записывается цикл REPEAT?
• Назовите различия циклов WHILE и REPEAT .

Написать программу, которая «задумывает» число в диапазоне от 1 до 9 и предлагает пользователю угадать это число за 5 попыток.

Пояснения к программе:

• Компьютер может «задумать» число с помощью функции Random .
• Количество повторений цикла в этой задаче может быть от 1 до 5 – то есть, заранее не известно.
• Так как пользователь должен сделать хотя бы одну попытку, то логично использовать команду цикла Repeat…until .

Program Ugaday_chislo;

const Npop=5;

var comp, igrok, n: integer;

Begin

Randomize;

comp:=random(9)+1;

Writeln ('Game "Угадай число" ');

Writeln ( ‘ Комптьютер загадывает число от 1 до 9 ’ );

Writeln (‘Вы должны угадать это число');

Writeln ( ‘ за 5 попыток');

repeat

n:=n+1;

Write (‘Введите число- ');

readln(igrok);

until (n=npop) or (comp=igrok);

if comp = igrok

then Writeln ('Win')

else Writeln (' No win Chislo - ',comp);

readln; end.

0 . Алгоритм : Для того, чтобы не «потерять» заданное число, введем переменную y , значение которой сначала будет = x. С- целая часть от деления числа y на 10 R- остаток от деления y на 10 K- кол-во цифр в числе x Последовательно будем находить целую часть и остаток от деления числа y на 10.Именно остаток от деления будет очередной цифрой x . На каждом шаге будем изменять число y : присваивать ему значение целой части от деления y на 10.Для нахождения количества цифр организуем счетчик, значение которого будет увеличено на 1.Процесс повторяется пока значение числа y не станет меньше 1." width="640"

Найти все цифры и их количество заданного произвольного целого числа x0 .

Алгоритм :

Для того, чтобы не «потерять» заданное число, введем переменную y , значение которой сначала будет = x.

С- целая часть от деления числа y на 10

R- остаток от деления y на 10

K- кол-во цифр в числе x

Последовательно будем находить целую часть и остаток от деления числа y на 10.Именно остаток от деления будет очередной цифрой x . На каждом шаге будем изменять число y : присваивать ему значение целой части от деления y на 10.Для нахождения количества цифр организуем счетчик, значение которого будет увеличено на 1.Процесс повторяется пока значение числа y не станет меньше 1.

Program Zifry;

Uses Crt;

var x, y, c: longint;

r, k: integer;

Begin

clrscr;

Writeln ('Enter zeloe chislo do 10 snakov');

Readln (x);

writeln;

y:=x; k:=0;

Writeln ('Zifry zadannogo chisla:');

repeat

r:=y mod 10;

c:=y div 10;

k:=k+1;

y:=c;

Writeln (k,' zifra = ',r);

until y

Writeln ('Chislo - ',x,' coderjit ', k, ' zifr');

readln;

end.

начало

Ввод целого числа

0

k:= 0 ;y:=x

Цифры заданного

числа x:

r:=y mod 10

c:=y div 10

k:=k+1; y:=c

k- ая цифра = r

-

y

+

Число Х содержит

k цифр

Конец

• Сегодня рассмотрели примеры использования цикла REPEAT.

• Вывести на экран таблицу значений функции x 2 на отрезке [0,1] с шагом 0.1. Каждое число вывести в 8 позициях на отдельной строке.(Использовать команду Repeat)

• Выучить конспект, повторить § 14 и 15 .
• Написать программу, которая проверяет знание учениками таблицы умножения. Сомножители определяются с помощью функции Random . Каждому ученику дается 5 попыток, за которые программа выставляет оценку. Программу написать 3-мя способами – с использованием циклов For , While и Repeat .