оператор2; …; > until
Здесь:
; ; … - операторы, образующие
тело цикла;<условие> - логическое выражение; если оно ложно, то выполняется тело цикла.
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Программирование циклов с заданным условием окончания работы
Содержание
- 1. Программирование циклов с заданным условием окончания работы
- 2. Программирование циклов с заданным условием окончания работыОбщий
- 3. program n_15; var i: integer; x: real;begin
- 4. ЗАДАЧА.Организуем ввод целых чисел и подсчёт количества
- 5. program n_17; var n, k1, k2: integer;begin
- 6. Скачать презентанцию
Программирование циклов с заданным условием окончания работыОбщий вид оператора:repeat until Здесь:; ; … - операторы, образующие тело цикла; - логическое выражение; если оно ложно, то выполняется тело цикла.
- ВКонтакте
- РћРТвЂВВВВВВВВнокласснРСвЂВВВВВВВВРєРСвЂВВВВВВВВ
- РњРѕР№ Р В Р’В Р РЋРЎв„ўР В Р’В Р РЋРІР‚ВВВВВВВВРЎР‚
Слайды и текст этой презентации
Слайд 2Программирование циклов с заданным условием окончания работы
Общий вид оператора:
repeat
оператор2; …; > until
тело цикла;<условие> - логическое выражение; если оно ложно, то выполняется тело цикла.
Слайд 3program n_15;
var i: integer; x: real;
begin
writeln ('График тренировок');
i:=1;
x:=10;
repeat
i:=i+1;
x:=x+0.1*x;
until x>=25;
writeln ('Начиная с
', i, '-го дня спортсмен будет пробегать 25 км')end.
Слайд 4ЗАДАЧА.
Организуем ввод целых чисел и подсчёт количества введённых положительных и
отрицательных чисел. Ввод должен осуществляться до тех пор, пока не
будет введён ноль.В задаче в явном виде задано условие окончания работы.
Воспользуемся оператором repeat.
Слайд 5program n_17;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
write ('Введите целое число>>');
readln (n);
if
n>0 then k1:=k1+1;if n<0 then k2:=k2+1;
until n=0;
writeln ('Введено:');
writeln ('положительных чисел – ', k1);
writeln ('отрицательных чисел – ', k2)
end.
