Меню сайта

Начертить N окружностей.

uses graph,crt-

vargd,gm,n,i:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtext(‘Введите кол-во окружностей’)-

readln(n)-

clearviewport-

FOR i:= 1 TO n do

begin-

CIRCLE(Random(640),Random(480), 50)

end-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 26.11.12

Построениетреугольника по трем точкам.

uses crt,graph-

varx,x1,x2,y,y1,y2,gd,gm:integer-

a,b,c:real-

begin

clrscr-

writeln(‘Введите координаты первой точки (X и Y) послекаждой коор. ENTER’)-

readln(x)-

readln(y)-

writeln(‘Введите координаты второй точки (X1 и Y1)после каждой коор. ENTER’)-

readln(x1)-

readln(y1)-

(далее…)

Категория: Графика в Паскале | Дата: 26.11.12

Построениетреугольника по заданным координатам.

uses crt,graph-

vargd,gm,x,y,a,c:integer-

begin

clrscr-

writeln(‘Введите координаты центра звезды X и Y ‘)-

readln(x)-

readln(y)-

writeln(‘Введите длину луча звезды (не меньше 90)’)-

readln(a)-

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

c:=round(3/4*a)-

line(x,y-a,x+c,y+2*c)-

(далее…)

Категория: Графика в Паскале | Дата: 26.11.12

Построение -кораблика.

uses graph,crt-

var gd,gm:integer-

— — — a,h:real-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtextxy (30,0,’Введите высоту и длину палубы (H и Aчерез Enter)’)-

readln(h)-

readln(a)-

LINE (320 + round(a/ 2), 240 — round(h / 2),320 + round(a/2), 240 + round(h/ 2))-

LINE (320 + round(a/ 2), 240 — round(h / 2),320 — round(a / 2), 240 — round(h / 2))-

(далее…)

Категория: Графика в Паскале | Дата: 25.11.12

Рожица.

uses graph,crt-

var gd,gm:integer-

— — — c:char-

label 0,2,3-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

circle(320, 240,100)-

ellipse(320, 280,180, 360, 60,50)-

ellipse(320, 240,180, 360, 20,50)-

ellipse(280,200,0,360, 40,5)-

ellipse(360,200,0,360, 40,5)-

outtextxy (1,1,’сон(с) утро(у)’)-

(далее…)

Категория: Графика в Паскале | Дата: 25.11.12

Изобразитьтермометр.

uses graph,crt-

vargd,gm,y,x:integer-

— — — pressedkey:char-

— — label 0,1,2-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

ellipse (320, 240,360, 0, 28,200)-

y:= 440-

outtext(‘Press uparrow key for moving up/down arrow key for moving down’)-

outtextxy(1,10,’PressEsc to exit’)-

(далее…)

Категория: Графика в Паскале | Дата: 25.11.12

Построениеизображение заказанного четырехугольника.

uses graph,crt-

vargd,gm,choice:integer-

label 1,2,3,4-

begin

writeln (‘1-параллеограмм 2-прямоугольник 3-ромб 4-квадрат’)-

readln(choice)-

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

IF choice = 1 THENGOTO 1-

IF choice = 2 THENGOTO 2-

IF choice = 3 THENGOTO 3-

IF choice = 4 THENGOTO 4-

(далее…)

Категория: Графика в Паскале | Дата: 25.11.12

Управление точкой на экране.

uses graph,crt-

vargd,gm,x,y,x1,y1:integer-

— — — c:char-

label 0,1,2,3,4-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

y:= 50-

x:= 50-

outtext(‘Press up,down, left ,right aroow keys for moving the point’)-

outtextxy(10,10,’PressEsc to Exit’)-

0:

c:=readkey-

if c=chr(27) thenhalt-

(далее…)

Категория: Графика в Паскале | Дата: 24.11.12

Игра»Попади в центр мишени.

uses graph,crt-

vargd,gm,x,y:integer-

C:CHAR-

label 1-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

setfillstyle(2,1)-

bar(220, 140,420,340)-

setfillstyle(4,9)-

bar(270, 190,370,290)-

outtextxy (30,0,’введите координаты(x и y через ENTER)’)-

outtextxy(30,10,’PressEsc to Exit’)-

1:c:=readkey-

(далее…)

Категория: Графика в Паскале | Дата: 24.11.12

Закраскакругов разными цветами.

uses graph,crt-

var gd,gm:integer-

c:char-

label 0,2,3,4-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

setcolor(15)-

CIRCLE (320,220,10)-

CIRCLE (320,240,10)-

CIRCLE (320,260,10)-

outtextxy(10,10,’красный(к) желтый(ж) зеленый(з) — маленькие буквы’)-

outtextxy(10,20,’Выход — Esc’)-

(далее…)

Категория: Графика в Паскале | Дата: 24.11.12

Страница 1 из 212
Меню раздела
Блок