Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Отчеты по практике » Редагування та налагодження програм за допомогою Pascal

Реферат Редагування та налагодження програм за допомогою Pascal

Тема: Отчеты по практике

writeIn ('Введи координати центра кола і радіус ');

readln (x, y, r); p> gd: = 0; gm: = 0; initgraph (gd, gm, '');

circle (x, у, г);

getaspectratio (xa, ya);

x1: = x-r; у1: = round (y-r * (xa/ya));

x2: = x + r; y2: = round (y + r * (xa/ya));

rectangle (xl, yl, x2, y2);

while not keypressed do;

closegraph end. br/>

Завдання 9. Побудувати дугу від 0 до 90 градусів і від 270 до 450 градусів

program приклад;

[дуги окружності від 0 до 90 і від 270 до 450]

uses graph, crt;

var gd, gm, x, y, r, xl, yl: integer; Xа, уа: word;

begin

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

getaspectratio (xa, ya);

{будуємо осі координат}

line (0,100,300,100); line (150,0,150,200);

{будуємо дугу від 0 до 90}

АГС (150,100,0,90,40);,

line (310, 100,610,100); line (460,0,460,200);

{будуємо дугу від 270 до 450}

arc (460,100,270,540,40);

while not keypressed do; end.

Заданіе10. Побудувати дуги Еліпс

program приклад;

[дуги еліпсів при різному співвідношенні Rx і Ry]

uses graph, crt;

var gd, gm: integer; xa, ya: word;

begin

gd: = 0; gm: = 4; initgraph (gd, gm, '');

getaspectratio (xa, ya);

{перша дуга}

line (0,100, l60, 100);

line (80, 55, 80,145);

ellipse (80,100,180, 90,40,40);

{друга дуга}

line (190,100,410,100);

line (300,55,300, 145);

ellipse (300, 100, 0, 359,100,20);

{третя дуга}

line (440,100,600,100);

line (520,55,520,145);

ellipse (520, 100, 0,270,40, round (40 * (xa/ya)));

while not keypressed do; end.

Заданіе11. Побудувати прямокутники в два ряди по чотири прямокутники в ряд і заповнити їх відповідно 12-ма різними типами штрихування

program приклад;

{демонстрація квітів заповнення}

uses graph, crt;

var gd, gm, x, y, k, j: integer;

begin

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

x: = 60; y: = 40;

for j: = 0 to 2 do

for k: = 0 to 3 do

begin

rectangle ((k + 1) * x, (j +1) * y, (k +2) * x, (j +2) * y);

setfillstyle {k + j * 4, j +1);

bar ((k +1) * x +1, (J +1) * y +1, (k +2) * x-1, (j +2) * y-1)

end;

while not keypressed do;

end.

Заданіе12. Побудувати окружність і описати навколо неї квадрат, а потім область всередині квадрата, але поза окружності зафарбувати кольором фону

program приклад;

{квадрат і вписана окружність}

uses graph, crt;

var gd, gm, x, y, r, xl, yl, x2, y2: integer; xa, ya: word;

begin

writeln ('введи координати центру кола і радіус ');

readln (Х, у, г);

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

setcolor (3); circle (x, y, r);

getaspectratio (xa, ya);

x1: = x-r; yl: = round (у-r * (xa/ya));

x2: = x + r; y2: = round (y + r * (xa/ya));

rectangle (x1, y1, x2, y2);

floodfill (x1 +1, y1 +1,3);

floodfill (x2-1, y1 +1,3);

floodfill (x1 +1, y2-1, 3);

floodfill (x2-1, y2-1, 3);

while not keypressed do;

closegraph

end.

Заданіе13. Вивести крапковим шрифтом горизонтально, починаючи з точки (100,20), повідомлення "Horisontal (горизонтально)" і прямим шрифтом вивести вертикально повідомлення "vertical (вертикально)", починаючи з точки (5,10)

program приклад;

{графіка і текст}

uses graph, crt;

var gd, gm: integer;

begin

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

outtextxy (100,20, 'Horisontal (горизонтально)');

settextstyle (0,1,1);

outtextxy (50,10, 'vertical (вертикально)');

while not keypressed do;

end;

Заданіе14. Зобразити трикутник, що обертається навколо однієї з вершин