knigi21212
?>

Можете написать на qbasic и составить блок-схему к нему? ввести массив из mxn элементов. сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. надо, чтобы массив вбивался вручную.

Информатика

Ответы

yok887062
Cls dim a(100, 100) input "n="; n input "m="; m for i = 1 to n for j = 1 to m print str$(i); print str$(j); input ; a(i, j) next j print next i print "" for i = 1 to n for j = 1 to m print a(i, j), next j print next i print "" for j = m to 1 step -1 for i = 1 to n print a(i, j), next i print next j  
annasv8
Var {секция описания переменных} number,num1,num2,sum: integer; begin{начало программы} write('введите двухзначное число: '); //вывод строки на экран read(number);   //переменная number получает значение с клавиатуры num1 : = number div 10;   //в num1 целая часть от деления number на 10 num2 : = number mod 10;   //в num2 остаток от деления number на 10 sum : = num1 + num2;   //находим сумму num1 и num2 write('сумма двух чисел — ',sum); //вывод результата на экран end. {конец программы}
ЮлияДаниил520

var

  x, y : real;

begin

  read (x, y);

  if (x > 0) and (y < 0) then writeln ('yes') else writeln ('no');

end.

 

не знаю только, как рассмотреть случай, если одна из координат = 0

 

var

  a, b, c : real;

begin

  if (a > b) then

  begin

    c : = a;

    a : = abs (a + b);

    b : = sqr (c) - sqr (b);

  end

  else

  begin

    c : = b;

    b : = abs (b + a);

    a : = sqr (c) - sqr (a);

  end;

  writeln (a, ' ', b);

end,

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

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

Можете написать на qbasic и составить блок-схему к нему? ввести массив из mxn элементов. сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. надо, чтобы массив вбивался вручную.
Ваше имя (никнейм)*
Email*
Комментарий*

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

nalekseeva62
Марина
eisakov86
Popov Valentina1324
Оксана
migor72
vvb1383
Vera-zero281
metelkin7338
sonicegle
rytikovabs
frolevgevg6420
russstep
Marianna45
tvshi