сделайте 2 и 3!!! пжл

Задания 2 и 3.

ОТДЕЛ Задание2+;
Употребляет Матем ИЗ "...\Отделы\Числа\", Вывод ИЗ "...\Отделы\Размен\", Приём;

ПЕР
  Массив: РЯД 3, 4 ИЗ ЦЕЛ;
  сч1, сч2: ЦЕЛ;

УКАЗ
  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 3 ВЫП
      Массив[сч1, сч2] := Приём.Число();
      Вывод.Цепь(" ")
    КОН;
    Вывод.Цепь("^")
  КОН;

  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 3 ВЫП
      Вывод.ЧЦел("%8d ", Массив[сч1, сч2], 0, 0, 0)
    КОН;
    Вывод.Цепь("^")
  КОН;

КОН Задание2.

ОТДЕЛ Задание3+;

Употребляет Матем ИЗ "...\Отделы\Числа\", Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  Массив: РЯД 3, 4 ИЗ ВЕЩ;
  сч1, сч2: ЦЕЛ;

УКАЗ
  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 3 ВЫП
      Массив[сч1, сч2] := УЗК(Матем.случ())
    КОН
  КОН;
  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 3 ВЫП
      Вывод.ЧВещ("%.2f ", Массив[сч1, сч2], 0, 0, 0)
    КОН;
    Вывод.Цепь("^")
  КОН

КОН Задание3.

Пример вывода 3-его задания:

D:\Разработки\Глагол\Прибавления\Своиgt;Задание3
0,32 0,48 0,42 0,73
0,92 0,33 0,00 0,04
0,24 0,59 0,62 0,95

Цитирую код отдела "Приём", раз его ещё пока в стандартный выпуск среды разработки не включили, но, по-моему, это излишнее, метод понятен и так. Задачи Приём.Строчка() и Приём.Ожидать() убрал, они тут не используются, а текста много.

ОТДЕЛ Приём;

 

Употребляет

  ОС ИЗ "...\Отделы\Размен\",

  КОС ИЗ "...\Отделы\Размен\",

  Ввод ИЗ "...\Отделы\Обмен\",

  Вывод ИЗ "...\Отделы\Размен\",

  Символ ИЗ "...\Отделы\Иное\";

 

Задачка Число-(): ЦЕЛ;

(* Целое число *)

ПЕР

  отКлавиш: Ввод.ОтКлавиш;

  отМышки: Ввод.ОтМышки;

  Счётчик, сч: ЦЕЛ;

  Итог: ЦЕЛ;

  Буфер: ДОСТУП К РЯД ИЗ Символ;

  Отрицательное: КЛЮЧ;

УКАЗ

  Итог := 0; Счётчик := 0; Отрицательное := ОТКЛ;

  КОЛЬЦО

    ЕСЛИ КОС.Опрос(отКлавиш, отМышки) = Ввод.кнопки ТО

      ЕСЛИ отКлавиш.символ = 0DX ТО

        ЕСЛИ Отрицательное ТО ВОЗВРАТ -Результат По другому ВОЗВРАТ Итог КОН

      АЕСЛИ отКлавиш.код = 08H ТО

        ЕСЛИ Счётчик gt; 0 ТО

          Результат := Итог Разделять 10;

          Вывод.ЗнакЦепи(отКлавиш.символ); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(отКлавиш.символ); УМЕНЬШИТЬ(Счётчик)

        АЕСЛИ Отрицательное ТО

          Отрицательное := ОТКЛ;

          Вывод.ЗнакЦепи(отКлавиш.символ); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(отКлавиш.символ)

        КОН

      АЕСЛИ (отКлавиш.код = 2DH) И (ОС.РазмерЦепочкиОбменника() 0) ТО

        ПОКА Счётчик gt; 0 ВЫП

          УМЕНЬШИТЬ(Счётчик); Вывод.ЗнакЦепи(8X); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(8X)

        КОН;

        ЕСЛИ Отрицательное ТО

          Отрицательное := ОТКЛ; Вывод.ЗнакЦепи(8X); Вывод.ЗнакЦепи(" "); Вывод.ЗнакЦепи(8X)

        КОН;

        Итог := 0;

        СОЗДАТЬ(Буфер, ОС.РазмерЦепочкиОбменника());

        ОС.ЦепочкуИзОбменника(Буфер^);

        ЕСЛИ (Буфер[0] gt;= "0") И (Буфер[0] lt;= "9") ТО

          Итог := Результат * 10 + (ВЦЕЛ(Буфер[0]) - ВЦЕЛ("0"));

          Вывод.ЗнакЦепи(Буфер[0]); Прирастить(Счётчик)

        АЕСЛИ Буфер[0] = "-" ТО Вывод.ЗнакЦепи("-"); Отрицательное := ВКЛ КОН;

        ОТ сч := 1 ДО РАЗМЕР(Буфер^)-1 ВЫП

          ЕСЛИ (Буфер[сч] gt;= "0") И (Буфер[сч] lt;= "9") ТО

            Итог := Результат * 10 + (ВЦЕЛ(Буфер[сч]) - ВЦЕЛ("0"));

            Вывод.ЗнакЦепи(Буфер[сч]); Прирастить(Счётчик)

          КОН

        КОН;

        Буфер := ПУСТО

      АЕСЛИ (отКлавиш.знак = "-") И (НЕ Отрицательное) ТО

        ЕСЛИ Итог = 0 ТО Отрицательное := ВКЛ; Вывод.ЗнакЦепи("-") КОН

      АЕСЛИ отКлавиш.знак = 0X ТО

      АЕСЛИ (Итог lt; МАКС(ЦЕЛ) ДЕЛИТЬ 10) И ((отКлавиш.символ gt;= "0") И (отКлавиш.символ lt;= "9")) ТО

        Итог := Результат * 10 + (ВЦЕЛ(отКлавиш.символ) - ВЦЕЛ("0"));

        Вывод.ЗнакЦепи(отКлавиш.символ); Прирастить(Счётчик)

      КОН

    По другому ОС.Почивать(50) КОН

  КОН

КОН Число;

 

КОН Приём.