Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 03.02.2018
Сообщений: 4
1

Составить программу на Паскале, которая рисует разноцветные конусы под разными углами

03.02.2018, 02:54. Просмотров 1840. Ответов 5
Метки нет (Все метки)

Составить программу на Паскале, которая рисует разноцветные конусы под разными углами
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2018, 02:54
Ответы с готовыми решениями:

Составить программу, которая рисует три квадрата разными цветами
Составить программу, которая рисует три квадрата разными цветами (линии квадратов) и закрашивает...

Составить программу которая рисует прямоугольник с разноцветными сторонами
Составить программу которая рисует прямоугольник с разноцветными сторонами. помогите пожалуйста!

Составить программу с использованием функции.Которая рисует 80 звёздочек
Помогите,почему то не работает. #include < iostream.h> //Прототип функции line ...

Графика: Составить программу, которая рисует светофор в графическом окне.
Друзья, добрый день. Нужно составить программу, которая рисует светофор в графическом окне. Размер...

5
Модератор
Эксперт Pascal/Delphi
6267 / 4225 / 4611
Регистрация: 05.06.2014
Сообщений: 20,805
03.02.2018, 08:33 2
Нарисовать прямоугольный конус и равнобедренную трапецию
0
Модератор
60614 / 45588 / 31471
Регистрация: 18.05.2008
Сообщений: 109,601
03.02.2018, 10:58 3
Цитата Сообщение от SemenOfCurse Посмотреть сообщение
под разными углами
Какие углы имеются ввиду?
0
0 / 0 / 0
Регистрация: 03.02.2018
Сообщений: 4
05.02.2018, 11:43  [ТС] 4
Нужно сделать вот так. Фон не важен
0
Миниатюры
Составить программу на Паскале, которая рисует разноцветные конусы под разными углами  
Модератор
60614 / 45588 / 31471
Регистрация: 18.05.2008
Сообщений: 109,601
05.02.2018, 12:47 5
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Простой АВС или АВС.net?

Добавлено через 41 минуту
Для простого
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt,graphABC;
var x,y,n,x1,y1,r,d,i,j:integer;
    u:real;
begin
write('Количество конусов n=');
readln(n);
randomize;
clearwindow;
hidecursor;
setbrushstyle(bsClear);
for i:=1 to n do
 begin
  u:=random*2*pi;
  x:=200+random(windowwidth-400);
  y:=200+random(windowheight-400);
  r:=1;
  d:=0;
  setpencolor(clrandom);
  circle(x,y,r);
  for j:=1 to 40 do
   begin
    d:=d+4;
    r:=r+1;
    x1:=x+round(d*cos(u));
    y1:=y-round(d*sin(u));
    setpencolor(clrandom);
    circle(x1,y1,r);
   end;
 end;
end.
Для net
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses graphABC;
var x,y,n,x1,y1,r,d:integer;
    u:real;
begin
write('Количество конусов n=');
readln(n);
randomize;
clearwindow;
setbrushstyle(bsClear);
for var i:=1 to n do
 begin
  u:=random*2*pi;
  x:=180+random(windowwidth-360);
  y:=180+random(windowheight-360);
  r:=1;
  d:=0;
  setpencolor(clrandom);
  circle(x,y,r);
  for var j:=1 to 40 do
   begin
    d:=d+4;
    r:=r+1;
    x1:=x+round(d*cos(u));
    y1:=y-round(d*sin(u));
    setpencolor(clrandom);
    circle(x1,y1,r);
   end;
 end;
end.
1
0 / 0 / 0
Регистрация: 03.02.2018
Сообщений: 4
05.02.2018, 15:51  [ТС] 6
Спасибо нужен был на простой. Очень благодарен
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2018, 15:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программу, которая рисует домик. Радиус ввести с клавиатуры.Сделать заливку фигур
program PROG2; uses GraphABC; const w=5; begin SetWindowSize(256,256);...

Составить программу, которая рисует на экране эллипс указанного размера и осуществляет его движение до нажатия клавиши
Помогите написать программу - Составить программу , которая рисует на экране в правом нижнем углу...

Надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4}
надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1,...

Составить программу,которая при нажатии,клавиши "д" рисует солнце,при нажатии клавиши "н" рисует луну
Помогите пожалуйста сделать


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.