Codes sources Pascal333 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme crée la liste de tous les nombres premiers de 1 à N.

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 tout le monde.
En tant que joueur d'échecs (1654 ELO FIDE en Avril 2017) et amateur en programmation, j'ai eu l'idée de créer mon propre jeu d'échecs. Avant de me lancer, j'ai fait des recherches sur Internet et j'ai trouvé beaucoup d'exemples mais soit ils sont trop compliqués pour être compris soit leurs codes sont trop longs (> 2 000 lignes). Alors j'ai voulu avoir un exemple très simple juste pour débuter; un exemple qui montre juste comment déplacer les pièces et comment générer un coup sans se soucier du gain ou des tactiques gagnantes et cela avec le minimum de code possible.
Je me suis décidé alors à créer moi-même ce que je cherchais : VALISOACHESS est alors né.

Développeur : Valisoa Jean Hervé
Déb ... Voir la suite

Compilateur : Turbo Pascal.

Ce programme en mode texte (sous MS-DOS) permet d'encoder et de jouer des parties d'échecs en notation internationale.

Sujets intéressants : dessin de caractères ASCII personnalisés pour représenter des pièces d'échecs en mode texte, utilisation de modes textes de plus de 80 colonnes et de plus de 50 lignes.

FLRE (Fast Light Regular Expressions) est une bibliothèque pour l'utilisation des expressions régulières, écrite en Pascal. Ses atouts sont, outre son étonnante rapidité, le fait qu'elle soit compatible aussi bien avec Delphi (ancienne et nouvelle génération) qu'avec Free Pascal.

La bibliothèque tient dans deux unités, [b]FLRE.pas[/b] et [b]FLREUnicode.pas[/b]. Elle peut également être compilée en bibliothèque dynamique, auquel cas on peut s'en servir dans un programme écrit dans un autre langage que le Pascal.

FLRE supporte à la fois les styles Perl et POSIX.

Ski Jump International est un jeu de saut à ski, initialement développé pour le système d'exploitation DOS, puis porté vers Linux et Windows au moyen de la bibliothèque SDL2.

Unbound Bible est un logiciel à code source ouvert pour la lecture de la Bible, développé avec Lazarus. Il permet de naviguer dans la Bible, d'ajouter des notes, de comparer plusieurs traductions.

Le logiciel est livré avec une bible anglaise et une bible russe, mais vous pouvez facilement télécharger et ajouter les éditions de votre choix.

Compilateur : Turbo Pascal.

Ce programme permet de créer des tableaux de 64 LEDS (8 lignes x 8 colonnes) pour faires des petites animations qui seront affichées sur le PC à l'aide du programme MYSLIDE (et pourquoi pas à l'aide 2 microcontroleurs PIC (1 en X et 1 en Y) et de 64 LEDs bicolores).

Programme qui convertit une image contenant de petites images rangées en tableau et composant une animation, en une image contenant toutes les petites images sur une seule ligne.

Compilateur : Turbo Pascal.
Catégorie : Turbo Vision.

Cette application permet de lire, d'écrire ou de formater les secteurs d'une disquette. Elle sert d'illustration au tutoriel sur la programmation avancée Turbo Vision.

Ensemble de programmes en Pascal qui accomplissent les opérations suivantes :

Lire un fichier SVG (l'image d'une fleur de lys), en extraire les données et fabriquer une unité en Pascal les contenant. Recréer des images au moyen de ces données (l'image de la fleur de lys, l'image des points seuls, l'image des point reliés par des droites). Superposer les images précédentes. En partant d'une des images précédentes, créer une image avec un effet de volume et d'ombre.

Les données sont les coordonnées des points pour tracer la fleur de lys.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Résolution d'équation diophantienne ax+by = c (a,b,c,x,y étant des nombres entiers).

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

L'équation ax + by = c, où les coefficients a, b, et c, sont trois entiers relatifs et où les inconnues x et y sont entiers relatifs, est une des équations diophantiennes les plus simples à résoudre. Sa résolution s'appuie sur l'algorithme d'Euclide, le théorème de Bachet-Bézout et le théorème de Gauss. Dans l'ensemble des entiers relatifs, une telle équation possède, ou bien aucune solution, ou bien une infinité de solutions. Lorsque les coefficients et ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme calcule le nombre de jours écoulés entre deux dates.
Les deux dates doivent être comprises entre le 01/01/1901 et le 31/12/2099.

Ref.: "Mathématiques par l'informatique individuelle" de H. Lehning et D. Jakubowicz, Masson, Paris, 1982.

Compilateur : Turbo Pascal for Windows.

Catégorie : nombres complexes.
Le programme ZCircle montre un algorithme de recherche du zéro.
Ce document (en anglais) explique le programme dans tous ses détails.

Ref.: "BASIC Scientific Subroutines, Vol. II" de F.R. Ruckdeschel, BYTE/McGRAWW-HILL, 1981.

Programme calculant la date du dimanche de Pâques pour une année quelconque du calendrier grégorien.

Exemple d'utilisation de la bibliothèque BGRABitmap. Animation représentant le mouvement d'un corps sur une trajectoire elliptique.

Permet la recherche d'un chemin sur une grille pouvant contenir différents obstacles, plus ou moins franchissables.
Exploite un des algorithmes les plus puissants dans ce domaine : l'algorithme A* ("A star").
Compatible Dos et Windows.

Très puissant, le A* a néanmoins ses faiblesses : il consomme une quantite non négligeable de mémoire, et le calcul d'un itinéraire peut prendre du temps sur les cartes vastes.
L'unité n'a ete adaptée que pour fonctionner sur une carte découpée en cases carrées ; elle peut toutefois être modifiée pour l'étude de cases hexagonales.

Configuration minimale nécessaire :

• Processeur 8086/8088 ou supérieur
  Turbo Pascal 7.0+ ou Borland Pascal 7.0+
  Package objet d ... Voir la suite

==== 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

Unité permettant d'utiliser les fonctionnalités du timer du BIOS au moyen de l'objet TTimer ou bien de la fonction SetTimer.

Permet notamment de créer des gestionnaires en arrière-plan, avec une fréquence d'appel définissable par l'utilisateur.
Présence de la fonction Rdtsc pour effectuer des mesures de précision pour les calculs de durées.