[Pascal] Conversion de points en grade
casse noisette
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
casse noisette Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
casse noisette Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
pouvez vous m'aider à resoudre ce problem de pascal,
l'utilisateur va saisir les points,et il faut faire le conversion de ces points en grade selon un systeme de A>18,18>B>=16.
j'ai commencé mon programme,mais je ne sais pas comment faire pour la conversion pour qu'elle s'affiche quand l'utilisateur entre le point apres un entrer.
merci.
pouvez vous m'aider à resoudre ce problem de pascal,
l'utilisateur va saisir les points,et il faut faire le conversion de ces points en grade selon un systeme de A>18,18>B>=16.
j'ai commencé mon programme,mais je ne sais pas comment faire pour la conversion pour qu'elle s'affiche quand l'utilisateur entre le point apres un entrer.
merci.
A voir également:
- [Pascal] Conversion de points en grade
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Mettre des points sur une carte - Guide
- Comment insérer des points de suite sur word - Guide
- Dev pascal - Télécharger - Édition & Programmation
2 réponses
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.