Zone Perso
Recherche rapide
Les Forums
- Forums ados !
- Vidéos Drôles
- Relations sentimentales
- Sexualité
- Humour
- TV/Ciné/Musik
- Création & littérature
- SortirEnsemble
- Bavardage
- Pour filles
- Pour garçons
- Divers !
- Informatique & Jeux
- Entraide scolaire
- Sport & Santé
- Jeux de forums
- Meetings
- Actualité
- Cuisine
- Animaux New!
- Pour les nouveaux
- Commentaires WebZine
Les Ados
- Chercher un membre
- Tous les garçons [143848]
- Toutes les filles [114594]
- Album photos
- Anniversaires du jour !
Le Webzine
Création ados
- Poèmes & Paroles
- Graphique & dessin
- Témoignages
- Questions
- Sondages
- Trucs & Astuces
- Blagues & Devinettes
- Citations
Mais aussi
Nos sites
Aidez moi (Pascal)
Quel âge avez-vous ?
Moins de 18 ans
18 ans ou plus
| LpGiStE | Aidez moi (Pascal) | 10 | 24/11/08 à 00:41 |
ben je Voudrais faire un pti prog en pascal qui permet des entrer les moyennes de N eleves et ensuite calculer la moyenne generale de la classe et si la moyenne de l'eleve est superieure a la moyenne generale alors il est admis sinon il est refusé
ensuite le prog affiche la moyenne de la classe,le nbre des admis et le nbre de refusé mais le prob c est que ca marche pas 
ben voila ce que j'ai fait svp dites moi ce qui cloche
uses wincrt;
type tab=array[1..100] of real;
var
p:real;
n_re,n_ad,i,n:integer;
m,t:tab;
begin
readln(n);
p:= 0;
for i:=1 to n do
begin
readln(t[i]);
end;
for i:=1 to N do
p:=(p+t[i])/n;
N_ad:=0;
N_re:=0;
for i:=1 to n do
begin
if T[i]>p
then n_ad:= n_ad+1
else
if T[i]
| Aidez moi (Pascal) | 1/10 | 24/11/2008 à 00:45 |
hihi ca y est j'ai trouvé
ben si ca vs interresse il suffit de changer le prog comme suit
uses wincrt;
type tab=array[1..100] of real;
var
p,s:real;
n_re,n_ad,i,n:integer;
m,t:tab;
begin
readln(n);
p:= 0;
for i:=1 to n do
begin
readln(t[i]);
end;
for i:=1 to N do
p:=(p+t[i]);
s:=p/n;
N_ad:=0;
N_re:=0;
for i:=1 to n do
begin
if T[i]>s
then n_ad:= n_ad+1
else
if T[i]
ben si ca vs interresse il suffit de changer le prog comme suit
uses wincrt;
type tab=array[1..100] of real;
var
p,s:real;
n_re,n_ad,i,n:integer;
m,t:tab;
begin
readln(n);
p:= 0;
for i:=1 to n do
begin
readln(t[i]);
end;
for i:=1 to N do
p:=(p+t[i]);
s:=p/n;
N_ad:=0;
N_re:=0;
for i:=1 to n do
begin
if T[i]>s
then n_ad:= n_ad+1
else
if T[i]
| Aidez moi (Pascal) | 2/10 | 24/11/2008 à 00:46 |
intéressant, je dois faire quoi pour que le programme marche? copier et coller sur notepad puis enregistrer en .exe?
(je suis très très basique en informatique)
(je suis très très basique en informatique)
| Aidez moi (Pascal) | 3/10 | 24/11/2008 à 00:47 |
Nan faut le compiler d'abord.
| Aidez moi (Pascal) | 4/10 | 24/11/2008 à 00:49 |
ah...d'accord, merci piti_moine...hmm dis LpGiStE tu pourrais pas uploader le prog fini sur un site et me passer elle lien?
| Aidez moi (Pascal) | 5/10 | 24/11/2008 à 00:50 |
ben c'est sur pascal donc tu dois d'abord downloader turbo pascal
et puis copier coller
et puis copier coller
| Aidez moi (Pascal) | 6/10 | 24/11/2008 à 00:53 |
ah d'accord...ferai ça un autre jour alors, quand j'aurai mon nouvel ordi^^
Merci
Merci
| Aidez moi (Pascal) | 7/10 | 24/11/2008 à 00:53 |
ben en fait il manque une tite partie
je ne sais pas pourquoi ca n a pas été coller bon
la voila
else
if T[i]
je ne sais pas pourquoi ca n a pas été coller bon
la voila
else
if T[i]
| Aidez moi (Pascal) | 8/10 | 24/11/2008 à 00:54 |
Metal P4ND4 a écrit :
ah d'accord...ferai ça un autre jour alors, quand j'aurai mon nouvel ordi^^
Merci
hihihi
de rien
ah d'accord...ferai ça un autre jour alors, quand j'aurai mon nouvel ordi^^
Merci
hihihi
de rien
| Aidez moi (Pascal) | 9/10 | 24/11/2008 à 02:17 |
joli joli j'ai fait pas mal de pascal pendant mes études ^^ c'est du joli boulot bravo.
j'ai fait pas mal de pascal pendant mes études ^^ c'est du joli boulot bravo.
| Aidez moi (Pascal) | 10/10 | 24/11/2008 à 20:51 |
C'est plus jolie avec des listes chainées... C'est moche le statique. ( sinon à mon avis c'est le signe infégal qui pose problème pour copier le code).
PS : tu peux dire ton erreur stp... vu qu'il n'y a pas tout le source ça aide pour debugger
PS : tu peux dire ton erreur stp... vu qu'il n'y a pas tout le source ça aide pour debugger