23 января: Информатика. 8A класс (1 группа)

 

23 января: Информатика. 8A класс (1 группа)

На прошлом уроке мы познакомились с командой цикла с параметром FOR и закрепили знания решением задач. Сегодня мы начинаем знакомство с операторами цикла While.
While — это цикл, в котором условие стоит перед телом. Причем тело цикла выполняется тогда и только тогда, когда условие true (истина); как только условие становится false (ложь), выполнение цикла прекращается.
While имеет формат:
while < условие> do <оператор 1>;  {Пока … делай ….}
Данный цикл подходит только для одного оператора, если же вы хотите использовать несколько операторов в своем коде, вам следует заключить их в операторные скобки — begin и end.

Уровень A. Напишите программу, которая получает с клавиатуры количество повторений и выводит столько же раз какое-нибудь сообщение.

Пример:

Сколько раз повторить? 3
Привет!
Привет!
Привет!

Уровень B. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько  раз в его десятичной записи встречается цифра 1.

Пример:

Введите число? 311
Единиц: 2
Уровень C. Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи.

Пример:

Введите число? 311
Наибольшая цифра: 3
Уровень D. Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.

Пример:

Введите число: 553
Ответ: да.

Пример:

Введите число: 535
Ответ: нет.
Задачу своего уровня (выбираете самостоятельно) решаете при помощи цикла While.

Ваши помощники:

Учебник
«Информатика, 8 класс», К.Ю. Поляков, Е.А. Еремин, параграф 20, стр. 152-156
Циклы.ppt - презентация (автор К.Ю. Поляков)
сайт: http://learnpascal.ru/cikly-v-paskal/for-while-repeat.html
видео:
Уроки Pascal. Урок 8 (Часть №2) Цикл While (цикл с предварительным условием).
Файлы:
Циклы.ppt (640.5 КБ)

Зубов Глеб
Проблема с оборудованием
Здравствуйте Сергей Алексеевич, у меня возникла проблема, что на моем компьютере не работает ни одна версия pascal, компьютер выдает ошибку при запуске кода, не знаю что делать.
0 ОтветитьЕщё
Сергей Мохов
Приходи в школу делать
0 ОтветитьЕщё
Сергей Мохов
Никита, не очень удачная версия решения из Интернета, я рассчитывал на самостоятельное выполнение...
0 ОтветитьЕщё
Сергей Мохов
Тимофей, как я должен догадаться какую задачу ты решил? Уровень не указан, ввод и вывод не соответствует образцу.
0 ОтветитьЕщё
Сергей Мохов
Гасан, не плохо!
0 ОтветитьЕщё
*
 
....