Codes sources Pascal334 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.

Permet l'évaluation d'expression algébrique sous forme numérique et le tracé de la représentation graphique associée.

Support des fonctions standard, trigonométriques, hyperboliques, logiques ainsi que certaines fonctions utiles.
Possibilité d'ajouter ses propres constantes et fonctions afin de rendre l'unité polyvalente.
Support des caractères spéciaux dans les noms des fonctions et constantes (notamment û, ý, ã, ò, ó, ö, ì, ÿ, etc) !

L'unité n'accepte aucune omission. Ainsi, toutes les opérations doivent figurer dans l'expression, notamment les signes de multiplication.
L'évaluation étant numérique, il convient de porter une attention toute particulière aux ensembles de définition des fonctions et aux ... Voir la suite

Booot est un très fort moteur d'échecs écrit en Pascal par Alex Morozov.

Booot peut être compilé ou avec Delphi ou avec Free Pascal. À partir de la version 7.1, Booot est compatible avec Linux.

Les sources complètes en Pascal de PhotoShop 1.0.1

Disponibles sur le Computer History Museum

Unité permettant d'utiliser la bibliothèque SDL_bgi.

Compatible avec Delphi et avec Free Pascal.

Superbe effet avec de l'eau.

Qui n’a jamais eu à parcourir un répertoire où s’accumulaient les fichiers sources divers en regrettant de ne pas avoir un aperçu de leur contenu et un minimum de renseignements sur leurs attributs ? PASInfos est un petit utilitaire entièrement autonome et portable qui permet justement, par simple glisser/déposer, d’afficher le contenu de fichiers sources issus de différents langages de programmation, ainsi que des informations sur ces fichiers.

S'il est particulièrement adapté aux paquets et projets Lazarus et Delphi, PASInfos accepte de nombreux formats pour l’affichage avec coloration syntaxique : fichiers Pascal, C, C++, Java, Javascript, Perl, HTML, XML, CSS, PHP, TeX, SQL, Python, Batch, Basic, INI, PO, texte brut e ... Voir la suite

Il s'agit d'un jeu de Triple Yahtzee à plusieurs joueurs sur un même poste.

Le projet n'utilise que des composants ultra-classiques, à l'exception du composant Iphtml dont le paquetage Turbopower_Ipro est fourni avec le code source. Il a été réécrit en "tout objet" en mettant en application les notions détaillées dans les excellents tutoriels de Gilles Vasseur sur la POO (dont vous trouvez les liens ci-dessous).

Bon amusement !

Jeu d'échecs en Pascal d'Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.

Petit code sans prétention que j'avais fait pour tester un Beep différent de celui du système! Donc faire un son plus sympha. Sous lazarus, on ne dispose pas directement de l'instruction Windows.Beep(440, 100) valable en Delphi et qui permettait de régler la fréquence et la durée...

Utilisation des formats Wav, MP3 et midi en fonction du type de son à produire ou extrait musical
Utilisation des instructions PlaySound, mciSendString

Compilateur : Borland Pascal.

Un moteur 3D façon Wolfenstein ou Doom.

Compilateur : Borland Pascal.

Une unité permettant à un programme Windows 16 bits d'appeler des fonctions de l'API Windows 32 bits grâce à la technique du thunking générique.

Voir à ce sujet ce tutoriel sur le thunking générique.

Simple jeu de morpion utilisant l'algorithme Minimax. Traduction en Pascal d'un programme de Bernard Helmstetter.

miniaudio Player

Lit la musique contenue dans le dossier passé en paramètre.

Exemple d'utilisation de la bibliothèque miniaudio.

L'unité *miniaudio_object* provient du projet CPas.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 36.

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

Compilateur : Turbo Pascal.

Unité regroupant diverses fonctions de gestion de fichiers.

Ceci est un logiciel de dactylographie que j'ai créé pour que je puisse faire de " Fast and the furious " non pas avec des voitures mais avec des claviers.

NumSums est un petit jeu de réflexion réalisé avec le framework LAMW.

Dans une grille (3 niveaux : 6x6, 7x7 ou 8x8), il faut trouver les nombres dont la somme donne les totaux des lignes et des colonnes. À l'aide du crayon, vous sélectionnez un nombre, tandis qu'avec la gomme vous l'effacez. Attention que vous ne pouvez faire qu'une seule erreur ! Pour basculer entre le mode "crayon" et le mode "gomme", il suffit de presser l'image dans la barre supérieure.
Pour vous aider dans votre réflexion, à l'aide du point d'interrogation, vous pouvez marquer un nombre comme étant potentiellement à garder ou potentiellement à effacer.
La grille en cours est automatiquement sauvegardée.

Composants utilisés ... Voir la suite

Compilateur : Virtual Pascal.

Le programme DirTot affiche de manière récursive le nom de tous les fichiers contenus dans un dossier ainsi que dans ses sous-dossiers.

Ce source est un exemple tiré du tutoriel sur la programmation Win32 avec OWL.

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