Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Nonstopday
0 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 30
#1

Как нарисовать овал? - Turbo Pascal

30.01.2016, 12:09. Просмотров 373. Ответов 1
Метки нет (Все метки)

Пожалуйста помогите
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2016, 12:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как нарисовать овал? (Turbo Pascal):

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана
Нарисовать на экране овал зеленого цвета, который движется по вертикали по...

Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет
Нарисовать на экране овал зеленого цвета, который движется по вертикали по...

Убрать верхний овал
Доброго времени суток! Необходимо убрать верхний овал uses Graph, Crt; ...

Графика. Построить овал Коссини
надо построит овал коссини умова а>c*(sqrt(2))>0 формула...

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...

Cоздать программу в которой овал катится по прямой и внутри овала еще катится квадрат.
Здравствуйте всем. Задача такая: Cоздать программу в которой овал катится по...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
30.01.2016, 13:05 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
ellipse(x,y,0,360,100,70);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2016, 13:05
Привет! Вот еще темы с решениями:

Как нарисовать куб?
я тока начинаю работать с паскалем, так что можете объяснить по подробнее?...

Как нарисовать улыбку
program fff; uses graph; var dr,md:integer; begin dr:=detect;...

Как нарисовать свиток
Помогите

Как нарисовать синусоиду?
Как нарисовать синусоиду?


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

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

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