Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189851
05.10.2016, 21:11
0.00 руб.
07.10.2016, 10:45
0 3 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
В Pascal составьте самую простую программу, которая рисует отрезок с координатами концов (100, 100), (100, 200), если введено число 1, и рисует окружность с центром (200, 100) и радиусом 50, если введено число 2.

Обсуждение

давно
Лысков Игорь Витальевич
Посетитель
7438
7205
07.10.2016, 10:46
общий
Обратите внимание на вопрос
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
давно
Евгений/Genia007/
Профессионал
153662
1070
07.10.2016, 19:49
общий
09.10.2016, 09:48
Здравствуйте. Должно быть типа такого:
[code lang=pascal]program Draw;

uses
Graph, Crt; { Подключаем модуль }

var
Gd, Gm, x: integer;

begin
Gd:= Detect;
{Инициализируем графический режим}
InitGraph(Gd, Gm, '');
{считываем число}
read(x);
if x = 1 then
{рисуем линию}
Line(100, 100, 100, 200);
if x = 2 then
{рисуем окружность}
Circle(200, 100, 50);
{ждём ввод любого символа что бы программа сразу не закрылась}
readln;
CloseGraph;
end.[/code]
Проверить не на чем.
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
давно
Евгений/Genia007/
Профессионал
153662
1070
09.10.2016, 10:08
общий
это ответ
Здравствуйте, svrvsvrv!
Предлагаю свой вариант решения задачи.
[code lang=pascal]program Draw;

uses
Graph, Crt; { Подключаем модуль }

var
Gd, Gm, x: integer;

begin
Gd:= Detect;
{Инициализируем графический режим}
InitGraph(Gd, Gm, '');
{считываем число}
read(x);
if x = 1 then
{рисуем линию}
Line(100, 100, 100, 200)
else
if x = 2 then
{рисуем окружность}
Circle(200, 100, 50);
{ждём ввод любого символа что бы программа сразу не закрылась}
readln;
CloseGraph;
end.[/code]
5
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
Форма ответа