codigo.pas

来自「本程序实现了mini pascal的一个编译的总过程。」· PAS 代码 · 共 23 行

{ Fatorial }
PROGRAMA Fatorial;
VARIAVEIS

    n, fat, i, saiu :INTEIRO;
    sair : Logico;
    nome, sobrenome :CADEIA;
COMECO
    Leia(n);
    n := 1.3;
    sair := VERDADEIRO;
    sair := FALSO;
    ENQUANTO n > 5
    FACA
    comeco
        fat:= fat*i;
        i := i+1;
    fim;
    sair := FALSO;
    Leia(n);
    Escreva("Eu nasci ha 10 mil anos", n, "j", sair);
FIM.