Разработать меню-ориентированную программу,которая по выбору пользователя выводила на экран фигуры

@MariyaV · Регистрация: 20.03.2011

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

Ребят,помогите,очень надо..завтра проект сдавать...

вот условия :
Разработать меню-ориентированную программу,которая по выбору пользователя выводила на экран :
1)"т"- треугольник
2)"п"-прямоугольник
3)"к"-круг

@Puporev · 21.03.2011, 09:16

По простому....

Pascal

uses crt,graph;
var x,y:integer;
    c:char;
begin
x:=0;
initgraph(x,y,'');
repeat
outtextXY(10,10,'t-treugolnik');
outtextXY(10,20,'p-prymougolnik');
outtextXY(10,30,'k-krug');
outtextXY(10,40,'Esc-vyhod');
if keypressed then
 begin
  c:=readkey;
  case c of
  #116:begin
       cleardevice;
       line(320,100,220,300);
       line(220,300,420,300);
       line(320,100,420,300);
       readln;
       cleardevice;
       end;
  #112:begin
       cleardevice;
       rectangle(220,100,420,300);
       readln;
       cleardevice;
       end;
  #107:begin
       cleardevice;
       circle(320,240,100);
       readln;
       cleardevice;
       end;
  #27:exit;
  end;
 end;
until c=#27;
end.

@MariyaV · 21.03.2011, 10:11 **[ТС]**

спасибо большое!

@MariyaV 0 / 0 / 0 Регистрация: 20.03.2011 Сообщений: 5
		1
	Разработать меню-ориентированную программу,которая по выбору пользователя выводила на экран фигуры 20.03.2011, 21:40. Показов 1706. Ответов 2 Метки нет (Все метки) Ребят,помогите,очень надо..завтра проект сдавать... вот условия : Разработать меню-ориентированную программу,которая по выбору пользователя выводила на экран : 1)"т"- треугольник 2)"п"-прямоугольник 3)"к"-круг 0

@MariyaV 0 / 0 / 0 Регистрация: 20.03.2011 Сообщений: 5
	21.03.2011, 10:11 [ТС]	3
	спасибо большое! 0

Разработать меню-ориентированную программу,которая по выбору пользователя выводила на экран фигуры

Решение