Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question{$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.
Sleep({milliseconds});pour temporiser ton application, comme expliqué dans : http://www.commentcamarche.net/forum/affich-28652668-temporisation-sous-delphi