[Pascal] Conversion de points en grade
Fermé
casse noisette
Messages postés
3
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
29 décembre 2007
-
29 déc. 2007 à 10:36
casse noisette Messages postés 3 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 29 décembre 2007 - 29 déc. 2007 à 21:29
casse noisette Messages postés 3 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 29 décembre 2007 - 29 déc. 2007 à 21:29
A voir également:
- [Pascal] Conversion de points en grade
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Créer une carte avec des points - Guide
- Points de suite word - Guide
- Signification 2 points d'interrogation sms ✓ - Forum Téléphones & tablettes Android
2 réponses
casse noisette
Messages postés
3
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
29 décembre 2007
29 déc. 2007 à 12:44
29 déc. 2007 à 12:44
bonjour,
voila ce que j'ai fais:
var
point:array[1..N]of integer;
grade:string;
i,j:integer;
choix:char;
begin
repeat
begin
write('point');
write('grade');
i:=0;
for i:=1 to N do
begin
readln(point[i]);
readln(grade);
for j:=1to N do
begin
if(point[i]>=18) then
begin
write('A');
end
else
if((point[i]>=16)or(point[i]<18))then
begin
write('B');
end;
end;
end;
write('continuer O/N : ');
repeat
begin
readln(choix);
if ((upcase(choix)<>'O')and(upcase(choix)<>'N'))then
begin
write(tapez O/N);
end;
until((upcase(choix)='O')or(upcase(choix)='N'));
end;
until(upcase(choix)='N');
end.
voila ce que j'ai fais:
var
point:array[1..N]of integer;
grade:string;
i,j:integer;
choix:char;
begin
repeat
begin
write('point');
write('grade');
i:=0;
for i:=1 to N do
begin
readln(point[i]);
readln(grade);
for j:=1to N do
begin
if(point[i]>=18) then
begin
write('A');
end
else
if((point[i]>=16)or(point[i]<18))then
begin
write('B');
end;
end;
end;
write('continuer O/N : ');
repeat
begin
readln(choix);
if ((upcase(choix)<>'O')and(upcase(choix)<>'N'))then
begin
write(tapez O/N);
end;
until((upcase(choix)='O')or(upcase(choix)='N'));
end;
until(upcase(choix)='N');
end.
casse noisette
Messages postés
3
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
29 décembre 2007
29 déc. 2007 à 21:29
29 déc. 2007 à 21:29
bonjour,
personne pour l'aide
personne pour l'aide