оно истинно, выполняется тело цикла;
- простой или составной оператор,
с помощью которого записано тело цикла.Программирование циклов с заданным условием продолжения работы
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
П рограммирование циклов с заданным условием продолжения работы
Содержание
- 1. П рограммирование циклов с заданным условием продолжения работы
- 2. Алгоритм мытья посуды:
- 3. Общий вид оператора:while do Здесь: - логическое
- 4. Задача 1. Не пользуясь операцией деления, получить
- 5. program n_14; var x, y, q, r:
- 6. Задача 2.Организуйте ввод целых чисел и подсчёт
- 7. program n_18; var n, k1, k2: integer;begin
- 8. Задача 3.Дано натуральное число. Определить сколько раз в нём встречается последняя цифра.
- 9. program z3; var n, k, z, m:
- 10. Д/з. НАПИСАТЬ КОНСПЕКТ, ФОТО ПРИСЛАТЬ В ЛС
- 11. Скачать презентанцию
Алгоритм мытья посуды:
Слайды и текст этой презентации
Слайд 3Общий вид оператора:
while do
Здесь:
- логическое выражение;
пока
оно истинно, выполняется тело цикла;
с помощью которого записано тело цикла.
Слайд 4Задача 1.
Не пользуясь операцией деления, получить частное q и
остаток r от деления целого числа x на целое число
y.
Слайд 5program n_14;
var x, y, q, r: integer;
begin
writeln ('Частное
и остаток');
write ('Введите делимое x>>');
readln (x);
write ('Введите
делитель y>>');read (y);
r:=x;
q:=0;
while r>=y do
begin
r:=r-y;
q:=q+1
end;
writeln ('Частное q=', q);
writeln ('Остаток r=', r)
end.
Слайд 6Задача 2.
Организуйте ввод целых чисел и подсчёт количества введённых положительных
и отрицательных чисел. Ввод должен осуществляться до тех пор, пока
не будет введён ноль.
Слайд 7program n_18;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
writeln
('Введите целые числа>>');
read (n);
while n0 do
begin
if n>0 then k1:=k1+1;if n<0 then k2:=k2+1;
read (n);
end;
writeln ('Введено:');
writeln ('положительных – ', k1);
writeln ('отрицательных – ', k2)
end.
n
Слайд 9program z3;
var n, k, z, m: integer;
begin
writeln ('Введите
число>>');
readln (n);
z:=n mod 10;
k:=0;
while n0 do
beginm:=n mod 10;
if m=z then k:=k+1;
n:=n div 10;
end;
writeln (k);
end.
