program spiral;
uses Graph;
var
grdrive, grmode, x, y: integer;
begin
grdrive:=detect;
initgraph(grdrive,grmode,'d:/bp70/bgi');
setcolor(3);
SetFillStyle(1,1);
FloodFill(1,4,1);
setcolor(16);
SetFillStyle(1,5);
x := 0;
repeat
y:=GetMaxY div 2-trunc(150*sin((x - GetMaxX div 2) * Pi / 180));
FillEllipse(x,y,20,20);
Inc(x, 10);
until x >= GetMaxX;
readln;
closegraph;
end.
Help Me!!!!! Графика на Паскале!!!!
Помогите кто-нибудь написать 3 программы на Паскале!!
Заранее спасибо!!!!!!
1)Постройте по периметру экрана цветные закрашенные квадраты. (размер средний, цвета любые)
2)Нарисовать шахматную доску 8 на 8 клеток.
3)Дана программа, рисующая много-много маленьких окружностей, расположенных ввиде круга(или эллипса). Нужно изменить что-то в этой программе, чтобы рисовалась синусоида из точно таких же маленьких окружностей.
вот сама программа:
program spiral;
uses Graph;
var
grdrive, grmode, x, y, t, i: integer;
begin
grdrive:=detect;
initgraph(grdrive,grmode,'d:/bp70/bgi');
setcolor(3);
SetFillStyle(1,1);
FloodFill(1,4,1);
t:=-5;
setcolor(16);
for i:=1 to 100 do
begin
t:=t + 2;
x:=320 + trunc(150*cos(t*10));
y:=210-trunc(150*sin(t*10));
SetFillStyle(1,5);
FillEllipse(x,y,20,20);
end;
readln;
closegraph;
end.
Заранее спасибо!!!!!!
1)Постройте по периметру экрана цветные закрашенные квадраты. (размер средний, цвета любые)
2)Нарисовать шахматную доску 8 на 8 клеток.
3)Дана программа, рисующая много-много маленьких окружностей, расположенных ввиде круга(или эллипса). Нужно изменить что-то в этой программе, чтобы рисовалась синусоида из точно таких же маленьких окружностей.
вот сама программа:
program spiral;
uses Graph;
var
grdrive, grmode, x, y, t, i: integer;
begin
grdrive:=detect;
initgraph(grdrive,grmode,'d:/bp70/bgi');
setcolor(3);
SetFillStyle(1,1);
FloodFill(1,4,1);
t:=-5;
setcolor(16);
for i:=1 to 100 do
begin
t:=t + 2;
x:=320 + trunc(150*cos(t*10));
y:=210-trunc(150*sin(t*10));
SetFillStyle(1,5);
FillEllipse(x,y,20,20);
end;
readln;
closegraph;
end.
Цитата:
Originally posted by Phobia
3)Дана программа, рисующая много-много маленьких окружностей, расположенных ввиде круга(или эллипса). Нужно изменить что-то в этой программе, чтобы рисовалась синусоида из точно таких же маленьких окружностей.
вот сама программа:
program spiral;
uses Graph;
var
grdrive, grmode, x, y, t, i: integer;
begin
grdrive:=detect;
initgraph(grdrive,grmode,'d:/bp70/bgi');
setcolor(3);
SetFillStyle(1,1);
FloodFill(1,4,1);
t:=-5;
setcolor(16);
for i:=1 to 100 do
begin
t:=t + 2;
x:=320 + trunc(150*cos(t*10));
y:=210-trunc(150*sin(t*10));
SetFillStyle(1,5);
FillEllipse(x,y,20,20);
end;
readln;
closegraph;
end.
3)Дана программа, рисующая много-много маленьких окружностей, расположенных ввиде круга(или эллипса). Нужно изменить что-то в этой программе, чтобы рисовалась синусоида из точно таких же маленьких окружностей.
вот сама программа:
program spiral;
uses Graph;
var
grdrive, grmode, x, y, t, i: integer;
begin
grdrive:=detect;
initgraph(grdrive,grmode,'d:/bp70/bgi');
setcolor(3);
SetFillStyle(1,1);
FloodFill(1,4,1);
t:=-5;
setcolor(16);
for i:=1 to 100 do
begin
t:=t + 2;
x:=320 + trunc(150*cos(t*10));
y:=210-trunc(150*sin(t*10));
SetFillStyle(1,5);
FillEllipse(x,y,20,20);
end;
readln;
closegraph;
end.
Код:
Цитата:
Originally posted by Phobia
2)Нарисовать шахматную доску 8 на 8 клеток.
2)Нарисовать шахматную доску 8 на 8 клеток.
Код:
program Chess;
uses
Graph;
const
Size = 20;
var
grDriver, grMode, x, y: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'd:/bp70/bgi');
SetFillStyle(SolidFill, Blue);
FloodFill(1, 1, Black);
SetColor(Red);
for y := 1 to 8 do
for x := 1 to 8 do begin
if Odd(x + y) then
SetFillStyle(SolidFill, White)
else
SetFillStyle(SolidFill, Black);
Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
FloodFill(x * Size + 1, y * Size + 1, Red);
end;
ReadLn;
CloseGraph;
end.
uses
Graph;
const
Size = 20;
var
grDriver, grMode, x, y: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode, 'd:/bp70/bgi');
SetFillStyle(SolidFill, Blue);
FloodFill(1, 1, Black);
SetColor(Red);
for y := 1 to 8 do
for x := 1 to 8 do begin
if Odd(x + y) then
SetFillStyle(SolidFill, White)
else
SetFillStyle(SolidFill, Black);
Rectangle(x * Size, y * Size, (x + 1) * Size, (y + 1) * Size);
FloodFill(x * Size + 1, y * Size + 1, Red);
end;
ReadLn;
CloseGraph;
end.