Delphi > Executable > Affichage
42jordan42 - - Dernière réponse :
cs_yanb
- Messages postés
- 248
- Date d'inscription
- lundi 27 octobre 2003
- Statut
- Membre
- Dernière intervention
- 4 mars 2016
A voir également:
- Delphi > executable > affichage
- Delphi / Pascal : Affichage d'une icone dans un statusbar - CodeS SourceS - Guide
- Delphi / Pascal : Affichage dans les bulles d'aide et dans la barre d'état (statusbar) - Code - Guide
- Delphi / Pascal : Affichage webcam, capture et traitement d'image - CodeS SourceS - Guide
- Delphi / Pascal : Affichage de messages subliminaux freeware gratuit - CodeS SourceS - Guide
- Delphi / Pascal : Affichage des infodfs - CodeS SourceS - Guide
9 réponses
- Messages postés
- 1
- Date d'inscription
- samedi 13 décembre 2008
- Statut
- Membre
- Dernière intervention
- 8 décembre 2014
(Programme que l'on fait en cours mais avec un prof où c'est débrouille toi)
program Project1;
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var S,ST,SP, I,NBF,NBH,STF,STH,XG,XF,P,T,X28 : integer ;
R ,MOYT,MoyP,MoyST,MoySp,MoyTF,MoyTH : currency;
BEGIN
ST:=0;
SP:=0;
I:=0;
NBF:=0;
NBH:=0;
STH:=0;
STF:=0;
XG:=0;
XF:=0;
While ((S=1) OR (S=2)) DO
BEGIN
I:=I+1;
writeln ('poids');
readln (P);
writeln ('taille');
readln (T);
ST:= ST+T;
Sp:=Sp+P;
END;
IF (S=1) THEN
BEGIN
NBH:=NBH+1;
STH:=STH+1;
END
ELSE
BEGIN
NBF:=NBF+1;
STF:=STF+T;
END;
R:= T/P;
IF (R<2.8) THEN
BEGIN
X28:= X28+1;
END;
MoyST:=ST/I;
MoySP:=Sp/I;
IF (I>0) Then
BEGIN
MoyT:= ST/I;
MoyP:=SP/I ;
writeln (moyT,Moyp) ;
END
else
begin
writeln ('incalculable');
END;
Writeln (X28);
writeln (XG);
writeln (XF);
IF (NBF>0) THEN
begin
MoyTF :=STF/NBF;
writeln (MoyTF);
end
ELSE
begin
writeln ('Incalculable');
END;
IF (NBH>0) THEN
BEGIN
MoyTH :=STH/NBH;
end
Else
begin
writeln('incalcau');
END;
writeln (X28);
IF (S=1) and (T>180) and (P>80) Then
BEGIN
XG:=XG+1;
END;
IF (S=2) AND (T>85) AND (T<175) and (P>50) and (P<80) THEN
BEGIN
XF:=XF+1 ;
END ;
BEGIN
writeln ('sexe');
readln(S);
END;
{ TODO -oUser -cConsole Main : placez le code ici }
end. - Messages postés
- 1284
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
Ce code ! Pas de commentaires, variables incompréhensibles... c'est vachement pédagogique comme exercice...
Utilises l'instruction
Ça te permettra de voir le résultat de ton application avant qu'elle se ferme.
Et sinon utilises le moteur de recherche du site avant de poser une question, et quand tu postes du code, utilises les balises de codes.
Simon
Utilises l'instruction
Sleep({milliseconds}); pour temporiser ton application, comme expliqué dans : http://www.commentcamarche.net/forum/affich-28652668-temporisation-sous-delphi
Ça te permettra de voir le résultat de ton application avant qu'elle se ferme.
Et sinon utilises le moteur de recherche du site avant de poser une question, et quand tu postes du code, utilises les balises de codes.
Simon
- Messages postés
- 248
- Date d'inscription
- lundi 27 octobre 2003
- Statut
- Membre
- Dernière intervention
- 4 mars 2016
Salut,
bah je sais pas trop quoi dire à part c'est un grand n'importe quoi !
déja la boucle while sert à rien S n'a jamais de valeur !
Supposons qu'il manque un Readln(S) avant le while...on rentrerai dans une boucle infinie, donc faudrait un S:=0 en fin de boucle par exemple pour en sortir...
Ensuite si P ou I égal 0 on doit être sorti de la console vite fait à coup de pompe dans le... par exemple quand on arrive à R:=T/P (ouais div par 0 ca aime pas)...je suppose que déjà au début si tu initialisais P:=1 la console s'afficherait...bah peut-être :p
Après je m'arrête je regarde pas la suite...il faudrait déjà un minimum, il n'y a pas grand chose de correct pour t'aider et être constructif.
@+
bah je sais pas trop quoi dire à part c'est un grand n'importe quoi !
déja la boucle while sert à rien S n'a jamais de valeur !
Supposons qu'il manque un Readln(S) avant le while...on rentrerai dans une boucle infinie, donc faudrait un S:=0 en fin de boucle par exemple pour en sortir...
Ensuite si P ou I égal 0 on doit être sorti de la console vite fait à coup de pompe dans le... par exemple quand on arrive à R:=T/P (ouais div par 0 ca aime pas)...je suppose que déjà au début si tu initialisais P:=1 la console s'afficherait...bah peut-être :p
Après je m'arrête je regarde pas la suite...il faudrait déjà un minimum, il n'y a pas grand chose de correct pour t'aider et être constructif.
@+