Версия для печати темы

Автор: 18192123 18.02.2007 0:34

Вот такое задание:
На синем фоне нарисуйте пять красных параллельных отрезков одинаковой длины.

Проблема втом, что после ввода значений пользователем получаю черный экран с курсором

 Uses  Graph;
 var
    Gd,Gm, x_0, y_0, x, y, h : integer;
 begin
      Writeln ('Vvedite koordinati na4ala 1-go otrezka');
      Writeln ('        x_0 = ');
      read (x_0);
      Writeln ('        y_0 = ');
      read (y_0);
      Writeln ('Vvedite koordinati konchsa otrezka');
      Writeln ('        x = ');
      read (x);
      Writeln ('        y = ');
      read (y);
      Writeln ('Kakoe dolshno bGit rasstoainie meshdy otrezkami?');
      Writeln ('       h = ');
      read (h);

      Gd := VGA;
      Gm := VGAhi;
      InitGraph (Gd,Gm,'');
      if GraphResult = grOk then
         begin
              SetBkColor(1);
              SetColor(4);
              MoveTo(x_0,y_0);
              LineTo(x,y + h);
              MoveTo(x_0, y_0 + h);
              LineTo(x, y + h);
              MoveTo(x_0, y_0 + 2*h);
              LineTo(x, y + 2*h);
              MoveTo(x_0, y_0 + 3*h);
              LineTo(x, y + 3*h);
              MoveTo(x_0, y_0 + 4*h);
              LineTo(x, y + 4*h);
         end;

  CloseGraph;
  end.

Автор: Bokul 18.02.2007 0:46

Попробуй перед закрытием графического режима поставить задержку, например readln.

Автор: volvo 18.02.2007 0:53

Все Read поменять на ReadLn не забудь...

Автор: TarasBer 18.02.2007 1:11

А WriteLn на Write. Только не везде, а только где Write('h = : '). Чтобы число вводилось на той же строчке, что и приглашение ко вводу. Красивее будет.

Автор: 18192123 18.02.2007 1:24

тот же самый результат...

Добавлено через 4 мин.
Всё получилось! Спасибо всем большое!

Автор: Bokul 18.02.2007 1:29

Что помогло?

Автор: 18192123 18.02.2007 1:53

"Попробуй перед закрытием графического режима поставить задержку, например readln" - этого как раз не хватало. А я поспешила и поставила readln после закрытия графического режима...