Меню сайту

Пошук

Наше опитування
Що є найбільш корисним на сайті? Конспекти Реферати Задачі Паскаль Презентації Плани до творів Твори за шкільною програмою Інше Результати \| Архів опитувань Всього відповідей: 630

Що нового?

Форма входу

Міні-чат
Щоб додати необхідна авторизація

Рух поршня

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

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

Календар

Архів записів

Друзі сайту

Створити безкоштовний сайт на uCoz

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

Рух поршня