Методические материалы по информатике к уроку по теме "Графика в среде Паскаль"(карточки)

КАРТОЧКА №4

Вариант №1

begin

setwindowsize(800,600);

circle(150,270,20);

ellipse(570,150,750,420);

end.

Вариант №2

uses graphABC;

begin

setwindowsize(800,600);

circle(150,270,20);

ellipse(570,150,750,420);

end.

Вариант №3

Данный вариант программы запусти 4 раза, каждый раз добавляя по строке, которые отмечены точкой:

uses graphABC;

begin

setwindowsize(800,600);

• circle(150,270,30);

• circle(150,370,30);

• circle(250,270,30);

• circle(250,370,50);

end.

Вариант №4

Данный вариант программы запусти 5 раз, каждый раз заменяя строку отмеченную жирным курсивом другим вариантом строки под знаком «/»

uses graphABC;

begin

setwindowsize(800,600);

ellipse(570,150,750,420); /ellipse(470,150,750,420);

/ ellipse(570,250,750,420);

/ ellipse(570,150,350,420);

/ ellipse(570,150,750,520);

end.

Выводы:

Uses graphABC – это________________________________________________________

ellipse(a,b,c,d) - это__________________________________________________________

circle(a,b,c) – это _______________________________________________________________________

КАРТОЧКА №5

Вариант №1

uses graphABC;

var x1,y1,x2,y2,i,j: integer;

begin

setwindowsize(800,600);

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,800,400);

setpencolor(clgreen);

setbrushcolor(clgreen);

rectangle(0,400,800,600);

end.

Вариант №2

uses graphABC;

var x1,y1,x2,y2,i,j: integer;

begin

setwindowsize(800,600);

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,800,400);

setpencolor(clgreen);

setbrushcolor(clgreen);

rectangle(0,400,800,600);

x1:=random(801);

y1:=random(251)+390;

x2:=x1+random(10)-5;

y2:=y1+random(20)+10;

setpencolor(rgb(random(255),255,random(255)));

line(x1,y1,x2,y2);

end.

Вариант №3

uses graphABC;

var x1,y1,x2,y2,i,j: integer;

begin

setwindowsize(800,600);

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,800,400);

setpencolor(clgreen);

setbrushcolor(clgreen);

rectangle(0,400,800,600);

for i:=1 to 1000 do

begin

x1:=random(801);

y1:=random(251)+390;

x2:=x1+random(10)-5;

y2:=y1+random(20)+10;

setpencolor(rgb(random(255),255,random(255)));

line(x1,y1,x2,y2);

end;

end.

Вариант №4

uses graphABC;

var x1,y1,x2,y2,i,j: integer;

procedure Trava(i,x1,y1,x2,y2: integer);

begin

for i:=1 to 1000 do

begin

x1:=random(801);

y1:=random(251)+390;

x2:=x1+random(10)-5;

y2:=y1+random(20)+10;

setpencolor(rgb(random(255),255,random(255)));

line(x1,y1,x2,y2);

end;

end;

begin

setwindowsize(800,600);

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,800,400);

setpencolor(clgreen);

setbrushcolor(clgreen);

rectangle(0,400,800,600);

Trava(1,0,0,0,0);

end.

Выводы:

procedure ? ( ? : ? )- это________________________________________________________________

Проанализировать данный фрагмент программы:

for i:=1 to 1000 do

begin

x1:=random(801);

y1:=random(251)+390;

x2:=x1+random(10)-5;

y2:=y1+random(20)+10;

setpencolor(rgb(random(255),255,random(255)));

line(x1,y1,x2,y2);

end;

КАРТОЧКА №1

Вариант №1

begin

setbrushcolor(clblue);

rectangle(0,0,800,400);

end.

Вариант №2

uses graphABC;

begin

setbrushcolor(clblue);

rectangle(0,0,800,400);

end.

Вариант №3

uses graphABC;

begin

setbrushcolor(clgreen);

rectangle(0,400,800,600);

end.

Вариант №4

uses graphABC;

begin

setwindowsize(800,600);

setbrushcolor(clblue);

rectangle(0,0,800,400);

setbrushcolor(clgreen);

rectangle(0,400,800,600);

end.

Выводы:

Uses graphABC – это________________________________________________________

setbrushcolor() – это_________________________________________________________

rectangle(а,в,с,d) – это________________________________________________________

Как относительно окна вывода располагается точка начала координат(0,0)?__________

__________________________________________________________________________

КАРТОЧКА №2

Вариант №1

begin

setpencolor(clblack);

line(50,300,150,200);

end.

Вариант №2

uses graphABC;

begin

setpencolor(clblack);

line(50,300,150,200);

end.

Вариант №3

uses graphABC;

begin

setpencolor(clgreen);

line(50,300,150,200);

end.

Вариант №4

uses graphABC;

begin

setpencolor(clblack);

line(50,300,150,200);

line(150,200,250,300);

line(400,200,500,300);

line(150,200,400,200);

end.

Выводы:

Uses graphABC – это________________________________________________________

setpencolor()– это___________________________________________________________

line(a,b,c,d) – это____________________________________________________________

Как относительно окна вывода располагается точка начала координат(0,0)?__________

__________________________________________________________________________

КАРТОЧКА №3

Вариант №1

begin

line(50,300,150,200);

line(150,200,250,300);

line(400,200,500,300);

line(150,200,400,200);

line(50,300,500,300);

end.

Вариант №2

uses graphABC;

begin

line(50,300,150,200);

line(150,200,250,300);

line(400,200,500,300);

line(150,200,400,200);

end.

Вариант №3

uses graphABC;

begin

line(50,300,150,200);

line(150,200,250,300);

line(400,200,500,300);

line(150,200,400,200);

floodfill(150,250,clsilver);

end.

Вариант №4

uses graphABC;

begin

line(50,300,150,200);

line(150,200,250,300);

line(400,200,500,300);

line(150,200,400,200);

line(50,300,500,300);

floodfill(150,250,clsilver);

floodfill(300,250,clMaroon);

end.

Выводы:

Uses graphABC – это________________________________________________________

floodfill (a,b,c)– это__________________________________________________________