Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемsokolniki.grodno.by
1 Операторы ветвления
2 Ветвление - такая форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность действий
3 ИЛИ СОКРАЩЕННУЮ ФОРМУ(2) 1 Условие Серия 1Серия 2 ДаНет Да Нет Условие Серия 1 2 КОМАНДА ВЕТВЛЕНИЯ ИМЕЕТ ПОЛНУЮ (1)
4 Ветвление в полном варианте
5 A > B ? A - максимальноеВ - максимальное ДаНет
6 Оператор ветвления в полном варианте IF (условие) THEN (операторы) ELSE (операторы); условие- з- записывается с помощью знаков сравнения и принимает два значения: да или нет Сложные условия составляют из простых с помощью логических операций (OR, AND, NOT) IF A>B THEN max:=A ELSE max:=B; IF (A>B)AND(A>C) THEN max:=A ELSE max:=100;
7 Ветвление в неполном варианте
8 ДаНет A > B ? B:=B*2
9 Оператор ветвления в неполном варианте IF (условие) THEN (операторы); IF A>B THEN B:=В*2;
10 Оператор передачи управления GOTO метка; метка- обязательно должна быть описана в блоке описания. В тексте программы ставится в той строке, на которую передается управление. После метки ставится двоеточие. Program neo; uses Graph; var x:integer; label 1; begin … goto 1; … 1: x:=10;
11 Программа, рисующая 20 случайных окружностей в правой половине экрана
12 Program krugi; Uses Graph; Var x,y,r,z,i,grDriver,grMode:integer; Label 1; Begin grDriver:=detect; initGraph(grDriver,grMode,d:/tp/bgi); randomize; for i:=1 to 20 do begin z:=random(15); y:=random(480); r:=random(100); setcolor(z); 1: x:=random(640); if x>340 then circle(x,y,r) else goto 1; end; readln; closeGraph; end.
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.