Перевести с Паскаля на C++

@Tima1996 · Регистрация: 03.10.2014

Студворк — интернет-сервис помощи студентам

как заменить этот же код на С++ ??

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 const nmax = 100;
type 
arr = array[1..nmax,1..nmax] of real;
var
a:arr;
i,j,n,imax,jmax:integer;
k,max:real;
begin
randomize;
write('Введите размерность массива n: ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(99)+1;
write(a[i,j]:6:0);
end;
writeln;
end;
writeln;
 
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
writeln('Максимальный элемент: ',max,'[',imax,',',jmax,']');
if imax=jmax then k:=10 else k:=0.5;
 
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]*k:6:1);
writeln;
end;
readln;
end.

@nmcf · 05.11.2014, 10:59

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#include <cstdlib>
#include <ctime>
#include <iostream>
#include <locale>
 
using std::cout;
using std::cin;
using std::endl;
using std::locale;
 
int main()
{
    locale loc;
    loc.global(locale(""));
 
    const int nmax = 100;
    typedef float arr[nmax][nmax];
    arr a;
    int i, j, n, imax, jmax;
    float k, max;
 
    cout << "Введите размерность массива n: ";
    cin >> n;
    cout << "Исходный массив:" << endl;
    srand(time(NULL));
    for (i = 0; i < n; i++)
    {
        for (j = 0; j < n; j++)
        {
            a[i][j] = rand() % 100 + 1;
            cout.width(6);
            cout << a[i][j];
        }
        cout << endl;
    }
    cout << endl;
 
    max = a[0][0];
    for (i = 0; i < n; i++)
        for (j = 0; j < n; j++)
            if(a[i][j] > max)
            {
                max = a[i][j];
                imax = i;
                jmax = j;
            }
    cout << "Максимальный элемент: " << max << " [" << imax << "," << jmax << "]" << endl;
 
    k = imax == jmax ? 10.0 : 0.5;
    cout << "Полученный массив:" << endl;
    for (i = 0; i < n; i++)
    {
        for (j = 0; j < n; j++)
        {
            a[i][j] *= k;
            cout.width(7);
            cout.precision(1);
            cout.setf(cout.fixed, cout.floatfield);
            cout << a[i][j];
        }
        cout << endl;
    }
    cout << endl;
 
    system("pause");
    return 0;
}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Перевести с Паскаля на C++

Решение