BrDoom Fórum

Código: Selecionar todos

Declara {
   Var string nome;
   Var int idade;
   return;
}

RecebeDados {
   Messageln("Qual seu nome?");
   Get(nome);
   Messageln("Qual sua idade?");
   Get(idade);
   return;
}

ImprimeResultado {
   Message("Voce se chama "); Print(nome); Message(" e tem "); Print(idade); Messageln(" anos.");
   return;
}

Pausa {
   System("pause");
   return;
}

Rodar {
   Declara;
   RecebeDados;
   ImprimeResultado;
   return;
}

main() {
   Messageln("Programa da idade!");
   Rodar;
   Pausa;
}

Código: Selecionar todos

Changelog [v.0.00 -> v0.01]
 * [ADD] Funcoes Malloc e Free.
 * [FIXED] Agora é possível usar 'ifs' dentro de outras
   funções sem dar problema na leitura do arquivo. 
 * Novo programa exemplo.

Código: Selecionar todos

vezes(int a,int b) {
    return(a*b);
}

int main() {
    int i;
    int u;
    int res;

    printf("Coloque primeiro numero: ");
    scanf("%d",&i);
    printf("Coloque segundo numero: ");
    scanf("%d",&u);
    res=vezes(i,u);
    printf("Resultado: %d",res);
    return(0);
}

Código: Selecionar todos

/* Inicio de um possível WAD READER para UDMF, abrir lumps e colocar num cache onde que depois o Olympus irá interpretar. */


#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define LEN 255 // Maximo de chars no nome do arquivo

int main(int argc, char *argv[]) {

    int len;
    char wadfile[LEN];
    char WAD_TYPE[5];
    char buffer[5];

    FILE *wad;

    if(fgets(wadfile,sizeof(wadfile),stdin)) {
        len = strlen(wadfile) - 1; // Posição anterior ao '\0'
        // Se houver nova linha, remove-a
        if(wadfile[len]=='\n')
            wadfile[len]='\0';
    }

    wad = fopen(wadfile,"r");
    if(fgets(buffer,5,wad)) {
        sscanf(buffer,"%s",&WAD_TYPE);
    }
    if(strcmp(WAD_TYPE,"PWAD")==0) {
        printf("%s = PWAD",wadfile);
    } else if(strcmp(WAD_TYPE,"IWAD")==0) {
        printf("%s = IWAD",wadfile);
    } else {
        printf("WAD Invalido");
    }
    getchar();
    return(0);
}