Codes sources Pascal329 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Unité permettant la gestion des matrices de taille quelconque, afin d'effectuer du calcul numérique réel.

Calcul matriciel standard supporte : addition, multiplication, calcul de la transposée, de l'inverse, du rang, du déterminant.
Ajout de calcul matriciel optimisé 3D sur matrices 4x4 : addition, multiplication, transposée, transformation d'un point, création des matrices de zoom, translation et rotation.

Attention : les lignes et colonnes des matrices sont indexées à partir de 1, et on indique toujours en premier l'index de la ligne. Ainsi, si M est une matrice, alors M.GetCell(3, 2) renverra la valeur placée ligne 3, colonne 2.

L'objet TMatrix est peu adapté aux calculs 3D. On lui préfèrera l ... Voir la suite

Compilateur : Turbo Pascal.

Ce programme réalise la compression par l'algorithme de Huffman dynamique. L'intérêt est donc qu'il n'y a qu'un seul parcours du fichier source et pas de dictionnaire transmis dans le fichier compressé.

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Comment manipuler les nombres réels représentés par la technique de la virgule flottante.
L'application d'exemple illustre le calcul approché du nombre Π à partir de la somme 1 - 1/3 + 1/5 - 1/7 + 1/9 etc. (méthode de Leibniz-Grégory), avec dessin d'un graphique (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser :

• une application similaire à l'exemple mais utilisant la méthode de calcul de Nilakantha ;
• une application calculant la puissance entière d'un nombre réel (image 2) ;
• une application d ... Voir la suite

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

Simple client FTP basé sur WinInet.

Version Lazarus d'un projet Delphi de Damien Leveugle.

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Qu’est-ce qu'un caractère et quelles sont les fonctions les plus courantes permettant de les manipuler.
L'application d'exemple est un petit utilitaire affichant, par blocs de 256, tous les caractères Unicode au format UTF-16, avec la possibilité de copier l'un d'entre eux dans le presse-papier (image 1).
Dans le laboratoire, vous êtes invité(e) à créer trois routines outils pour l'analyse des caractères (image 2) :

• une fonction qui détermine si le caractère fourni en entrée est un chiffre ;
• une fonction qui détermine s ... Voir la suite

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Que sont les booléens et les expressions booléennes ? Comment les utiliser dans vos programmes ?
L'application d'exemple est un évaluateur d'expressions logiques. Les fonctionnalités RAD de Lazarus sont bien mises en évidence.

Création d'une icône à partir d'une image au format PNG, avec Lazarus et BGRABitmap.

Compilateur : Delphi.

Le code source complet d'un jeu librement inspiré du Tetris.
(règlement)

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

Bonjour à tous.

Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui ... Voir la suite

Compilateur : Turbo Pascal.

Une unité implémentant en partie l'objet TStrings de Delphi : une collection de chaînes de caractères aisément accessibles.

X-Parameters est une application inspirée de la discussion :
https://www.developpez.net/forums/d1756313/environnements-developpement/delphi/bases-donnees/debutant-aide-creation-table/

Elle a pour objet l'inscription de prix de vente d'un produit alimentaire selon plusieurs paramètres :

-L'année
-Le mois
-La zone (dépôt)

Les graphes permettent la visualisation des résultats par Zones, par mois et par années
mais aussi la sauvegarde des images sous forme BMP destinées à l'impression.

Outils:

Lazarus 1.8 RC5
Firebird 2.5.7
Flamerobin

Merci pour votre Intérêt.

Support de la norme USB 1.1 pour Turbo Pascal 7.

L'archive comprend :

• USB.PAS : routines USB de base ;
• PCI.PAS : accès aux périphériques PCI ;
• DUTILS.PAS : utilitaires ;
• HUBDISCO.PAS : programme d'exemple.

Compilateur : Turbo Pascal.

Une manière de contourner la barrière de la limite mémoire pour le segment DATA présenté au travers d'un exemple concernant des "matrices-disques", de larges matrices stockées sur le disque dur. A l'appui un fichier PDF expliquant le principe et le programme d'exemple.

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

DelForLaz est la version Lazarus de DelForEx d'Egbert van Nes. C'est un outil de formatage pour le code Pascal. Il s'intègre à Lazarus, sous la forme d'une commande "Pretty-Format File" dans le menu "Source".

Ce composant est d'autant plus intéressant qu'il est livré avec son code source complet.

Compilateur : Borland Pascal.

Une petite démo (entièrement orientée objet) d'un personnage 3D mettant en évidence le Z-buffering, l'effet Gouraud et autres techniques 3D.

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Comment définir et utiliser les différents types d’entiers, une des formes que prennent les types ordinaux.
L'exemple principal est une application calculant des carrés magiques (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser les applications suivantes :

• table de multiplication (image 2) ;
• somme des N premiers entiers (image 3) ;
• factorielle d'un nombre entier (image 4).

Compilateur : Borland Pascal.

Un moteur 3D façon Wolfenstein ou Doom.