Правила форума
Bar.PASЯзык:
Русский
English
{Bar.PAS}
{ Пример программы для процедуры Bar }
uses Graph;
var
Gd, Gm, I, Width : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
if GraphResult <> grOk then
Halt(1);
Width := 10;
for I := 1 to 5 do
Bar(I * Width, I * 10, Succ(I) * Width, 200);
ReadLn;
CloseGraph;
end.
var
Gd, Gm, I, Width : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
if GraphResult <> grOk then
Halt(1);
Width := 10;
for I := 1 to 5 do
Bar(I * Width, I * 10, Succ(I) * Width, 200);
ReadLn;
CloseGraph;
end.
::
::
::
