Question

Помогите пожалуйста с ИВТ: 1.Случайным образом генерируется N целых чисел в диапазоне от -5 до 5. Посчитать сколько среди них положительных, отрицательных, и не равных нуля. Задача решается через Turbo Pascal

Answer 1

#include <iostream>

 

using namespace std;

 

int main()

{

 int N;

 int i1=0,i2=0;

 cin>>N;

 for(int i=0;i<N;i++)

 {

  int a = rand()%11-5;

  if(a<0)

   i1++;

  if(a>0)

   i2++;

 }

 cout<<">0 - "<<i2<<endl<<"<0 - "<<i1<<endl<<"!=0 - "<<i1+i2<<endl;

 system("PAUSE");

}

 

P.S. Задачу можно решить не только через Turbo Pascal.

 

TurboPascal(может не очень верно)

 

var

a,n, i1, i2, i: integer;

begin

 n := 42;

 for i:=1 to n do begin

  a:=random(11)-5;

  if a > 0 then

   i1 := i1 + 1;

  if a < 0 then

   i2 := i2 + 1;

 end;

 writeln(">  0-", i1);

 writeln("<  0-", i2);

 writeln("<>0-", i1+i2);

end.

Answer 2

Для решения данной задачи в Turbo Pascal можно использовать следующий алгоритм:

1. Объявить переменные для хранения количества положительных, отрицательных и нулевых чисел. Начальные значения счетчиков устанавливаются равными 0.

2. С использованием генератора случайных чисел (функция Random) сгенерировать n случайных чисел в диапазоне от -5 до 5. Для этого можно использовать цикл от 1 до n.

3. Внутри цикла проверить каждое сгенерированное число:

a. Если число больше 0, увеличить счетчик положительных чисел на 1. b. Если число меньше 0, увеличить счетчик отрицательных чисел на 1. c. Если число равно 0, увеличить счетчик нулевых чисел на 1.

4. По окончанию цикла вывести значения счетчиков на экран, чтобы узнать количество положительных, отрицательных и нулевых чисел среди сгенерированных.

Пример кода на Turbo Pascal:

program CountPositiveNegativeZero;
var
  n, i, positiveCount, negativeCount, zeroCount: integer;
begin
  positiveCount := 0;
  negativeCount := 0;
  zeroCount := 0;

writeln('Введите количество чисел:');
  readln(n);

randomize; // инициализация генератора случайных чисел

for i := 1 to n do
  begin
    // генерация случайного числа в диапазоне от -5 до 5
    var randomNumber := random(11) - 5;

if randomNumber > 0 then
      positiveCount := positiveCount + 1
    else if randomNumber < 0 then
      negativeCount := negativeCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

writeln('Количество положительных чисел:', positiveCount);
  writeln('Количество отрицательных чисел:', negativeCount);
  writeln('Количество нулевых чисел:', zeroCount);

readln;
end.

После запуска программы, она будет запрашивать количество чисел (n), затем генерировать n случайных чисел и выводить количество положительных, отрицательных и нулевых чисел среди них.