profile
Опубликовано 5 лет назад по предмету Информатика от Truntik

1)Как, используя функцию random(X), можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100?

2) какие значения  может  принимать целая переменная Y если в программе записано : Y :=10+ ranodom (5)? 

3) составьте  программу заполнения массива из 100 чисел случайными значениями из диапозона  от -20до 20. подсчитайте в этом массиве колличество положительных и колличество  отрицательных значения 

  1. Ответ
    Ответ дан Giammy

    Правило получения числа из функции Random(X):  

        0 <= RandomNum < X

    1)

      От 1 до 10 – Random(10)+1

      От -10 до 10 – Random(21)-10

      От 50 до 100 – Random(51)+50

    2)

      Y:=10+Random(5)

      Random(5):

           Левая граница = 0

           Правая граница = 4

      Отсюда, Y ∈ [10; 14].

    3)

    // PascalABC.NET

    // Версия 3.4.2, сборка 1956 (01/30/19)

    var

     arr: array[0..99] of integer;

     p, n: integer;

    begin

     (p, n) := (0, 0);

     for var i := 0 to 99 do

     begin

       arr[i] := Random(41) - 20;

       if (arr[i] > 0) then inc(p)

       else if (arr[i] < 0) then inc(n);

     end;

     Println('Positive:', p);

     Println('Negative:', n);

    end.

Самые новые вопросы