Codes sources Pascal346 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Le but de ce jeu de dés est de répartir de la manière la plus efficiente possible, dans une grille de 13 * 3 cases, les résultats de 39 lancers de 5 dés. À chaque tour, vous disposez de trois lancers au maximum, et vous pouvez décider quels dés vous souhaitez conserver ou relancer. À la colonne 2, le total est doublé et à la colonne 3, triplé. Certains objectifs de la grille totalisent certains dés (par exemple, dans la section supérieure, à la ligne "Tous les 5" seuls les dés de valeur 5 sont additionnés), ou tous les dés (par exemple, le full et le carré) ; d'autres (comme le full, les suites, etc.) un forfait en cas de réussite. Le Yahtzee est une combinaison de 5 dés identiques qui rapporte un maximum de points ainsi que des bonus suppl ... Voir la suite

Superbe effet avec de l'eau.

Une unité bien pratique qui contient les fonctions

function StringToInt(s : string) : integer;
function IntToString(i : integer) : string;
procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenetre a double bordure)
procedure dec(i : integer; a : integer); decrementer
procedure centrer(s : string; y : integer); centre une chaine pour un y donné
procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
procedure pleinecran;
function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
pr ... Voir la suite

Un jeu du Snake banal avec la SDL et compilé avec Lazarus sous Win XP.

Points Positifs :

• Gestion des événements, du son et de la SDL (pointeurs...) et algorithme du Snake;
• Programme structuré (je m'étais lancé dans la POO au début mais sans succès);
• Graphique pas mal :) fait sous Paint ^^ (c'est pas évident du 16x16 pixels sous Paint);
• La SDL est portable donc, logiquement, le code est portable.

Points à finir :

• Quand vous perdez, obligation de quitter pour relancer le jeu;
• Pas de gestion du score;
• Pas de gestion d'erreurs (s'il y a un problème, le programme se plante en utilisant les messages classiques de Windows);
• Pas de gestion du temps (au début, ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme permet de calculer le plus grand commun diviseur (PGCD) et le plus petit commun multiple (PPCM) de plusieurs nombres entiers.

Ref.: "Mathématiques en Turbo-Pascal" de M. Ducamp et A. Reverchon, Eyrolles, Paris, 1988.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Il s'agit d'un parser permettant d'analyser des expressions mathématiques telles que :
A=10/4
B=25.478
F=A*X^2+B*X+C
25.75*2+1.784
2*pi*R...
Supporte également les fonctions atan, cos, exp, log, root, sin, tan.

Ref.: "Advanced Turbo C" de Herbert Schildt, Borland-Osborne/McGraw-Hill, Berkeley, USA, 1987.

Voilà les sources ainsi que les exécutables du Tetris developpé dans le cadre du défi pascal 2011.
(règlement)

Le sujet du défi 2011 était de réaliser un jeu librement inspiré du célèbre Tetris.

Un petit outil qui affiche les caractéristiques d'une police de caractères, avec une représentation visuelle des différentes valeurs.

Formatage de code source en Pascal. Outil en ligne de commande dérivé de DelForExp d'Egbert van Nes.

Cette petite application permet de chronométrer le temps d'infusion de votre thé. Il est possible de chronométrer jusqu'à 5 thés simultanément. Selon le thé choisi, l'application enverra un signal sonore et visuel dès que le temps minimal d'infusion puis le temps maximal seront atteints.

Les composants suivant ont été utilisés :

• un jToneGenerator, permettant de produire deux sortes de bips ;
• 5 jTimer, produisant un tic d'horloge chaque seconde ;
• 5 jPanel identiques, contenant respectivement :
• un jSwitchButton, permettant d'activer le chronomètre associé ;
• un jTextView, affichant le chronomètre ;
• un jToggleButton, permettant de déma ... Voir la suite

Cette mini-application pour Android affiche le temps restant entre une date de référence et maintenant. Elle a éré réalisée avec le framework LAMW sous Lazarus.
Il est possible de moduler le compte à rebours selon son envie, du nombre d'années au nombre de secondes, de choisir la couleur de l'affichage et la taille de la police de caractères. Si les heures ou minutes ou secondes sont affichées, un timer en affiche le décompte.

Cette application sert de prétexte pour présenter l'utilisation du composant jPreferences, qui permet de sauvegarder des données de configuration un peu à la manière d'un fichier INI sous Windows, mais sans devoir gérer aucun fichier.

Composants utilisés :

• jMen ... Voir la suite

Compilateur : Turbo Pascal.

Une calculatrice en mode graphique, avec gestion de la souris. Il faudra éventuellement modifier le chemin vers les fichiers BGI dans le source.

Fonction qui convertit un nombre entier (de un à 4 294 967 295) en mots français.

Compilateur : Turbo Pascal.

Jeu du Serpent, jusqu'à 4 joueurs. Le but est d'esquiver les obstacles en blanc, la trace des autres joueurs ainsi que sa propre trace.

==== VALISOA MORPION 1.0 ====

L'objectif du jeu est d'aligner trois pions de même couleur sur la ligne horizontale ou verticale ou diagonale. Le premier joueur à avoir aligné
ses trois pions est le vainqueur.

Type : jeu de morpion
Développeur : Valisoa Jean Hervé
Version : 1.0
Date de sortie : 15/01/2018
Langage de programmation : Pascal
Compilateur : FreePascal 3.0.4
OS : Windows
Profondeur de calcul : 7 demi-coups
Algorithme utilisé : MinMax

PASHeader permet d'insérer des en-têtes dans des fichiers Pascal, individuellement ou par lot. Il offre une panoplie d'outils pour automatiser et/ou simplifier les processus de choix des fichiers à traiter, de création et de gestion des en-têtes et de modèles, ainsi que d'exécution des insertions et substitutions.

Les fichiers qui font partie de projets ou de paquets Lazarus et Delphi sont automatiquement extraits pour être traités. Si elles existent, les informations de version des projets et paquets Lazarus peuvent elles aussi être extraites automatiquement.

Entièrement écrit en Pascal à partir de Lazarus, le programme fonctionne sous Linux et Windows, en anglais ou en français. En plus du code source, le proj ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Il s'agit d'une calculatrice effectuant des opérations sur des entiers longs sous forme de chaînes, utilisant l'unité PCalcFun.

Ref.: "Turbo Pascal for Windows - Techniques and Utilities" de Neil J. Rubenking, PC Magazine & ZD Press, 1992.

Bonjour.
Vous trouverez deux composants dans l'unité ThColorspal :

TThPalette : palette de couleurs sous forme de grille.

• ajout et suppression de couleurs
• ordonnancement des couleurs par drag and drop
• sauvegarde et chargement des palettes créées

TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

Testé sous Win7, Win8, Linux mint

Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.
Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "p ... Voir la suite

Pour Turbo Pascal 7.0 ou autre compilateur compatible. Nécessite le package objet de Turbo Pascal (contenant les unités Objects, Strings et Memory).

Cette unité définit le type TList, afin de gérer une liste chaînée d'objets quelconques (ceci inclut l'ajout, la suppression, le remplacement et la recherche d'éléments).
Elle définit également le type TStringList, dérivé de TList, pour gérer une liste de chaînes de caractères. En plus des fonctionnalités précédentes, le type TStringList est en mesure de trier la liste et de vérifier si les chaînes ajoutées ne sont pas déjà présentes dans la liste. Il est également possible d'associer à chaque chaîne un objet quelconque.

Attention : les éléments ajoutés ... Voir la suite