Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

Задание 7. Program Task7;. Задание 8. program clock;

Задание 7

Program Task7;

uses crt;

const

xmin = 1;

xmax = 25;

xgmin=5;

xgmax=75;

ymin=0;

ymax=25;

ygmin=5;

ygmax=45;

kgl = 11;

kvl = 11;

kix = xgmax -xgmin;

var

x,y,

mx,my,

hx,hy: real;

xg,yg: integer;

function F(x:real):real;

begin

F:=Sqrt(Sqr(x)-1);

end;

procedure ver_Line(x,yn,yk:integer; sim:char);

var y:integer;

begin

for y:=yn to yk do

begin

GotoXY(x,y);

write(Sim);

end;

end;

procedure gor_Line(y, xn,xk: integer; sim: char);

var x: integer;

begin

gotoxy(xn,y);

for x:= xn to xk do

write(sim);

end;

Begin

TextMode(c80+256);

TextBackGround(White);

Clrscr;

mx:=(xgmax - xgmin)/(xmax - xmin);

my:=(ygmax - ygmin)/(ymax - ymin);

{ѓ®аЁ§®­в «м­лҐ «Ё­ЁЁ}

y:=ymin;

hy:=(ymax - ymin)/(kgl-1);

TextColor(Yellow);

While y <= ymax+0.1*hy do begin

yg:=ygmin + Round((ymax - y)*my);

Gor_Line(yg,xgmin,xgmax,'-');

GoToXY(xgmin - 4, yg);

write(y:4:2);

y:=y+hy;

end;

yg:=ygmin+round(ygmax*my);

TextColor(Blue);

Gor_Line(yg,xgmin, xgmax,'-');

write('->X');

{‚ҐавЁЄ «м­лҐ «Ё­ЁЁ}

x:=xmin;

hx:=(xmax - xmin)/(kvl-1);

TextColor(Red);

while x <= xmax+0.1*hx do begin

xg := xgmin+Round((x-xmin)*mx);

Ver_Line(xg,ygmin,ygmax,':');

GoToXY(xg-2,ygmin-2);

write(x:4:2);

x:=x+hx;

end;

xg:= xgmin - round(xmin*mx);

TextColor(Blue);

Ver_Line(xg, ygmin, ygmax,'!');

GoToXY(xg, ygmin - 1);

write('^Y');

x:=xmin;

hx:=(xmax - xmin)/kix;

while x <= xmax +0.1*hy do begin

xg:=xgmin+Round((x-xmin)*mx);

y:=F(x);

yg:=ygmin+round((ymax-y)*my);

GoToXY(xg,yg);

TextColor(Black);

write('*');

x:=x+hx;

end;

GoToXY(10,48);

write('Нажмите любую клавишу ...');

repeat until keypressed;

End.

Задание 8

program clock;

uses dos,crt, graph;

var x1,y1,xh,yh,xm,ym,xc,yc,gd,gm,X,Y,i,a:integer;

n:array[0..12] of string;

h,m,c,mc:word;

s:string;

begin

n[1]:=' 1'; n[2]:=' 2'; n[3]:='3';

n[4]:='4'; n[5]:='5'; n[6]:='6';

n[7]:='7'; n[8]:='8'; n[9]:='9';

n[10]:='10'; n[11]:='11'; n[12]:='12';

clrscr;

gd:=detect;

initgraph(gd,gm,'');

X:=getmaxx div 2;

Y:=getmaxy div 2;

settextstyle(4,0,4);

setlinestyle(2,0,6);

setcolor(11);

circle(315,235,235);

setlinestyle(0,0,1);

setcolor(15);

{}

a:=270;

for i:=1 to 60 do

begin

x1:=round(X-205*cos(pi/180*a));

y1:=round(Y+205*sin(pi/180*a));

a:=a+6;

{}

if (a-6) mod 30=0 then outtextxy(x1-16,y1-18,n[12-(i div 5)])

else

begin

circle(x1,y1,2);

floodfill(x1,y1,15);

end;

end;

xh:=X; yh:=Y;

xm:=X; ym:=Y;

xc:=X; yc:=Y;

setlinestyle(0,0,3);

setcolor(15);

repeat

gettime(h,m,c,mc);

setwritemode(1);

setlinestyle(0,0,3);

line(x,y,xh,yh);

setlinestyle(0,0,1);

line(x,y,xm,ym);

line(x,y,xc,yc);

setwritemode(0);

xc:=round(X-180*cos(pi/180*(90+6*c)));

yc:=round(Y-180*sin(pi/180*(90+6*c)));

line(x,y,xc,yc);

circle(X,Y,3);

circle(X,Y,6);

circle(X,Y,9);

If c =0 then

begin

 setFillStyle(1,10);

                 floodfill(315,235,235);

 end;

until keypressed;

end.