Turbo pascal unité graph
Sonsam
-
Archi-dessin Messages postés 281 Date d'inscription Statut Membre Dernière intervention -
Archi-dessin Messages postés 281 Date d'inscription Statut Membre Dernière intervention -
Bonjour,j'ai essayer un example du menu help en mode graph je compile pas d'erreurs mais run n'affiche rien .j'ai écrit readln; avant END.,mais toujours rien. J'avais précédament erreur not found graph in TPU et je suis allé dans menu>file>charge dir et configuré driver>c:\program~\tp7\units et l'erreur ne s'affiche plus mais run n'execute pas.que faire
Configuration: Mac OS X windows xp2
A voir également:
- Turbo pascal unité graph
- Turbo pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Taille d'unité d'allocation - Forum Matériel & Système
- Brancher unité centrale sur pc portable hdmi ✓ - Forum Windows
9 réponses
Salut! voici un example essayé mais qui ne marche pas avec mon tp7.
Program coquille ;
Uses Graph ;
Var r, a, mode, pilote : Integer ;
BEGIN
mode := Detect ;
InitGraph(mode, pilote, 'c:\bp\bgi') ;
SetColor(14) ;
r := 0 ;
Repeat
Inc(r, 8) ;
Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ;
Until r>360 ;
ReadLn ;
CloseGraph ;
END.
Avez-vous d'autres à me proposer? je pourrai les essayer.
Program coquille ;
Uses Graph ;
Var r, a, mode, pilote : Integer ;
BEGIN
mode := Detect ;
InitGraph(mode, pilote, 'c:\bp\bgi') ;
SetColor(14) ;
r := 0 ;
Repeat
Inc(r, 8) ;
Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ;
Until r>360 ;
ReadLn ;
CloseGraph ;
END.
Avez-vous d'autres à me proposer? je pourrai les essayer.
Essaye ce code :
La confiance n'exclut pas le contrôle
Program coquille ; Uses Graph ; Var r, mode, pilote : SmallInt; BEGIN mode := Detect ; InitGraph(mode, pilote, 'c:\bp\bgi') ; SetColor(14) ; r := 0 ; Repeat Inc(r, 8) ; Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ; Until r>=360 ; ReadLn ; CloseGraph ; END.--
La confiance n'exclut pas le contrôle
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question