Exercice en Pascal
Résolu/Fermé
GrandShrek
Messages postés
2
Date d'inscription
jeudi 17 novembre 2011
Statut
Membre
Dernière intervention
17 novembre 2011
-
Modifié par GrandShrek le 17/11/2011 à 13:59
GrandShrek Messages postés 2 Date d'inscription jeudi 17 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 17 nov. 2011 à 23:52
GrandShrek Messages postés 2 Date d'inscription jeudi 17 novembre 2011 Statut Membre Dernière intervention 17 novembre 2011 - 17 nov. 2011 à 23:52
A voir également:
- Exercice en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Exercice pascal corrigé bac - Forum Pascal
- Fleur d'encre 5eme corrigé exercice ✓ - Forum PDF
- Comment trouver la correction d'un exercice ✓ - Forum Programmation
2 réponses
ccm81
Messages postés
10544
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
Modifié par ccm81 le 17/11/2011 à 18:44
Modifié par ccm81 le 17/11/2011 à 18:44
bonsoir
après quelques corrections (en turbo pascal)
il te faudra écrire la procédure affiche ....
bonne suite
après quelques corrections (en turbo pascal)
il te faudra écrire la procédure affiche ....
program lancedede;
uses crt;
const LMAX = 100;
type TabEntiers = array[1..LMAX] of integer;
procedure initialise( var T : TAbEntiers;n,f:integer);
var i : integer;
begin
for i:=1 to (n*f)-n+1 do
T[i]:=0;
end; { initialise }
function lancer(f,n : integer) : integer;
var s,i,r : integer;
begin
s:=0;
for i:=1 to n do
begin
r := random(f)+1;
s := s+r;
end;
lancer := s;
end; { lancer }
procedure experience(var T : TabEntiers;x,n,f : integer);
var i,s : integer;
begin
for i := 1 to x do
begin
s := lancer(f,n);
T[s-n+1]:=T[s-n+1]+1;
end;
end;
var n,f,i,x : integer;
T : TabEntiers;
begin
clrscr;
randomize;
write('Combien de des : ');
readln(n);
write('Combien de faces : ');
readln(f);
write('Combien de lancers: ');
readln(x);
initialise(T,n,f);
experience(T,x,n,f);
for i:=1 to n*f-n+1 do
begin
write(n+i-1:4);
writeln(T[i]:4);
end;
end.
bonne suite
GrandShrek
Messages postés
2
Date d'inscription
jeudi 17 novembre 2011
Statut
Membre
Dernière intervention
17 novembre 2011
17 nov. 2011 à 23:52
17 nov. 2011 à 23:52
Merci beaucoup !
Modifié par ccm81 le 17/11/2011 à 20:57