Задача на паскале

[студент_86]

Здравствуйте! Знакомая попросила помочь с задачей в паскале - на символьном экране нужно с помощью классов вывести прямоугольник, как я понял он будет состоять из какого-то символа типа белого квадратика, но как сделать этот белый квадратик и причем с помощью классов - не знаю, с паскалем общался мало и то было это ужато в рамки институтской программы, да и неохота вникать в эти самые классы, ибо сессия на носу.

Кто знает подскажите, расписывать подробно не обязательно, главное - белый квадратик с помощью классов, дальше додумаю сам. Заранее благодарен за помощь.

[Тролль]

студент_86:

В классическом Паскале нет классов. Потом появились разные варианты объектного Паскаля, там классы называли объектами. Потом появились и Паскали с классами... В общем, все зависит от конкретного Паскаля. В Pascal ABC, например, это будет выглядеть примерно так.

uses CRT;type Sym=classprocedure Print; var i:byte; begin WriteLn; for i:=1 to 3 do WriteLn(#32,#8,#8,#8,#8,#8); end;constructor Create;  begin end;end;var S:Sym; beginTextBackground(0);  TextColor(White); ClrScr;S:=Sym.Create; S.Print;end.

А если речь идет о DOS (Pascal ABC в DOS не работает), то вместо символа #8 надо выводить #219.