Ниже приведена программа записанная на трёх языках программирования
Было проведено 9 запусков программы, при которых в качестве значений переменных ѕи
t вводились следующие пары чисел:
(1, 2); (11, 2); (1, 12); (11, 12); (-11, -12); (-11, 12); (-12, 11); (10, -10); (10, 5).
using namespace std;
const int n = 15;
double congruential(int &x) // функция генерации псевдослучайных чисел
{
const int m = 100, // генерация псевдослучайных чисел в диапазоне
значений от 0 до 100 (выбирается случайно m > 0)
a = 8, // множитель (выбирается случайно 0 <= a <= m)
inc = 65; // инкрементирующее значение (выбирается случайно 0
<= inc <= m)
x = ((a * x) + inc) % m; // формула линейного конгруэнтного метода
генерации псевдослучайных чисел
return (x / double(m));
}
int main()
{
double arr[n];
double num, frq, max_frq;
int x0 = 20;
for (int i=0; i<n; i++) {
arr[i] = congruential(x0);
cout << arr[i] << " ";
}
num = arr[0];
max_frq = 1;
for (int i=0; i < n-1; i++) {
frq = 1;
for (int k = i+1; k<n; k++)
if (arr[i] == arr[k])
frq += 1;
if (frq > max_frq) {
max_frq = frq;
num = arr[i];
}
}
cout << endl;
if (max_frq > 1)
cout << max_frq << " : " << num << endl;
else
cout << "All uniqum" << endl;
return 0;
}
begin
write('x = ');
readln(x);
writeln('Введите номер задачи:');
writeln('1-вычисление квадратного корня;');
writeln('2-возведение в квадрат;');
writeln('3-вычисление синуса;');
writeln('4-вычисление косинуса;');
readln(n);
case n of
1: writeln(sqrt(x):6:4);
2: writeln(x*x:6:4);
3: writeln(sin(x):6:4);
4: writeln(cos(x):6:4);
else writeln('Ошибка ввода');
end;
end.
Пример:
x = 2.1
Введите номер задачи:
1-вычисление квадратного корня;
2-возведение в квадрат;
3-вычисление синуса;
4-вычисление косинуса;
3
0.8632