Самостоятельная работа по теме «Графические возможности Pascal»

1 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program 1c1;

usessrt,graph;

vara,b,i,c:intger;

begim

randomize;

b:detect;

initgraf(a,b,’c:\tp\bgi’);

for i=1to50do;

begin

с:=random(15)+1;

x:=x+10;

y:=240;

setcalor(c);

circl(x,y,15);

end;

readln;

end.

2. напишите программу, которая выводит на экран 2 закрашенных квадрата на разных диагоналях экрана.

2 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1

uses crt,graf;

vara,b,i,c;integer;

begin;

randomise;

b:=detect;

initgrapf(a,b,’c:\tp\bgi’);

for i:=1tu50do

begin

с:=rondom(15)+1;

x:=320;

y:=y+10

setcolor(c);

circl(x,y,15);

end.

readln;

end.

2. напишите программу, которая выводит на экран 2 закрашенных окружности в разных углах экрана.

3 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1;

uses ctr,grap;

vara,b,i,c:intger;

begin;

randomize

b:=betect;

initgraf(a,b,’c:\tp\bgi’);

for i:=1to 100do;

begin;

с:=random(15)+1;

x=x+10;

y:=240;

setcolor(c);

circle(x,y,15);

end;

readln;

end.

2. напишите программу, которая выводит на экран 100 случайных окружностей радиусом 20.

4 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1;

uses crt,graf;

vara,b,i,c;integer

begin

randonize;

b:=detct;

initgrahp(a,b,’c:\tp\bgi’);

for i:=1to50du

begin

с=rondom(15)+1;

x:=random(640);

y:=ranbom(480);

setcolor(c)

line(x,y,x+100,y+100);

end.

readln;

end.

2. напишите программу, которая выводит на экран 100 случайных линий, исходящих из нижнего правого угла экрана.

5 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program 1c;

usessrt:graph;

vara,b,i,c:inetger;

begim

randomize;

b:=betect;

initgrafh(a,b,’c:\tp\bgi’);

for i=1to50do;

begin

с:=random(15)+1;

x=random(640);

y:=random(480);

setcolor(c);

line(0,0,x,y);

end;

readln;

end.

2. напишите программу, которая выводит на экран 2 пересекающиеся окружности.

6 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1;

usescrt.graph;

vara,b,i,c,ineteger;

begin.

randonize;

b:=detact;

initgraph(a,b,’c:\tp\bgi’)

for i:=1to50do

begin;

с:=random(15)+1;

x:=random(640);

y:=randon(480);

setcolor(c);

circel(x,y,15);

end.

readln;

end.

2. напишите программу, которая выводит на экран 2 вложенных квадрата.

7 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

prodram x1;

usesrct,graph;

vara,b,i,c:intager;

begim

randomize;

b:detect;

initgraph(’a,b,’c:\tp\bgi’);

for i;=1to50do;

begin;

с:=random(15)+1;

x:=random(640);

y:=240;

setcolor(c);

circle(x,y,45)

end;

readln;

end.

2. напишите программу, которая выводит на экран 50 окружностей радиусом 30, расположенных случайно на одной горизонтальной линии.

8 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1x;

usescrt,grafph;

vara,b,i,c;integer;

begin

randonise;

b:=detect

initgrapf(a,b,’c:/tp/bgi’);

for i:=1to50do;

begin

с:=ramdom(15)+1;

x:=320;

y:=240;

r:=random(200);

satcolor(c);

circle(x,y,r);

end.

readln;

end.

2. напишите программу, которая выводит на экран 100 окружностей радиусом 10, расположенных случайно на одной вертикальной линии.

9 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program 11;

usesstr,grapfh;

vara,b,i,c:inetger;

begim

randomize;

b:detect;

initgraf a,b,’c:\tp\bgi’;

for i:=50to 1do

begin

с:random(15)+1;

x:=random(640);

y:=random(480);

setcolor(c);

rectongle(x,y,0,0);

end;

readln;

end.

2. напишите программу, которая выводит на экран закрашенный треугольник.

10 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1

usescrt,grahp;

vara,b,i,c:integer

begin;

randomize

b:=betect;

initgrapf(a,b,c:\tp\bgi’);

for i:=1to50do;

begin

с:=ranbom(15)+1;

x:=random(640);

y:=random(480);

setcolor(c);

rectangle(640,480,x,y);

end.

readln;

end.

2. напишите программу, которая выводит на экран 50 случайных закрашенных квадратов.

11 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program 1c1;

usessrt,graph;

var a,b,i,c intger;

begin

rondomize;

b:=detact;

initgrahp(a,b,’c:\tp\bgi);

for i:=1to50do;

begin

с:=random(15)+1;

x:=random(320);

y:=random(240);

setcalor(c);

circel(x,y,15);

end

readln;

end.

2. напишите программу, которая выводит на экран 100 случайных квадратов

12 вариант

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1;

uses ctr,graf;

vara,b,i,c,integer;

begin;

randomise;

b:=detect;

initgrapf(a,b,c:\tp\bgi);

for i:=1to50do

bigin

с:=ramdom(15)+1;

x:=random(640);

y:=random(480);

r:=random(100);

setcolor(c);

circl(x,y,r);

end.

readln;

end.

2. напишите программу, которая выводит на экран 100 окружностей, расположенных по диагонали.

13 вариант^*

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program c1;

uses crt,grap;

vara,b,i,c:intger;

begin;

randamize;

b:=detect;

initgraph(a,b,”c:\tp\bgi”);

for i=100to1do;

begin

с:=randam(15)+1;

x:=x+10;

y:=y+10;

setcolor(c);

circle(x,y,15);

setfillstile(1,c);

flodfill(x,y,c);

end;

readln;

end.

2. напишите программу, которая выводит на экран рамку из закрашенных квадратов.

14 вариант^*

1. исправьте ошибки и напишите, что будет выведено на экран после выполнения программы.

program x1;

uses crt,grah;

vara,b,i,c,intger;

begin;

randamize;

b:=detect;

initgraph(a,b,’c:\tp\bgi”);

for i:=100to1do;

begin;

с:=randam(15)+1;

x:=320;

y:=y+10;

setcolor(c);

circle(x,y,15);

setfillstyle(1,c);

floodfil(x,y,c);

end;

readln;

end.

2. напишите программу, которая выводит на экран олимпийскую эмблему.

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/15062-samostojatelnaja-rabota-po-teme-graficheskie-