Как задать произвольный размер ( с клавиатуры) простой геометрической фигуре

@vasenka · Регистрация: 17.06.2015

Нужно, задать размер фигуры например круга или квадрата, но с клавиатуры.
Программа будет спрашивать (укажите радиус) мы его вводим. Открывается графическое окно с кругом введеного ранее радиуса.

@Joy · 19.06.2015, 06:45

так устроит?

Pascal

uses GraphAbc;
var
  i,j:integer;
begin
  repeat
    write('1-квадрат,2-круг:');
    readln(i);
    ClearWindow;
  until i in [1,2];
  case i of 
    1:begin
      write('Сторона:');
      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);
    end;
    2:begin
      write('радиус:');
      readln(j);
      ClearWindow;
      Circle(WindowWidth div 2,WindowHeight div 2,j);
     end;
   end;
 end.

@Gvin · 19.06.2015, 17:49

Спасибо, это подходит. Но если не сложно можете немножко модернизировать сделав, возврат к меню.

@Puporev · 19.06.2015, 19:06

Pascal

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.

@Gvin · 19.06.2015, 19:29

Pascal

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.

Огромное спасибо, это то что нужно, другие фигуры теперь смогу наверное сам добавить.
Скажите пожалуйста а есть ли в этой программе классы?

@Puporev · 19.06.2015, 19:34

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

есть ли в этой программе классы?

Конечно нет.

@Gvin · 19.06.2015, 22:55

Жаль. Очень жаль. Мне то как раз классы и нужны. Будем думать смотреть пытаться разобраться. С классом штамп хоть не много разобрался и то потому что исходники нашел.

Добавлено через 3 часа 13 минут
А не могли бы вы мне помочь, составить программу, именно помочь, хотя бы с одной фигурой, другие я сделаю по аналогии.
Нужно, что бы выглядело так:

Меню программы:
1. Треугольник
2. Круг
3. Квадрат
Выбираем нужную геометрическую фигуру (вводим с клавиатуры например 2).
Программа просит, задать размер фигуры, в даном случае размер круга (его радиус).
Вводим с клавиатуры например 7.
Программа просит выбрать цвет фигуры.
1. Красный
2. Оранжевый
3. Желтый
4. Зеленый
5. Голубой
6. Синий
7. Фиолетовый
Выбираем нужный цвет например 4.
Программа выводит графическое окно, в которой нарисован зеленый круг радиусом 7.
И для всего этого добра нужно рассмотреть класс геометрических фигур.

Есть много наработок моих и чужих в том числе ваша.
Если нужны наработки то могу скинуть.

@vasenka 0 / 0 / 0 Регистрация: 17.06.2015 Сообщений: 1
		1
	Как задать произвольный размер ( с клавиатуры) простой геометрической фигуре 17.06.2015, 15:13. Показов 849. Ответов 6 Метки нет (Все метки) Нужно, задать размер фигуры например круга или квадрата, но с клавиатуры. Программа будет спрашивать (укажите радиус) мы его вводим. Открывается графическое окно с кругом введеного ранее радиуса. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Gvin 0 / 0 / 0 Регистрация: 18.06.2015 Сообщений: 12
	19.06.2015, 17:49	3
	Спасибо, это подходит. Но если не сложно можете немножко модернизировать сделав, возврат к меню. 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.06.2015, 19:34	6
	Сообщение от Gvin есть ли в этой программе классы? Конечно нет. 0

@Gvin 0 / 0 / 0 Регистрация: 18.06.2015 Сообщений: 12
	19.06.2015, 22:55	7
	Жаль. Очень жаль. Мне то как раз классы и нужны. Будем думать смотреть пытаться разобраться. С классом штамп хоть не много разобрался и то потому что исходники нашел. Добавлено через 3 часа 13 минут А не могли бы вы мне помочь, составить программу, именно помочь, хотя бы с одной фигурой, другие я сделаю по аналогии. Нужно, что бы выглядело так: Меню программы: 1. Треугольник 2. Круг 3. Квадрат Выбираем нужную геометрическую фигуру (вводим с клавиатуры например 2). Программа просит, задать размер фигуры, в даном случае размер круга (его радиус). Вводим с клавиатуры например 7. Программа просит выбрать цвет фигуры. 1. Красный 2. Оранжевый 3. Желтый 4. Зеленый 5. Голубой 6. Синий 7. Фиолетовый Выбираем нужный цвет например 4. Программа выводит графическое окно, в которой нарисован зеленый круг радиусом 7. И для всего этого добра нужно рассмотреть класс геометрических фигур. Есть много наработок моих и чужих в том числе ваша. Если нужны наработки то могу скинуть. 0

Опции темы