Jeu de culture

Soyez le premier à donner votre avis sur cette source.

Vue 3 920 fois - Téléchargée 427 fois

Description

Salut,
ce petit programme réaliser en langage pascal est une petite jeu permettant de tester la culture générale .
sa rôle est de s'amuser un peu tout en enrichissant notre culture.
on devait avoir un logiciel turbo pascal récent pour (widows).
par exemple (tpw 1.5).

Source / Exemple :


program jeu;
uses wincrt;
var
n:integer;
ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10:string;
press,press1,press2,press3,press4,press5,press6,press7,press8,press9,sms:string;
test1,test2,test3,test4,test5,test6,test7,test8,test9,test10:boolean;
begin
n:=0;
writeln('answer this questions and get ur IQ degree');
writeln('');

writeln(' what is the thing that dosent get wet when it enter the water?');
readln(ch1);
if( ch1='ombre') or (ch1='shadow') then
begin
n:=n+1;
writeln('*****true*****')
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' which is the capital of sweden?');
readln(ch2);
if (ch2='Stokholm') or (ch2='stokholm') then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' which is the heaviest a kilo of iron or a kilo of paper?');
readln(ch3);
if not  (ch3='iron') or (ch3='paper') then
begin
n:=n+1;
writeln('*****true******');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' which is the the programming type that give true or false result?');
readln(ch4);
if ch4='boolean'then
begin
n:= n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' which is the film that made the biggest budgets in the world?');
readln(ch5);
if ch5='avatar'then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' who is the physician who invented the relativity rule:  Einstein or Bill Gates or Pithagore?');
readln(ch6);
if (ch6='Einstein') or (ch6='einstein') then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' what is the form of the earth ? circle, eclipse , none of both') ;
readln(ch7);
if ch7='eclipse' then
begin
n:=n+1;  
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');
   
writeln('what is the origine of the leader of naziste war?');
readln(ch8);
if (ch8='austria') or (ch8='austrian') then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' what is the unit which carecterise screens resolution ?');
readln(ch9);
if ch9='pixel' then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

writeln(' how many time we find the number 9 from 5 to 100?');
readln(ch10);
if ch10='20' then
begin
n:=n+1;
writeln('*****true*****');
end
 else
  writeln('*****false*****');
  writeln('');

  writeln('you finished the test press enter key to see your IQ degree');
  readln(press);
  writeln('');

  case n of
  0..2:  
  writeln('"you are terrible you need to search and surf more your degree is', n*10,'%');
 
  3..5:
  writeln('not bad,your IQ is' , n*10,'%', 'but you can get more ');
 

  6..8:
  writeln('good your IQ is ', n*10,'%');
 
  9:
  writeln('exellent your IQ is', n*10,'%', 'you are intellegent');
  

  10:
  writeln('perfect !!! you are a genius your IQ is', n*10,'%');

end;

writeln(' if you wanna see the answer 1 press enter key again');
readln(press);
writeln('');

writeln('(1): huuum , i dont think that one of you have seen one day a shadow which get wet so the answer is the shadow ;)');
writeln('');

writeln('if you wanna see answer 2 press enter key');
readln(press1);
writeln('(2):stokholm is the capital of sweden with 4 253 483 people it is the biggest city in sweden');
writeln('the city is partly built on several islands.');
writeln('');

writeln('if you wanna see answer 3 press enter key');
readln(press2);
writeln('(3):of course  they are the same , because one kilo is always one kilo whatever is the material');
writeln('');

writeln('if you wanna see answer 4 press enter key');
readln(press3);
writeln('(4):many of you dont have idea about informatique, but i choose this type because it exist in technologie');
writeln('and math too its the boolean type that gives as aresult true or false'); 
writeln('and by the way i havent do this program with it lol');
writeln('');

writeln('if you wanna see answer 5 press enter key');
readln(press4);
writeln('(5):the biggest budget have made by the phenomenal movie avatar which attempt more than 3 billion');
writeln('');

writeln('if you wanna see answer 6 press enter key');
readln(press5);
writeln('(6):the relativity rule was invented by the big phisician Einstein in 1915');
writeln('It unifies special relativity and Newton"s law of universal gravitation');
writeln(' and describes gravity as a geometric property of space and time');
writeln('');

writeln('if you wanna see answer 7 press enter key');
readln(press6);
writeln('(7):our planet is an eclipse , and i choose this question because there are many who think that is a circle');
writeln('');

writeln('if you wanna see answer 8 press enter key');
readln(press7);
writeln('(8):we all know Hitler the naziste who tried to destroy all the other origin based on rasism ');
writeln('but the difficult is his originair and the answer is austrian ');
writeln('');

writeln('if you wanna see answer 9 press enter key');
readln(press8);
writeln('(9):look im so tired now and i will answer fast we carecterize screens resolution with pixel');
writeln('');

writeln('if you wanna see answer 10 press enter key');
readln(press9);
writeln('(10):in this question i think that most of you are confused why the result was false ,');
writeln('that is a mathemathical question which make the difference between the intellegent and the genius');
writeln('and the result is 20 ! yes we find 20 "9" between 5 and 100 which are :');
writeln('9,19,29,39,49,59,69,79,89,99,90,91,92,93,94,95,96,97,98. which in 99 we have two "9"');
writeln('');

writeln('*******thanx for playing this game*******');
writeln('(it has not any relation with IQ degree or intellegence exept the last question)');
 

 

end.

Conclusion :


jeu de culture est un programme amusant est enrichissant dont sa code source peut être changer au modifier comme on veut.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
"je ne crois pas que nous sommes dans un cours officiel" : non mais dis toi que des débutants vont venir ici pour apprendre et se baser sur ces sources.
"tout programmeur peut coder comme il veut" : erreur, il y a des règles à respecter.
"il suffit que le programme fonctionne" : quand le code source n'est pas fourni "oui" sinon "non"
"en plus j'ai 16 ans" : bon anniversaire
"c'est mon premier programme en pascal" : ne te sens pas obligé de poster tous tes tests ici, le web regorge déjà de ces ... sources
"il n'y'a pas de quoi rire" : si :)
Messages postés
1
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
29 mai 2010

Bonjour,
c'est vrai que c'est un programme moyen , avec un peu des fautes .
mais je ne crois pas que nous sommes dans un cours officielle , et je crois que tout programmeur peut coder comme il veut ,
il suffit que le programme fonctionne, en plus j'ai 16 ans et c'est mon premier programme en pascal, donc il n'y'a pas de quoi rire ;).
Messages postés
13
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
30 janvier 2011

looooooooooooooooooooooool
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
Bonjour,
Voici un bon exemple de "comment ne pas apprendre à coder" :
- Multidéclaration de string au lieu de tableaux (array)
- Redondance du code au lieu de créer des procédures et fonctions
- Ecrire le programme dans une langue inconnue (on dirait de l'anglais mais ... non en fait)

ps : Sans compter sur le non sérieux des questions qui "calculent votre QI" ;)

Bonne journée, j'ai bien ri :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.