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

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

1. Как записывается цикл WHILE? 2. Как записывается цикл REPEAT? 3. Назовите различия циклов 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.

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

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<1; Writeln ('Chislo - ',x,' coderjit ', k, ' zifr'); readln; end. начало Ввод целого числа 0<x<10 k:=0;y:=x r:=y mod 10 c:=y div 10 k:=k+1; y:=c Цифры заданного числа x: k- ая цифра = r Число Х содержит k цифр Конец y<1 + -

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

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

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