Hogyan lehet ilyet készíteni?

Most azért kérdezed mert fogalmad sincs?

Tudsz valamiben programozni?

c:

#include <stdio.h>

#include <string.h>

typedef struct Game{

char* question;

char* answer;

}game[5];

void save(int _try){

char* name;

FILE* fp;

printf("\nYour name: ");

scanf("%s",name);

fp = fopen ("file.txt","w");

fseek(fp,0,SEEK_END);

if (fp != NULL){

fprintf(fp,"Name: %s Score: %d\n",name,_try);

fclose (fp);

}

}

int main(void){

int _try = 1;

while(_try < 5){

printf("%d. ",_try);

scanf("%s",game[_try].answer);

if (strcmp(game[_try].answer,game[_try].question) == 0){

printf("Looser!!^-.-^");

save(_try);

return 0;

}else{

_try++;

}

}

printf("Cool...\n");

save(++_try);

return 0;

}

pascal:

program a;

{$APPTYPE CONSOLE}

uses

SysUtils;

type Record = Game

question : string;

answer : string;

end;

var _try : integer = 0;

_game : [0..4] array of Game;

procedure save(t : integer);

var f : file of Game;

name : string;

begin

write('Your name: ');

readln(name);

AssignFIle(f,'file.txt');

{$I-}

Reset(f);

{$I+}

if IOResult <> 0 then Rewrite(f, 'file.txt');

else if FileSize(f) <> 0 then Seek(f, FileSize(f));

write(f,'Name: '.name.' Score: '.t);

CloseFile(f);

end.

begin

while _try < 5 do begin

write(_try.'. ');

readln(_game[_try].answer);

if _game[_try].answer = _game[_try].question then begin

writeln("Looser!! =(");

save(_try);

break;

end else bengin

inc(_try);

end;

end;

if _try = 4 then begin

writeln("Lool!! =D");

save(inc(_try));

end;

end.

Nagyjából így néz ki, bár most nincs nálam fordító. Még egy for ciklusvezérlővel fel kell tölteni a kérdéseket az elején. Az egyik nyelvet biztosan ismered.