1) Напишите программу, которая просит пользователя ввести число от 1 до 3, а затем отображает это число на графическом

Инструкция для написания программы на языке Pascal

Разъяснение:
Для выполнения обоих задач нам понадобятся основные знания языка Pascal и понимание работы с графикой в Pascal.

В первой задаче, мы просим пользователя ввести число от 1 до 3 с помощью функции Readln. Затем мы используем условную конструкцию case, чтобы определить, какое число было введено пользователем и отобразить его на графическом окне с помощью процедуры GraphWindow. Для этого мы создаем константы с символьной формой чисел, и сравниваем введенное число с помощью case.

Во второй задаче, мы просим пользователя ввести число от 0 до 9 с помощью функции Readln. Затем мы определяем выбранное число с помощью условного оператора if-then-else и рисуем его на графическом окне с помощью процедуры GraphWindow. Для реализации этого, мы создаем процедуру DrawNumber, которая будет рисовать каждую цифру.

Пример:
Задача 1:

program Task1;



uses Graph;



var

   number: integer;



begin

   InitGraph;

   Write("Введите число от 1 до 3: ");

   Readln(number);



   case number of

      1: GraphWindow("1");

      2: GraphWindow("2");

      3: GraphWindow("3");

   else

      Write("Неверное число!");

   end;



   CloseGraph;

end.

Задача 2:

program Task2;



uses Graph;



var

   number: integer;



procedure DrawNumber(num: integer);

begin

   case num of

      0:

         begin

            // код для рисования цифры 0

         end;

      1:

         begin

            // код для рисования цифры 1

         end;

      // остальные числа от 2 до 9

   else

      Write("Неверное число!");

   end;

end;



begin

   InitGraph;

   Write("Введите число от 0 до 9: ");

   Readln(number);



   DrawNumber(number);



   CloseGraph;

end.

Совет:
Для более глубокого понимания работы с графикой в Pascal, рекомендуется изучить и примеры использования графических процедур и функций, таких как InitGraph, GraphWindow и других. Также, изучение основ программирования, условных операторов и функций языка Pascal сделает процесс решения задач более понятным и простым.

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

1) Программа для отображения числа на графическом окне:

Пояснение: Программа просит пользователя ввести число от 1 до 3 и затем отображает это число на графическом окне. Для решения этой задачи воспользуемся языком программирования Pascal и его графической библиотекой Graph.

Дополнительный материал:

pascal

uses

  Graph;

   

var

  number: Integer;

  gd, gm: smallint;

  

begin

  gd := Detect;

  InitGraph(gd, gm, "");

  

  Write("Введите число от 1 до 3: ");

  ReadLn(number);

  

  if (number < 1) or (number > 3) then

    WriteLn("Вы ввели некорректное число!")

  else

  begin

    ClearDevice;

    

    case number of

      1: OutTextXY(100, 100, "1");

      2: OutTextXY(100, 100, "2");

      3: OutTextXY(100, 100, "3");

    end;

  end;

  

  ReadLn;

  CloseGraph;

end.

Совет: Данный пример использует графическую библиотеку Graph, которая может быть не доступна в некоторых редакторах кода. Чтобы корректно компилировать и запускать программу, рекомендуется использовать Turbo Pascal или современные IDE для Pascal, такие как Lazarus.

Практика: Напишите программу на Pascal, которая просит пользователя ввести число от 1 до 5 и отображает это число на графическом окне.