Головна | Реєстрація | Вхід | RSSЧетвер, 02.25.2021, 8:59 AM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Що є найбільш корисним на сайті?
Всього відповідей: 606
Що нового?
Форма входу
Міні-чат

Рух поршня

Рух поршня в скляній колбі:

Uses graph, crt;
var i,dv,dm:integer;
begin
Dv:=detect;
Initgraph (dv,dm,' ');
i:=0;
Rectangle (299,325,351,75);

for i:=98 to 300 do
begin
setfillstyle (1,2);
bar (300,i,350,i);
delay (500);
setfillstyle(1,0);
bar(300,i-20,350,i-20);
delay(500);
end;


for i:=300 downto 98 do
begin
setfillstyle (1,2);
bar (300,i, 350, i);
delay (500);

setfillstyle(1,0);
bar(300,i+20,350,i+20);
delay(500);
end;

for i:=98 to 300 do
begin
setfillstyle (1,2);
bar (300,i,350,i);
delay (500);
setfillstyle(1,0);
bar(300,i-20,350,i-20);
delay(500);
end;


for i:=300 downto 98 do
begin
setfillstyle (1,2);
bar (300,i, 350, i);
delay (500);
setfillstyle(1,0);
bar(300,i+20,350,i+20);
delay(500);
end;


repeat until keypressed;
closegraph
end.
 Яндекс.Метрика
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Лютий 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz