Question

Помогите пожалуйста!!!!!))Очень срочно!)"Резиновый параллелограмм" При помощи клавиши Enter фиксируем верхний угол параллелограмма, затем нажатиями стрелок растягиваем его фиксируем второй угол клавишей Enter(Turbo Pascal)

Answer 1

Докладніше можна. і тоді я тобі напишу

Answer 2

Вот пример кода на языке Turbo Pascal, который позволяет реализовать указанную вами функциональность для растягивания резинового параллелограмма:

pascalCopy code
uses crt;

var
  x1, y1, x2, y2, x3, y3: Integer;
  ch: Char;
  
procedure DrawRubberParallelogram();
begin
  clrscr;
  
  // Отрисовываем резиновый параллелограмм
  gotoxy(x1, y1);
  write('*');
  gotoxy(x2, y2);
  write('*');
  gotoxy(x3, y3);
  write('*');
  
  // Цикл для растягивания параллелограмма
  repeat
    ch := ReadKey;
    
    // Проверяем нажатую клавишу
    case ch of
      #0: begin
            ch := ReadKey;
            
            case ch of
              #72: Dec(y1); // Стрелка вверх
              #80: Inc(y1); // Стрелка вниз
              #75: Dec(x1); // Стрелка влево
              #77: Inc(x1); // Стрелка вправо
            end;
            
            clrscr;
            
            // Отрисовываем резиновый параллелограмм
            gotoxy(x1, y1);
            write('*');
            gotoxy(x2, y2);
            write('*');
            gotoxy(x3, y3);
            write('*');
          end;
      #13: begin
             // Фиксируем второй угол
             x2 := x1;
             y2 := y1;
             clrscr;
             
             // Отрисовываем резиновый параллелограмм
             gotoxy(x1, y1);
             write('*');
             gotoxy(x2, y2);
             write('*');
             gotoxy(x3, y3);
             write('*');
           end;
    end;
    
  until ch = #27; // Выход при нажатии клавиши Esc
end;

begin
  // Инициализируем начальные координаты
  x1 := 10;
  y1 := 10;
  x2 := 10;
  y2 := 10;
  x3 := 20;
  y3 := 10;
  
  DrawRubberParallelogram();
end.

Когда программа запускается, вы можете использовать стрелки для перемещения верхнего угла параллелограмма, а затем нажмите клавишу Enter, чтобы фиксировать его положение. После этого вы можете использовать стрелки для растягивания параллелограмма в нужное вам направление. Нажмите клавишу Esc, чтобы выйти из программы.

Обратите внимание, что код написан на языке Turbo Pascal, который является устаревшим. Рекомендуется использовать современные языки программирования для разработки приложений.