Составить программу построения геометрических фигур с использованием оператора case для просмотра результата

@Arthur159 · Регистрация: 08.07.2013

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

Задали такую задачу.

Составить программу построения геометрических фигур с использованием оператора case для просмотра результата.

Спасибо всем заранее))

Добавлено через 2 часа 51 минуту
И эту тоже до среды надо(

Kodzaev · 08.07.2013, 21:57

Прямоугольник, круг и треугольник. Хватит?

Pascal

Uses Graph;
Var
  d,r: Integer;
  c: Char;
BEGIN
d:=Detect;
InitGraph(d,r,'');
Repeat
  OutTextXY(10,10,'1: Rectangle');
  OutTextXY(10,20,'2: Circle');
  OutTextXY(10,30,'3: Triangle');
  OutTextXY(10,50,'0: Exit');
  Readln(c);
  ClearDevice;
  Case c of
    '1': Rectangle(GetMaxX div 2-200,GetMaxY div 2-100,GetMaxX div 2+200,GetMaxY div 2+100);
    '2': Circle(GetMaxX div 2,GetMaxY div 2,100);
    '3': begin
           MoveTo(GetMaxX div 2-100,GetMaxY div 2+100);
           LineTo(GetMaxX div 2,GetMaxY div 2-100);
           LineTo(GetMaxX div 2+100,GetMaxY div 2+100);
           LineTo(GetMaxX div 2-100,GetMaxY div 2+100);
         end
  end;
until c='0';
END.

@Arthur159 · 08.07.2013, 22:12 **[ТС]**

Спасибо)

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста.

@Arthur159 0 / 0 / 0 Регистрация: 08.07.2013 Сообщений: 3
		1
	Составить программу построения геометрических фигур с использованием оператора case для просмотра результата 08.07.2013, 21:42. Показов 2300. Ответов 2 Метки нет (Все метки) Задали такую задачу. Составить программу построения геометрических фигур с использованием оператора case для просмотра результата. Спасибо всем заранее)) Добавлено через 2 часа 51 минуту И эту тоже до среды надо( 0

	08.07.2013, 22:12

Опции темы

Составить программу построения геометрических фигур с использованием оператора case для просмотра результата

Решение