Вычислить и вывести на печать таблицу значений функции.сделайте двумя с цикла-пока и цикла-до. нужны программы, а если можете и блок-схемыпаскаль)

var

 x, y: real;

begin

 x := -1;

 while x <= 3 do

 begin

   y := x * x + 4 * x - 7;

   if x >= 2 then

     y := 1 / y;

   writeln(x:5:2, y:21:15);

   x := x + 0.25;

 end;

end.

var

 x, y: real;

begin

 x := -1;

 repeat

   y := x * x + 4 * x - 7;

   if x >= 2 then

     y := 1 / y;

   writeln(x:5:2, y:21:15);

   x := x + 0.25;

 until x > 3;

end.

1. Схематически записываем условие
Есть две команды: (1) ×3 и (2) -5
Тут я ввожу обозначения: в скобках некий "код" команды, а далее обозначение, что именно она делает. Команда с кодом 1 умножает на три, с кодом 2 - вычитает 5.
Теперь, что нам надо получить: 8 ⇒ 36, т.е. из 8 получить 36.

2. Анализируем, какое число может быть перед выполнением последней (т.е. пятой) команды.
Применим к результату команды, обратные к (1) и (2).
Действие, обратное умножению - это деление, вычитанию - сложение.
Для (1) получим 36/3 = 12, т.е. в результате выполнения первых четырех (пока в неизвестном порядке) команд должно получиться 12.
Для (2) получим 36+5 = 41.

3. Теперь анализируем, какой могла бы быть третья команда
Чтобы получить 12 после (1), нужно взять число 12/3 = 4.
Чтобы получить 12 после (2), нужно взять число 4+5=9.
Получить 41 после (1) невозможно, поскольку 41 на 3 не делится нацело.
Чтобы получить 41 после (2), нужно взять число 41+5=46.
Итак, имеем три числа-кандидата.
46 выглядит подозрительно, потому что получить его можно только из 51 при поскольку 46 на 3 не делится и не может быть получено при А получить 8 ⇒ 51 за две возможные операции не получится. Поэтому 46 отбрасываем.

4. Анализируем, какой могла бы быть вторая по порядку команда
Получить 4 после (1) нельзя, потому что 4 не делится на 3.
Чтобы получить 4 после (2), нужно взять число 4+5=9.
Чтобы получить 9 после (1), нужно взять число 9/3 = 3.
Чтобы получить 9 после (2), нужно взять число 9+5=14.

5. Рассматриваем, что можно получить из исходного числа
а) 8 после (1) дает 8×3 = 24 и получить 3, 9 или 14 из 24 при одной из имеющихся команд невозможно.
б) 8 после (2) дает 8-5 = 3 - это и есть решение проблемы.

6. Устанавливаем цепочку преобразований (код команды в скобках).
8-5 = 3 (2)
3х3 = 9 (1)
9-5 = 4 (2)
4х3 = 12 (1)
12х3 = 36 (1)

ответ: 21211 - набор команд

Program arrays;
var a:array [1..3,1..6] of integer;   
i,j:byte;
begin
for i:=1 to 3 do 
    for j:=0 to 1 do   
          begin   
                    a[i,1+3*j]:=random(101)+10;
                    a[i,2+3*j]:=random((1001)+100) div (i+2*j);
                    a[i,3+3*j]:=(random(101)+10) mod 10;   
           end; 
   for i:=1 to 3 do 
           begin 
                      for j:=1 to 6 do   
                                 write(a[i,j],'  '); 
                     writeln;   
         end;
 end.

//Если нужны пояснения - пишите