Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 5.00
Рузана
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 52
#1

Нарисовать ту или иную фигуру по введенной команде - Turbo Pascal

29.03.2011, 13:03. Просмотров 1401. Ответов 1
Метки нет (Все метки)

Напишите задачи на паскале. 1. С клавиатуры вводятся буквы команд рисования простейших фигур со случайным выбором координат, размера и цвета: O-рисовать окружность, P-рисовать прямоугольник, L-рисовать отрезок прямой.
Заранее спасибо
http://www.cyberforum.ru/turbo-pascal/thread298088.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2011, 13:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нарисовать ту или иную фигуру по введенной команде (Turbo Pascal):

Нарисовать фигуру
Всем привет, нужна программа Фигуры

Нарисовать фигуру
необходимо нарисовать картинку... без заливок и прочего... Сори за Paint...

Нарисовать фигуру
нарисовать фигуру

Нарисовать геометрическую фигуру
Мужики, подскажите как решить вот такую задачу: Нарисовать геометрическую...

Нарисовать движущуюся фигуру
Здравствуйте скажите пожалуйста как с помощью цикла нарисовать фигуру и чтобы...

1
Zverit
Уничтожитель печенек
277 / 205 / 49
Регистрация: 07.02.2010
Сообщений: 724
18.04.2011, 23:44 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
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
31
32
33
34
35
36
37
38
39
40
uses graph,crt;
var x,y,a,b : integer;
    v : char;
function O (x,y:integer):integer;
begin
 x:=100;
 y:=100 ;
 a:=random(100);
 circle(x,y,a);
end;
function P (x,y,a,b : integer): integer;
 begin
  x:=random(300);
  y:=random(300);
  a:=20;
  b:=20;
  rectangle(a,b,x,y);
 end;
function L (a,b,x,y: integer) : integer;
 begin
  x:=random(200);
  y:=random(200);
  a:=20;
  b:=20;
  line(a,b,x,y);
 end;
 
begin
clrscr;
 randomize;
 initgraph(x,y,'');
 writeln('l - линия, p- прямоугольник, o-окружность: ');
 readln (v);
 case v  of
  'o' : O(x,y);
  'p' : P(a,b,x,y);
  'l'  : L (a,b,x,y);
 end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2011, 23:44
Привет! Вот еще темы с решениями:

Нарисовать фигуру с помощью рекурсии
Ребята, помогите пожалуйста, нужно нарисовать с помощью рекурсии вот это

Нарисовать фигуру(перевернутая трапеция)
Помогите пожалуйста с задачкой. Нарисовать фигуру(см.вложение). Сделать...

Помогите фигуру нарисовать пожалуйста
Помогите эту фигуру нарисовать пожалуйста,оч нужно,срочно.Буду...

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


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

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

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