Напишите программу в ТУРБО ПАСКАЛЕВведите с клавиатуры переменные 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.
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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов