Напишите программу в ТУРБО ПАСКАЛЕВведите с клавиатуры переменные c и d.

Напишите программу в ТУРБО ПАСКАЛЕ
Введите с клавиатуры переменные c и d. Если 0lt;clt;d, то нарисуйте квадрат со стороной 2d. По другому нарисуйте отрезок с концами в точках (c,c) и (d,d).

Задать свой вопрос
1 ответ
Uses Graph; Подключаем модуль
var
  c,d,Gd,Gm:integer;
  k:real;
begin
  Writeln('10lt;=clt;=460; 10lt;=dlt;=230');
  Write('Задайте c в границах от 10 до 460: ');Read(c);
  if (clt;10) or (cgt;460) then Writeln('Неверное значение!')
  else begin
    Write('Задайте d в пределах от 10 до 230: '); Readln(d);
    if (dlt;10) or (dgt;230) then Writeln('Неверное значение!')
    else begin
      Gd := Detect;
      InitGraph(Gd, Gm, 'Y:\tp7\bgi'); Инициализируем графический режим
      SetColor(4);
      k:=GetMaxX/GetMaxY; Коэффициент искажений по осям
      if clt;d then Rectangle(Trunc(10/k),10,Trunc((2*d+10)/k),2*d+10)
      else Line(Trunc(c/k),c,Trunc(d/k),d);
      Readln;
      CloseGraph
    end
  end
end.

Семик Крехалев
'Y:\tp7\bgi' - это путь к папке \BGI Турбо Паскаль
Egor
А для чего нам указывать путь к папке Паскаля?
Гургенидзе Толян
Так построена графическая подсистема у Турбопаскаль. Но если Вы будете запускать Турбопаскаль из его директории, то заместо пути можно указать строчку из 1-го либо более пробелов. Потому что этот путь употребляется тогда, когда папка \BGI не видна из директории запуска.
Elena
Видите 1-ый оператор uses Graph? Он задает Турбопаскалю указ отыскать файлы графики *.bgi, а по умолчанию они лежат в поддиректории \BGI
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт