Паскаль на рисование

[Vovchik]

kiat, нет вам помогли вам дали алгоритм а как его реализовать подумайте сами !

[Vovchik]

kiat, специально для вас сделаю всё по порядку :
1. надо ввести символ.
2. надо проверить какой это символ.
3. если это Т то рисуем треугольник.
3. если это С то рисуем окружность.
3. если это Д то рисуем прямоугольник.
3. если это Р то рисуем параллелограмм.

вам даже слегка объяснили как это делать а дальше попробуйте сами, почитайте литературу и т.д.

[C_O_D_E]

Vovchik
Вы, забыли перед 3-им пунктом вставить:
Инициализировать модуль.
И 4м соответственно закрыть его.

kiat, Вы зря нервничаете, Вам действительно помогли. дали достаточную информацию. Задача элементарная. ее решить можно за 10 минут, имея под руками любую справочную систему.

[Vovchik]

C_O_D_E, точно просто забыл

[Medved]

kiat, нет вам помогли вам дали алгоритм а как его реализовать подумайте сами !

Вы не помогли. Алгоритма во всём вышесказанном не приводилось, кроме самого примитивного.Тем более, человек не имеет опыта в использовании паскаля. Мне кажется, что то что вы пишете бесполезная трата времени. Вы уже не помогаете, а просто издеваетесь. Человеку не такой алгоритм нужен, а н.п:
1)Считать символ (Read(C) , где C - Char)
2)Инициализировать графику (После Program [---] написать uses Graph,Crt; написать InitGraph(Driver,Mode,'[путь к модулю графики]') ,где Driver, Mode - Integer; в конце программы - CloseGraph);
3)Инициализировать генератор случайных чисел (randomize);Написать
4)Проверить символ C;
a) Если это T - Создать 3 точки (x1:=Random(GetMaxX), y1:=Random(GetMaxY)); Затем с помощью Line(X1,y1,x2,y2) соединить эти точки.
б) Если это С, то : Circle(Random(GetMax),Random(GetMaxY),Random(200));
в) Если это Д, то : Rectangle(Random(GetMaxX),Random(GetMaxY),Random(GetMaxX),Random(GetMaxY));
г) Если это Р, то:
X1:=Random(GetMaxX);
X2:=Random(GetMaxX);
Y:=Random(GetMaxY);
Line(X1,Y,X2,Y);
shift:=Random(100);
Height:=Random(300);
Line(X1,Y,X1-Shift,Y+Height);
Line(X2,Y,X2-Shift,Y+Height);
Line(X1-Shift,Y+Height,X2-Shift,Y+Height);
4) Readln;
CloseGraph;
А теперь соедини это всё - и будет задача.

П.С. Vovchik, уделяйте побольше внимания орфографии. Иногда вами сказанное невозможно понять. Или можно понять неправильно, как например "чИстота работы процессора" или "чАстота работы процессора" (Вот здесь, #11)

[kiat]

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