Anatolii
?>

Подскажите, , как рисовать овал под углом на языке программирования qbasic? ​

Информатика

Ответы

evageniy79

Данная программа выведет 64.

Вначале задаётся переменная под названием "a", которой даётся значение 4. Дальше запускается цикл for для переменной "i" в радиусе 4. Данную переменную не нужно создавать отдельно, так как она будет использоваться только в цикле и изменяться в нём. В методе range указан аргумент числа и цикл будет при срабатывании присваивать переменной "i" число, которое идёт по порядку до 4, и пока переменная "i" не станет равна числу, указанному в аргумента метода range, цикл будет повторять действия. Цикл сработает 3 раза, так как в аргументе метода range указано число 4, и если переменная "i" будет равна 4, то он перестанет работать. В самом цикле написана инструкция, в которой к переменной "a" прибавляется она сама. Иными словами мы будем возводить её в квадрат. Так можно понять, что ответом будет возведение числа 4 в 3-ю степень, что равняется 64.

ksankaaleks611

const

 n = 5;

var

 a: array[1..n, 1..n] of integer;

 k, c, i, j: integer;

begin  

 c := 1;

 k := 1;

 while c <= n do  

 begin

   for i := 1 to n do  

     begin  

       a[c, i] := k;

       k := k + 1;  

     end;  

   c := c + 1;

   if c>n then break;

   for i := n downto 1 do  

     begin  

       a[c, i] := k;

       k := k + 1;  

     end;  

   c := c + 1;

 end;

 for i := 1 to n do  

   begin

     for j := 1 to n do  

       write(a[i, j]:3);

     writeLn;

   end;  

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Подскажите, , как рисовать овал под углом на языке программирования qbasic? ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mmihail146
irnik65
admiralbany
stasyan
magnit-expo
ilplakhotin8734
julichca68
Захаров-Иванович
Sacharov84
Norov
iivanov54
videofanovitch
koochma
andyrvo
михаил