Презентация на тему: Операторы ветвления

Ветвление в полном варианте Ветвление в полном варианте

Ветвление в неполном варианте Ветвление в неполном варианте

Программа, Программа, рисующая 20 случайных окружностей в правой половине экрана

Program krugi; 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.

Домашнее задание: Домашнее задание: п. 7.9 – читать, составить программу, рисующую 10 случайных окружностей в левой нижней четверти экрана