Решение для Pascal ABCuses GraphABC;vara:integer;beginreadln(a);moveto(a,1);circle(a+a
Решение для Pascal ABC
uses GraphABC;
var
a:integer;
begin
readln(a);
moveto(a,1);
circle(a+a div 2,1,a div 4);
lineto(a+a div 4,1);
moveto(a+ (a div 4)*3,1);
lineto (2*a,1);
lineto(2*a,1+a);
lineto (a,1+a);
lineto (a,1);
moveto (a,1+a);
lineto (a-(a div 2),1+2*a);
lineto(2*a+a div 2, 1+2*a);
lineto(2*a,1+a);
end.
Сможете поведать пожалуйста откуда что взялось , обрисовать что за чем, чтоб разъяснить как делать!! то что вверху написано, спасибо для вас великое заранее
1 ответ
Цукур Константин
1.Подключается модуль, отвечающий за графику
2.Начало объявления переменных
3,Объявляется переменная "а", с числовым типом
4.Начало программки
5.Нужно ввести значение переменной "а"
6.Перемещает указатель (исходную точку) на координаты а,1 где а - координата по оси Х, 1 - координата по оси Y
7.Живописует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное дробление. То есть если а=5, то 5+5 div 2 будет одинаково 5. И 3-ий параметр это радиус, то есть радиус равен а div 4.
8. Функция linto(x,y) живописует прямую линию в точку с координатами x и y. Причем живописует из точки, в которой указатель был до этого. То есть в данном случае из точки в центре окружности. Я размышляю далее можно додуматься, так как все функции обрисовал. Программа написана на языке Pascal и она живописует что-то.
2.Начало объявления переменных
3,Объявляется переменная "а", с числовым типом
4.Начало программки
5.Нужно ввести значение переменной "а"
6.Перемещает указатель (исходную точку) на координаты а,1 где а - координата по оси Х, 1 - координата по оси Y
7.Живописует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное дробление. То есть если а=5, то 5+5 div 2 будет одинаково 5. И 3-ий параметр это радиус, то есть радиус равен а div 4.
8. Функция linto(x,y) живописует прямую линию в точку с координатами x и y. Причем живописует из точки, в которой указатель был до этого. То есть в данном случае из точки в центре окружности. Я размышляю далее можно додуматься, так как все функции обрисовал. Программа написана на языке Pascal и она живописует что-то.
Шостя
Виктор
спасибо громадное
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов