Jeu de culture

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.