Тема 7: «Модуль dos»
Определить
количество свободного места на съемном
диске, если больше 500 Кбайт, вывести в
центре экрана сообщение “Места много”,
иначе – мигающую надпись “Места мало”.
uses crt,dos;
var size:word;
begin
clrscr;
size:=Disksize(5) div
1024;{определяет свободное место на диске
в байтах, переводим в Кбайт}
writeln('На диске F
свободно ',size,' Кбайт');
if size>500 then
write('Места много')
else
begin
textcolor(white+blink);{по
идее должно мерцать, но у меня это не
работает}
write('Места
мало')
end;
readln
end.
Uses
Dos;
begin
funshion
DiskFree(0), div 1024,' килобайт');
end.
Тема 8: «Модуль graph»
Нарисовать на
экране нижнюю половинку окружности, по
которой катается маленький кружок,
меняя цвет. Работа программы закачивается
по нажатию любой клавиши.
uses crt,graph;
procedure
Krug(x,y,r,c:integer);
begin
setcolor(c);
circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c);
end;
var
xc,yc,r,r1,x,y,d,c:integer;
a,da:real;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=200;
setlinestyle(0,0,3);
setcolor(12);
arc(xc,yc,180,360,r);
outtextXY(xc-50,20,'Vyhod any
key');
r1:=5;
d:=r-r1-3;
x:=xc-d;
y:=yc+r1+1;
a:=pi-0.05;
repeat
if a<=pi then da:=0.05;
a:=a+da;
x:=xc+round(d*cos(a));
y:=yc-round(d*sin(a));
Krug(x,y,r1,9);
delay(50);
Krug(x,y,r1,0);
if a>=2*pi then da:=-0.05;
until keypressed;
end.