IPB

> Bar.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {Bar.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the Bar procedure.}

  uses
    Graph;
  var
    Gd, Gm, I, Width: Integer;
  begin
    Gd := Detect; InitGraph(Gd, Gm, '');
    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.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"