PascalABC.NET - Рассмотреть класс геометрических фигур, квадрат, круг, треугольник

[Niv]

[QUOTE=min@y™;1511463][CODE]
Еще мне сделали такой код. Может так будет легче исправлять, в ту сторону что мне нужно

uses GraphAbc;
var w:char;
    j:integer;
begin
  repeat
    ClearWindow;
    textout(1,10,'Выберите действие');
    textout(1,30,'1-нарисовать квадрат');
    textout(1,50,'2-нарисовать круг');
    textout(1,70,'другое выход');
    readln(w);
    case w of 
    '1':begin
        textout(1,90,'Сторона:');
        readln(j);
        ClearWindow;
        Rectangle(WindowWidth div 2-j div 2,WindowHeight div 2-j div 2,WindowWidth div 2+j div 2,WindowHeight div 2+ j div 2);
        textout(WindowWidth div 2-50,10,'Нажмите Enter');
        readln;
        end;
    '2':begin
        textout(1,90,'радиус:');
        readln(j);
        ClearWindow;
        Circle(WindowWidth div 2,WindowHeight div 2,j);
        textout(WindowWidth div 2-50,10,'Нажмите Enter');
        readln;
       end;
     else exit;
   end;  
  until not (w in ['1','2']);   
 end.

[min@y™]

препод обидится, если писать в другой среде программирования?

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

тебе видней.

[Niv]

Сообщение от min@y™

препод обидится, если писать в другой среде программирования?

Да. Он рассчитывает именно на паскаль. и почему-то не хочет, что б мы писали в другой среде.

[min@y™]

Он рассчитывает именно на паскаль.

но delphi - это тоже паскаль жэж!

почему-то не хочет, что б мы писали в другой среде.

КАЗЁЛ! так ему и передай, вместе со ссылкой вот этой: http://www.programmersforum.ru/showt...67#post1511467

[Niv]

Сообщение от min@y™

но delphi - это тоже паскаль жэж!

КАЗЁЛ! так ему и передай, вместе со ссылкой вот этой: http://www.programmersforum.ru/showt...67#post1511467

Пойду мучать форумы гугл себя. искать думать как сделать прогу. Спасибо.

[min@y™]

Пойду мучать форумы

найди уже форум по паскакаль-абэцэ! не нашёл - создай новый!

[Niv]

Сообщение от min@y™

найди уже форум по паскакаль-абэцэ! не нашёл - создай новый!

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

[min@y™]

В общем даже не знаю, что и делать с этой программой.

С какой-такой программой?

[min@y™]

Вот эту шляпу видел?
А вот и форум. Мне так до пенсии за тебя гуглить и википедить?

[Niv]

Сообщение от min@y™

Вот эту шляпу видел?
А вот и форум. Мне так до пенсии за тебя гуглить и википедить?

Только что от туда, онлайн паскаль видел хорошая штука.