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

Kroshka_9168

44

Конечно, я могу помочь вам с этими задачами по программированию на языке Паскаль.

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

pascal

program NumberDisplay;

uses crt;



var

   number: Integer;

   

begin

   ClrScr;

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

   readln(number);

   

   case number of

      1: begin

            writeln("Ваше число - 1");

            { здесь можно добавить код для отображения числа 1 в графическом окне }

         end;

      2: begin

            writeln("Ваше число - 2");

            { здесь можно добавить код для отображения числа 2 в графическом окне }

         end;

      3: begin

            writeln("Ваше число - 3");

            { здесь можно добавить код для отображения числа 3 в графическом окне }

         end;

      else writeln("Некорректный ввод. Введите число от 1 до 3.");

   end;

   

   readln;

end.

В этой программе мы сначала просим пользователя ввести число от 1 до 3 с помощью команды `readln`. Затем мы используем оператор `case` для проверки значения введенного числа и в зависимости от этого выводим соответствующее сообщение и отображаем число в графическом окне. Каждый блок `begin...end` представляет отдельный случай, который соответствует введенному числу. Если пользователь ввел число, не попадающее в диапазон от 1 до 3, программа выведет сообщение об ошибке.

2) Программа, которая будет отображать любую цифру от 0 до 9 в графическом окне, может выглядеть следующим образом:

pascal

program DigitDisplay;

uses crt;



var

   digit: Integer;

   

begin

   ClrScr;

   writeln("Введите цифру от 0 до 9:");

   readln(digit);

   

   case digit of

      0: begin

            writeln("Ваша цифра - 0");

            { здесь можно добавить код для отображения цифры 0 в графическом окне }

         end;

      1: begin

            writeln("Ваша цифра - 1");

            { здесь можно добавить код для отображения цифры 1 в графическом окне }

         end;

      2: begin

            writeln("Ваша цифра - 2");

            { здесь можно добавить код для отображения цифры 2 в графическом окне }

         end;

      3: begin

            writeln("Ваша цифра - 3");

            { здесь можно добавить код для отображения цифры 3 в графическом окне }

         end;

      4: begin

            writeln("Ваша цифра - 4");

            { здесь можно добавить код для отображения цифры 4 в графическом окне }

         end;

      5: begin

            writeln("Ваша цифра - 5");

            { здесь можно добавить код для отображения цифры 5 в графическом окне }

         end;

      6: begin

            writeln("Ваша цифра - 6");

            { здесь можно добавить код для отображения цифры 6 в графическом окне }

         end;

      7: begin

            writeln("Ваша цифра - 7");

            { здесь можно добавить код для отображения цифры 7 в графическом окне }

         end;

      8: begin

            writeln("Ваша цифра - 8");

            { здесь можно добавить код для отображения цифры 8 в графическом окне }

         end;

      9: begin

            writeln("Ваша цифра - 9");

            { здесь можно добавить код для отображения цифры 9 в графическом окне }

         end;

      else writeln("Некорректный ввод. Введите цифру от 0 до 9.");

   end;

   

   readln;

end.

В этой программе мы используем аналогичную структуру `case`, чтобы проверить значение введенной цифры и вывести соответствующее сообщение и отобразить цифру в графическом окне. Каждый блок `begin...end` представляет отдельную цифру от 0 до 9. Если пользователь ввел число, не попадающее в этот диапазон, программа выведет сообщение об ошибке.

Надеюсь, эти программы помогут вам в решении ваших задач по программированию! Если у вас есть еще вопросы, не стесняйтесь задавать их.