Вопрос задан 12.02.2021 в 15:39. Предмет Информатика. Спрашивает Бутчик Вася.

Перевести из паскаля в c++ program p; uses crt; const n = 20; var r: real; a: array[1..n] of

integer; i: Integer; begin clrscr; randomize; r := 0; for i := 1 to n do begin a[i] := random(50); write(a[i], ' '); r := r + 1 / a[i]; end; writeln; r := 1 / r; writeln('R: ', r); readkey; end.
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Чуйкин Миша.

Ответ:

#include <iostream>

#include <ctime>

#include <cstdlib>

using namespace std;

int main() {

 srand(time(0));

 const int n = 20;

 double r = 0;

 int a [n];

 for (int i = 0; i < n; ++i){

   a[i] = (rand() % (50-0+1)+0);

   cout << a[i] << " ";

   r = r + 1.0 / (double)a[i];

 }

 cout << endl;

 r = 1.0 / r;

 cout << "R: " << r;

}

Объяснение:

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Вот эквивалентная программа на C++:

cpp
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; const int n = 20; int main() { srand(time(0)); int a[n]; double r = 0; for (int i = 0; i < n; i++) { a[i] = rand() % 50; cout << a[i] << ' '; r += 1.0 / a[i]; } cout << endl; r = 1.0 / r; cout << "R: " << r << endl; return 0; }

Обратите внимание, что в C++ индексация массивов начинается с 0, поэтому в цикле for я использовал i < n вместо i <= n. Кроме того, я использовал генератор случайных чисел rand() из стандартной библиотеки C++ вместо randomize и random из Pascal. Для получения различных случайных значений в каждом запуске программы, я использовал srand(time(0)), чтобы инициализировать генератор случайных чисел с текущим временем.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос