Z C do Pascalu – Pascal – Fórum – Programujte.com

Dobrý den,

potřebovala bych přeložit zdroják z C do Pascalu.

předem děkuji za odpověď.

#include <stdio.h>

#define MAX 1000000

int main(void)
{
    int cit, jmen, j, i = 0, zac = 0;
    int zb[MAX] = {0};
    char vysl[MAX];
    FILE *fin, *fout;
    fin = fopen("zlomky.in", "r");
    fscanf(fin, "%d %d\n", &cit, &jmen);
    fout = fopen("vysledek.out", "w");

    if (cit >= jmen) {
        zac = cit/jmen;
        cit %= jmen;
    }

    fprintf(fout, "%d.", zac);
    if (!cit)
        fprintf(fout, "0");

    while (cit)
    {
        zb[cit] = i+1;
        cit *= 10;
        vysl[i] = cit / jmen + '0';
        i++;
        cit %= jmen;
        if (zb[cit])
            break;
    }
    if (cit)
    {
        j = vysl[zb[cit] - 1];
        vysl[zb[cit] - 1] = 0;
    }
    vysl[i] = 0;
    fprintf(fout, "%s", vysl);
    if (cit)
    {
        fprintf(fout, "(");
        vysl[zb[cit] - 1] = j;
        vysl[i++] = ')';
        vysl[i] = 0;
        fprintf(fout, "%s", vysl + zb[cit] - 1);
    }
    return 0;
}

To spíš patří do inzerce. Co za to?

hu

#2 hlucheucho
Budu Vám strašně moc vděčná.