braigon974
?>

Составьте в ms visio блок-схемы для следующих . a) компьютеру сообщается значение x, а он печатает значение y, которое находит по формуле: 2 y={x при x ≤ 0, √x при x > 0. b) заданы 3 числа. определите, можно ли построить треугольник с такими сторонами.

Информатика

Ответы

aivanova
Ms dos qbasic 1.0 dim n as integer cls input "n=", n redim a(1 to n) as integer dim a as integer randomize timer for i = 1 to n     a(i) = 9 * rnd + 1     print a(i); next i print ' sort dim j as integer, t as integer for i = 1 to n     for j = 1 to n           if a(i) < a(j) then                 t = a(i): a(i) = a(j): a(j) = t           end if     next j next i ' t = a(1): j = 1 for i = 2 to n     if a(i) = t then           j = j + 1     else           print t; "-"; j           t = a(i): j = 1     end if next i print t; "-"; j пример n=10   7  5  2  7  3  3  5  9  7  6   2 - 1   3 - 2   5 - 2   6 - 1   7 - 3   9 - 1
Oksana-Kirakosyan1301
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив [6,7] ***');   var a: =matrrandom(6,7,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('*** результирующий массив [6,7] ***');   for var i: =0 to 2 do a.swaprows(2*i,2*i+1);   a.println(4) end. пример *** исходный массив [6,7] ***   16 -26 -12  33  39 -28  -6   15 -77  15  63 -30 -59 -62   -14  -3 -94  42  49  86  95   -74  75 -69 -44 -43  -2 -62   -68  82 -36 -30 -92 -88  34   -34  16  81 -67    4  -8  80 *** результирующий массив [6,7] ***   15 -77  15  63 -30 -59 -62   16 -26 -12  33  39 -28  -6   -74  75 -69 -44 -43  -2 -62   -14  -3 -94  42  49  86  95   -34  16  81 -67    4  -8  80   -68  82 -36 -30 -92 -88  34

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

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

Составьте в ms visio блок-схемы для следующих . a) компьютеру сообщается значение x, а он печатает значение y, которое находит по формуле: 2 y={x при x ≤ 0, √x при x > 0. b) заданы 3 числа. определите, можно ли построить треугольник с такими сторонами.
Ваше имя (никнейм)*
Email*
Комментарий*