Вывести меню а потом букву в 2D или 3D

@LexzCQ · Регистрация: 26.11.2014

Author24 — интернет-сервис помощи студентам

Есть задание: нарисовать (с помощью модуля GraphABC) букву S а потом через меню предложить вывод 2D или 3D вариантов. Букву я нарисовал, но вот с меню у меня что-то не получается. После компиляции меню появляется, но при нажатии нужной кнопки ничего не происходит. Хотело бы понять где ошибка. Вот код.

Кликните здесь для просмотра всего текста

Pascal

program lab7;
uses graphabc;
 
Var 
i:integer;
nch:char;
 
 
 
procedure d2;
begin
  Line (400,140,400,100);
  Arc (335,176,100,50,270);
  Arc (360,185,60,275,50);
  Arc (343,336,60,97,-100);
  Arc (366,344,100,97,-110);
  Line (333,395,290,380);
  Line (333,439,290,424);
  Line (290,380,290,425);
  floodfill (250,160, color.black);
end;
 
procedure d3;
begin
  //2D
  Line (400,140,400,100);
  Arc (335,176,100,50,270);
  Arc (360,185,60,275,50);
  Arc (343,336,60,97,-100);
  Arc (366,344,100,97,-110);
  Line (333,395,290,380);
  Line (333,439,290,424);
  Line (290,380,290,425);
  floodfill (250,160, color.black);
  
  //3D
  
  Line (320,350,290,380);
  Arc (334,315,38,80,-110);
  floodfill (350,360, color.red);//нижняя тень
  
  Line (425,120,425,80);
  Line (400,140,425,120);
  Line (400,100,425,80);
  Arc (329,136,111,230,30);
  floodfill (320,50, color.green);//верхняя тень
  floodfill (400,110, color.blue);//верхняя правая тень
end;
 
begin
  
  writeln ('Выберите режим отображения буквы:');
  writeln ('1: 2D;');
  writeln ('2: 3D;');
  writeln ('3: Выход.');
  repeat
  readln(nch);
  i:=ord(nch);
    case i of
    81: d2;
    82: d3;
    end;   
   until
     i=83;
      halt;
end.

@Sergio Leone · 04.02.2015, 21:16

Сообщение от LexzCQ

но при нажатии нужной кнопки ничего не происходит

какой - нужной?!

Сообщение от LexzCQ

eadln(nch);
* i:=ord(nch);
* * case i of
* * 81: d2;
* * 82: d3;

код 81 у символа Q
код 82 у символа R

вы, наверное, хотели написать так:

Pascal

writeln ('Выберите режим отображения буквы:');
  writeln ('1: 2D;');
  writeln ('2: 3D;');
  writeln ('3: Выход.');
  repeat
    readln(nch);
    case nch of
    '1': d2;
    '2': d3;
    end;   
   until  nch='3';
end.

p.s. а ещё Вы с разделом чуток промахнулись - у Вас код написан в Pascal ABC.NET

@Puporev · 04.02.2015, 21:32

Pascal

var w:char;
begin
repeat
  writeln ('Выберите режим отображения буквы:');
  writeln ('1: 2D;');
  writeln ('2: 3D;');
  writeln ('другое: Выход.');
  readln(w);
  case w of
  '1':d2;
  '2':d3;
  else halt
  end;
until not (w in ['1'..'2']);
end.

Добавлено через 54 секунды

Сообщение от Sergio Leone

у Вас код написан в Pascal ABC.NET

Так ума нет найти нужный раздел.

	04.02.2015, 21:32