A voir également:
- Comment faire un graphisme en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Logiciel graphisme gratuit - Télécharger - Dessin & Illustration
- Delphi pascal download - Télécharger - Langages
4 réponses
Bonjour,
Je réalise un carnet d'adresse en pascal et je souhaiterais que l'on me guide à avoir un bon graphisme et également comment lire un fichier sequenciellement?
Merci d'avance.
Je réalise un carnet d'adresse en pascal et je souhaiterais que l'on me guide à avoir un bon graphisme et également comment lire un fichier sequenciellement?
Merci d'avance.
bonjour les amis.je veux savoir comment dessiner des gaphisme en turbo pascal.j'ai fait une formation de six mois à propos du pascal.mais malheuereusement ona fini la la formaton avand d'accéder au graphismes.merci d'avance.
L'utilisation de graphisme en Pascal semble être un mythe pour certain, et un casse-tête pour d'autres...
Je ne sais pas ce que ça vaut mais Haypo propose ici une de ses unités qui semble pouvoir permettre le graphisme en Turbo Pascal...
Merci de me dire si ça marche...
Je ne sais pas ce que ça vaut mais Haypo propose ici une de ses unités qui semble pouvoir permettre le graphisme en Turbo Pascal...
Merci de me dire si ça marche...
Sinon, il existe apparemment une unité déjà existante en Pascal (uses Graph)
Hugo ETIEVANT explique son utilisation ici
Certes elle ne semble pas très performante, mais un peu est toujours mieux qu'un rien...
Voici un exemple de programme qui est donné dans ce tutoriel (légèrement modifié)
Hugo ETIEVANT explique son utilisation ici
Certes elle ne semble pas très performante, mais un peu est toujours mieux qu'un rien...
Voici un exemple de programme qui est donné dans ce tutoriel (légèrement modifié)
Program coquille ;
Uses Graph ;
Var r : Integer;
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.
