Программирование циклов с заданным условием продолжения работы

Сентябрь 7, 2022

Главная
Алгебра
Программирование циклов с заданным условием продолжения работы

Содержание

2. Алгоритм мытья посуды:
3. Общий вид оператора: while do Здесь: - логическое выражение; пока оно истинно, выполняется тело цикла; -
4. Задача 1. Не пользуясь операцией деления, получить частное q и остаток r от деления целого числа
5. program n_14; var x, y, q, r: integer; begin writeln ('Частное и остаток'); write ('Введите делимое
6. Задача 2. Организуйте ввод целых чисел и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен
7. program n_18; var n, k1, k2: integer; begin k1:=0; k2:=0; writeln ('Введите целые числа>>'); read (n);
8. Задача 3. Дано натуральное число. Определить сколько раз в нём встречается последняя цифра.
9. program z3; var n, k, z, m: integer; begin writeln ('Введите число>>'); readln (n); z:=n mod
10. Д/з. 1) Рабочая тетрадь № 189-192 2) Задача №4, №5
12. Скачать презентацию

Слайд 2

Алгоритм мытья посуды:

Слайд 3

Общий вид оператора:
while <условие> do <оператор>
Здесь:
<условие> - логическое выражение; пока оно

истинно, выполняется тело цикла;
<оператор> - простой или составной оператор, с помощью которого записано тело цикла.

Программирование циклов с заданным условием продолжения работы

Слайд 4

Задача 1.
Не пользуясь операцией деления, получить частное q и остаток

r от деления целого числа x на целое число y.

Слайд 5

program 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.
Организуйте ввод целых чисел и подсчёт количества введённых положительных и

отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль.

Слайд 7

program n_18;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
writeln ('Введите

целые числа>>');
read (n);
while n<>0 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.

Слайд 8