IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
\n"; echo " \n"); } AfficheItemMenu ("Accueil", "index.php"); AfficheItemMenu ("Contributions", "contributions/"); AfficheItemMenu ("Compilateur", "compilateur/"); AfficheItemMenu ("Demomaker", "demomaker/"); AfficheItemMenu ("Graphisme", "graphisme/"); AfficheItemMenu ("Mode texte", "mode_txt/"); AfficheItemMenu ("Périphérique", "peripherique/"); AfficheItemMenu ("Système", "systeme/"); AfficheItemMenu ("Tutoriel", "tutoriel/"); AfficheItemMenu ("Unité", "unite/"); AfficheItemMenu ("Utilitaire", "utilitaire/"); AfficheItemMenu ("FAQ", "faq/"); AfficheItemMenu ("Forum", "http://www.developpez.net/forums/viewforum.php?f=10"); AfficheItemMenu ("Cours", "http://pascal.developpez.com/cours/"); echo ("

"); function AfficheItemMenu($texte, $lien) { global $menu_selectionne; if (!$menu_selectionne) $menu_selectionne = "Accueil"; echo "

"; $balise_span = ""; if (strcasecmp($texte, $menu_selectionne) == 0) { echo ($balise_span."".htmlspecialchars($texte).""); } else { // Rajoute "../" au lien si on est dans un sous répertoire if (strcasecmp($menu_selectionne,"Accueil")) { $pos = strpos($lien, "http"); if ($pos === false) $lien = "../".$lien; } echo (""); echo ("$balise_span".htmlspecialchars($texte).""); echo (""); } echo ("
"); ?>

Cette page vous permet d'apprendre à utiliser Turbo Pascal 7.0 (dos).

Voici le programme que je vous propose :

Par Haypo



Ces tutoriels touchent plus généralement au langage Pascal :

Par Hdd34