Question

Z poniszego kodu nie kapuje jak działają te for'y (zapewne jakaś ukryta opcja), więc chcę żeby ten kod z c++(na dev-cpp) diała przepisać na dev-pascal

#include <stdlib.h>
#include <stdio.h>
long a=10000,b,c=28000,d,e,f[28001],g;
int main()
{
for(;b-c;f[b++]=a/5 );
for(; d=0,g=c*2; printf("%.4d",e+d/a),e=d%a,c-=14 )
for(b=c; d+=f[b]*a,f[b]=d%--g,d/=g--,--b; d*=b);
system("pause");
return 0;
}

Answer 1

Witaj, nie da się tego kody przepisać na Pascala ponieważ Pascal nie umożliwia np. konwersowania wyjścia.

Opisałem ten kod komentarzami.
Dodam, że nikt przy zdrowych zmysłach nie użyje tak nielogicznego i skomplikowanego kodu w pęli for.

Poza tym nie jest to w C++ tylko w ANSI C.


#include <stdlib.h>
#include <stdio.h>
long a=10000;
long b;
long c=28000;
long d,e;
long f[28001];
long g;


int main()
{


for( ; b-c/*for działa dopóki b-c > 0 */ ; f[b++]=a/5 /* przypisz do elementu tablicy f o indeksie b+1 iloraz a i liczby 5*/ );

for( ; d=0 , g=c*2/* dopóki d = 0 i g > 0 */; printf("%.4d",e+d/a)/* wyswietl e + (d/a) wyswietl jako czterocyformwa liczba całkowita */, e=d%a,c-=14 /* e = reszta z dzielnie d przez a; c := c - 14*/ )

for(b=c; /* przypisanie zmienne b wartosci zmiennej c*/ d+=f[b]*a/* dopóki d + (f[b] * a) > 0 */,f[b]=d%--g,d/=g--,--b /* i dopóki resztz z dzielnie d przez g - 1 i d/g oraz b-1 jest większe od zera; */;d*=b /* do d przypisz d * b*/)

system("pause");
return 0;
}