20. Цикл с параметрами

Используется оператор for i:= m₁ to m₂ do m₃

где i - переменная цикла; m₁,m₂ - начальное и конечное значения цикла;

m₃ - тело цикла(один или несколько операторов);

Пример: Вычислить у=x²/2x; x = 1, 5 h = 1

program msx;

var y,x,h,i:integer;

begin

x:=1; h:=1;

for i:=1 to 5 do

begin

y:=sqr(x)/(2*x);

writeln( y=,y);

x:=x+h;

end;

end.

21. Цикл с предусловием

Используется оператор: while m₁ do m₂

где m₁ - логическое выражение; m₂ - тело цикла;

program msx;

var y,x,h:integer;

begin

x:=1;h:=1;

while x<= 5 do

begin y:=sqr(x)/(2*x);

writeln( y=,y);

x:=x+h;

end;

end.

22. Цикл с постусловием

Используются операторы repeat m₁ и until m₂

где m₁ -тело цикла; m₂ - условие окончания цикла.

program msx;

var y,x,h:integer;

begin

x:=1; h:=1;

repeat

y:=sqr(x)/(2*x);

writeln( y=,y);

x:=x+h;

until x>= 5

end.

23. Графика в Паскале

line(x1,y1,x2,y2) - линия;

circle(x,y,r) - окружность;

arc(x,y,1,2,r) - дуга радиуса;

rectangle(x1,y1,x2,y2) - прозрачный прямоугольник;

ellipse(x,y,1=270^o,2=90^o,xr,yr) - эллиптическая дуга;

bar(x1,y1,x2,y2) - залитый цветом прямоугольник;

pieslice(x,y,1,2,r) - залитый сектор окружности;

fillellipse(x,y,xr,yr) - залитый цветом эллипс;

floodfill(x,y,c) - заполнение области вокруг точки;

setcolor(c) - установка цвета изображения;

setbkcolor(c) - установка цвета фона:

0 - чёрный; 1 - синий; 2 - зелёный; 3 - бирюзовый

4 - красный; 5 - малиновый; 6 - коричневый;

7 - светлосерый; 8 – тёмнокоричневый; 9 - яркосиний;

10 - яркозелёный; 11- яркобирюзовый; 12 – яркокрасный;

13 - яркомалиновый; 14- жёлтый; 15 - белый.

setfillstyle(тип заливки, цвет заливки) – штриховка.

Тип заливки:

0 - нет штриховки; 5 - \\\\тонкая; 10 - крупные точки;

1- сплошная; 6 - \\\\толстая; 11 - мелкие точки

2 штриховая - - - -; 7 - сетка;

3 - ///тонкая; 8 - штрих-пунктирная;

4 -////толстая; 9 - решётка;

setlinestyle(тип линии [0,1],0,ширина[1,3]);

program nnn; uses graph, crt;

Var gd,gm:integer; t:char;

begin

gd:=detect; initgraph(gd,gm,'');

  setcolor(4); setlinestyle(0,0,3); setfillstyle(6,10);

circle(130,175,120); floodfill(130,175,4);

 setcolor(13); setlinestyle(0,0,3); setfillstyle(7,6);

circle(370,175,120); floodfill(370,175,13);

  setcolor(0);

setfillstyle(1,0);pieslice(70,175,0,360,50);

  setfillstyle(1,1);pieslice(190,175,0,360,40);

setfillstyle(1,4);pieslice(310,175,0,360,30);

setfillstyle(1,10);pieslice(460,175,0,360,20);

  setcolor(4); circle(590,175,10);

setcolor(14);

line(130,55,600,55); line(600,55,600,295); line(130,295,600,295);

  t:=readkey;closegraph;

end.