Переписать код

@zLaiNox · Регистрация: 26.10.2019

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

Помогите переписать код с Паскаля на C++
Я вроде делал, а оно не работает

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
var i,j,m,n,d:longint;
    a:array[0..501,0..21] of integer;
    f1,f2:text;
 
procedure rech;
Begin
 d:=1;
 for i:=1 to n do
  for j:=1 to m do
   if (i+j) mod 2=1 then begin a[i,j]:=d;inc(d);end;
 for i:=1 to n do
  for j:=1 to m do
   if (i+j) mod 2=0 then begin a[i,j]:=d;inc(d);end;
 for i:=1 to n do
  begin
   for j:=1 to m do
     write(f2,a[i,j]:6);
   writeln(f2);
  end;
End;
 
 
BEGIN
 assign(f1,'matrix.in');assign(f2,'matrix.out');
 reset(f1);rewrite(f2);
 
 readln(f1,n,m);
 if (n+m=4)or(n+m=3) then writeln(f2,'No')
                     else rech;
 close(f1);close(f2);
END.

Добавлено через 2 минуты
Актуально

@oleg-m1973 · 01.11.2019, 16:09

Сообщение от zLaiNox

Помогите переписать код с Паскаля на C++
Я вроде делал, а оно не работает

Покажи, что делал

@zLaiNox · 01.11.2019, 16:28 **[ТС]**

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
#include <iostream>
using namespace std;
 
int main()
{
    int n, m;
    cin >> n >> m;
    int a[n][m];
    if(n+m==4||n+m==3)
    {
        cout<<"No";
    }
    else
    {
        int d = 1;
        for(int i = 0; i < n; i++)
    {
        for(int j = 0; j < m; j++)
        {
            if((i+j)%2==1){a[i][j]=d;d++;}
        }
    }
    for(int i = 0; i < n; i++)
    {
        for(int j = 0; j < m; j++)
        {
            if((i+j)%2==0){a[i][j]=d;d++;}
        }
    }
    for(int i = 1; i <= n; i++)
    {
        for(int j = 1; j <= m; j++)
        {
            cout<<a[i][j]<<" ";
        }
        cout<<endl;
    }
    }
}

Добавлено через 2 минуты
Задача решена

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .