Форумы-->Форум для внеигровых тем-->
| Автор | Турбо паскаль |
|---|
| Народ помогите пожалуйста.Надо нарисовать фамилию УВАРОВ в паскале,хотя бы первую букву помогите плиз( | | ASCII или графика? | выбирай
:Е
(}O,O{) | °•°
или просто
† | | Построить графическое изобрание | | Еррос все хорош,реально помощь нужна,иначе не здам эту инфу тупую и в армию( | Uses Crt, Graph;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
Line(25,25,80,110);
Line(80,25,25,110);
Line(135,110,190,25);
Line(135,25,162,67);
Line(215,25,215,110);
Line(300,25,300,110);
Line(215,110,300,25);
Line(250,25,260,25);
ReadLn;
CloseGraph;
End. | | тема закрыта by AndreBlood (2014-02-17 15:59:58) |
|---|
К списку тем
|
