Turbo pascal unité graph
Sonsam
-
Archi-dessin Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
Archi-dessin Messages postés 270 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
A voir également:
- Turbo pascal unité graph
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Unité fichier audio ✓ - Forum Audio
- Taille d'un fichier audio ✓ - Forum Musique / Radio / Clip
9 réponses
salut,
le problème est d'intreprétation graphique
verifie que le fichier graph.tpu exit danle répertoire bin
le problème est d'intreprétation graphique
verifie que le fichier graph.tpu exit danle répertoire bin
salut,
Quelles sont les unités que vous avez dans le programme
pour savoir plus sur votre programme
Quelles sont les unités que vous avez dans le programme
pour savoir plus sur votre programme
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
salut ,
InitGraph(mode, pilote, 'c:\.......\bgi')
tu dois indique partidu répertoire (......) ou se trouve le repertoire BGI
exemple si le répertoire est TP7 donc
InitGraph(mode, pilote, 'c:\TP7\bgi')
InitGraph(mode, pilote, 'c:\.......\bgi')
tu dois indique partidu répertoire (......) ou se trouve le repertoire BGI
exemple si le répertoire est TP7 donc
InitGraph(mode, pilote, 'c:\TP7\bgi')
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question