Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблема с графическим режимом
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
18192123
Вот такое задание:
На синем фоне нарисуйте пять красных параллельных отрезков одинаковой длины.

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


 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
Попробуй перед закрытием графического режима поставить задержку, например readln.
volvo
Все Read поменять на ReadLn не забудь...
TarasBer
А WriteLn на Write. Только не везде, а только где Write('h = : '). Чтобы число вводилось на той же строчке, что и приглашение ко вводу. Красивее будет.
18192123
тот же самый результат...

Добавлено через 4 мин.
Всё получилось! Спасибо всем большое!
Bokul
Что помогло?
18192123
Цитата(Bokul @ 17.02.2007 21:29) *

Что помогло?

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