Вопрос по информатике:
В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.12.2015 16:11
- Информатика
- remove_red_eye 18279
- thumb_up 21
Ответы и объяснения 1
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
line(x,y,x1,y1);
end;
end.
uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180));
y1:=y-round(r*sin(i*pi/180));
line(x,y,x1,y1);
end;
end.
uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do
begin
Setpencolor(clblack);
x1:=x+round(r*cos(i*pi/180))+200;
y1:=y-round(r*sin(i*pi/180))+200;
line(x,y,x1,y1);
end;
end.
- 22.12.2015 08:48
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.