" писал(а):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)
