Не могу перевести их pascal

@kkk008009kkk · Регистрация: 24.03.2011

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

Добрый день.
написал программу на паскале

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
var
x:array [1..100] of integer;
a,s,d,f,n,i,j,k:integer;
rt,rt2,h,c:integer;
begin
writeln('введите n');
readln(n);
x[1]:=1;
for i:=2 to n do
 
x[i]:=0;
 
writeln;
k:=n;
c:=1;
repeat
x[k]:=x[k]+1;
for i:=1 to n do
write(x[i], ' ');
writeln;
 
if x[k]=k then begin
x[k]:=0;
if x[k-c]=k-c then
inc(c);
x[k-c]:=x[k-c]+1;
end;
until x[1]=2;
 
end.

Переписал на Ci

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
#include <stdio.h>
#include <conio.h>
#include <cstdlib>
 
int main(){
     
  int x[100];
 int a,s,d,f,n,i,j,k;       
int rt,rt2,h,c;
scanf("%d",&n);
x[1]=1;
 
for (i=2;i<=n;i++) {
 
x[i]=0;
printf("%d \n",x[i]);}
 
 
printf("\n");
k=n;
c=1;
do
{
x[k]=x[k]+1;
for (i=1;i<=n;i++) 
printf("%d " ,x[i]);
printf("\n");
 
if (x[k]=k) {
x[k]=0;
if (x[k-c]=k-c) c=c+1;
x[k-c]=x[k-c]+1;
}}
while (x[1]!=2);
getch();
}

Программа не работает в Си. В паскале все отлично

Условие задачи:

Напечатать все последовательности положительных целых чисел длины k, у которых i-ый член не превосходит i

@Infinity3000 · 08.05.2012, 01:13

не проверял, исправил что увидел

В Си, индексация массивов идет с 0.

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
#include <stdio.h>
#include <conio.h>
#include <cstdlib>
 
int main()
{
     
  int x[100];
 int a,s,d,f,n,i,j,k;       
int rt,rt2,h,c;
scanf("%d",&n);
x[0]=1;
 
for (i=1; i<n; i++)
 {
x[i]=0;
printf("%d \n",x[i]);
}
 
 
printf("\n");
k=n;
c=1;
do
{
x[k]=x[k]+1;
for (i=0;i<n;i++) 
printf("%d " ,x[i]);
printf("\n");
 
if (x[k]=k) {
x[k]=0;
if (x[k-c]=k-c) c=c+1;
x[k-c]=x[k-c]+1;
}}
while (x[1] != 2);
getch();
}

@kkk008009kkk · 08.05.2012, 01:17 **[ТС]**

Вечный цикл получается

@Infinity3000 · 08.05.2012, 01:25

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
#include <stdio.h>
#include <conio.h>
#include <cstdlib>
 
int main()
{
     
    int x[100];
    int a,s,d,f,n,i,j,k;       
    int rt,rt2,h,c;
    scanf("%d",&n);
    
    x[0] = 1;
    for (i = 1; i < n; i++) 
    {
        x[i] = 0;
    }
 
    printf("\n");
    k = n;
    c = 0;
    do
    {
        x[k] = x[k] + 1;
        for (i = 1; i < n;i++) 
            printf("%d " ,x[i]);
        printf("\n");
 
        if (x[k]=k) 
        {
            x[k] = 0;
            if (x[k - c] = k - c) 
                c = c + 1;
        x[k - c] =x[k - c] + 1;
        }
    }
    while (x[0] != 2);
    
    getch();
 
    return 0;
}

@kkk008009kkk · 08.05.2012, 01:29 **[ТС]**

Не работает так, как в паскале. Но более неактуально, так как нашел ошибку в алгоритме.

@Infinity3000 · 08.05.2012, 01:31

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

Не работает так, как в паскале. Но более неактуально, так как нашел ошибку в алгоритме.

Ну да не заметил на ночь глядя!

тут ты присваеваешь

C++
1
if (x[k]=k)

нужно сравнивать

C++
1
if (x[k]==k)

Ну и вообще преводи внимательней!

@kkk008009kkk · 08.05.2012, 01:37 **[ТС]**

Это уже неважно(но спасибо, учту), сам алгоритм неправильный.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@kkk008009kkk 46 / 46 / 5 Регистрация: 24.03.2011 Сообщений: 315
	08.05.2012, 01:17 [ТС]
	Вечный цикл получается 0

@kkk008009kkk 46 / 46 / 5 Регистрация: 24.03.2011 Сообщений: 315
	08.05.2012, 01:29 [ТС]
	Не работает так, как в паскале. Но более неактуально, так как нашел ошибку в алгоритме. 0

@kkk008009kkk 46 / 46 / 5 Регистрация: 24.03.2011 Сообщений: 315
	08.05.2012, 01:37 [ТС]
	Это уже неважно(но спасибо, учту), сам алгоритм неправильный. 0