IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

Codes sources Pascal344 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Codes sources Pascal

Liste des 344 ressources de cette catégorie

    Module 2, chapitre 9 : Les chaînes de caractères

    Téléchargé 11 fois-
    0
    0
    Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

    Quels sont les types de chaînes de caractères les plus courants et quelles procédures et fonctions permettent de les manipuler.
    L'application d'exemple découpera une phrase en mots ; l'utilisateur aura le choix entre un découpage programmé à la main et un découpage assisté par les routines de l'unité StrUtils (image 1).
    Dans le laboratoire, voici les applications à réaliser :
    • supprimer les espaces en début ou en fin d’une chaîne (image 2) ;
    • classer des chaînes (image 3) ;
    • un scrutateur de chaînes de cara ... Voir la suite
    Code source - Licence : Creative Commons - Publié le 26/03/2023 - Auteur : Alcatîz +

    Compression par algorithme de Huffman

    Téléchargé 11 fois-
    0
    0
    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é.
    Licence : Freeware - Publié le 11/11/2010 - Taille 12,7 Ko - Auteur : kael kael +

    Calculatrice

    Téléchargé 11 fois-
    0
    0
    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.
    Licence : Freeware - Publié le 12/11/2010 - Taille 10,3 Ko - Auteur : darrylsite +

    Produire simplement un Beep, un Son ou un extrait musical

    Téléchargé 11 fois-
    0
    0
    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

    Code source - Licence : Non renseignée - Publié le 01/05/2024 - Auteur : Jlmat +

    JS-Echecs

    Téléchargé 11 fois-
    0
    0
    C'est un programme didactique de jeu d'échecs, adapté de JS-Schach (jeu d'échecs de Jürgen Schlottke).

    Cette version du programme propose une interface graphique basée sur la librairie OWL. Le programme a été développé pour Virtual Pascal 2.1.

    Mise à jour 21 décembre 2013 : La nouvelle version du jeu inclut le livre d'ouvertures du programme Pro Deo d'Ed Schröder.
    Licence : Non renseignée - Publié le 23/12/2013 - Taille 876 Ko - Auteur : Roland Chastain +

    Tri TStringList

    Téléchargé 11 fois-
    3
    0
    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
    Licence : Non renseignée - Publié le 17/06/2016 - Auteur : ThWilliam +

    Module 2, chapitre 5 : Les booléens

    Téléchargé 11 fois-
    0
    0
    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.
    Code source - Licence : Creative Commons - Publié le 25/03/2023 - Auteur : Alcatîz +

    Tea Timer - chronomètre pour l'infusion du thé sous Android [LAMW]

    Téléchargé 11 fois-
    3
    0
    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
    Code source - Licence : Creative Commons - Publié le 14/10/2023 - Auteur : Alcatîz +

    Spirale de Théodore

    Téléchargé 11 fois-
    3
    0
    Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.
    Logiciel - Licence : Non renseignée - Publié le 06/04/2024 - Auteur : Roland Chastain +

    Conversion entre bases de 2 à 36

    Téléchargé 10 fois-
    0
    0
    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.
    Licence : Libre - Publié le 15/11/2011 - Éditeur : Jean-Pierre Moreau +

    Défi Lazarus 2009 - Sudoku solver : 1ère place (darrylsite)

    Téléchargé 10 fois-
    0
    0
    Le sujet du défi 2009 était de réaliser un résolveur de grilles de Sudoku pouvant être compilé au minimum pour Windows et Linux. Il s'agit du projet du vainqueur.
    Licence : Non renseignée - Publié le 19/12/2014 - Taille 601 Ko - Auteur : darrylsite +

    K-Tools - bibliothèque d'unités d'objets Turbo Pascal 6 et 7

    Téléchargé 10 fois-
    0
    0
    Compilateur : Turbo Pascal

    K-Tools est un ensemble d'unités et d'applications écrites par Bruno Kostrzewa :

    Unit UDrivers : gestion du clavier et de la souris
    Unit UTextScr : gestion de l'écran en mode texte
    Unit UMem : gestion de la mémoire
    Unit UImprim : gestion de l'imprimante
    Unit OTableau : objets liés aux tableaux dynamiques
    Unit OFile : objets liés aux fichiers
    Unit OBinFile : objets liés aux fichiers avec mémoire tampon
    Unit OFText : objets liés aux fichiers textes
    Unit OFHelp : objets liés aux fichiers d'aide
    Unit OFWrite : objets liés aux fichiers .wri (Write for Windows)
    Unit OFSwag : objets liés aux fichiers swag
    Unit OFZip : objets liés aux fichiers . ... Voir la suite
    Licence : Shareware - Publié le 06/11/2010 - Taille 311 Ko

    PCF (Pascal Code Formatter)

    Téléchargé 10 fois-
    1
    0
    Formatage de code source en Pascal. Outil en ligne de commande dérivé de DelForExp d'Egbert van Nes.
    Logiciel - Licence : Non renseignée - Publié le 28/02/2024 - Auteur : Roland Chastain +

    Lecteur de musique basé sur miniaudio

    Téléchargé 10 fois-
    1
    0
    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.
    Logiciel - Licence : Non renseignée - Publié le 14/12/2024 - Auteur : Roland Chastain +

    Module 2, chapitre 21 : Le graphisme

    Téléchargé 10 fois-
    0
    0
    Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

    Initiation au graphisme.
    L'application d'exemple est la réalisation de l'animation d'un attelage écossais, c'est-à-dire un mécanisme roratif doté d'un ergot qui permet de transformer un mouvement circulaire en mouvement rectiligne.
    Dans le laboratoire, il s'agit d'apporter des améliorations à cette application.
    Code source - Licence : Libre - Publié le 26/03/2023 - Auteur : Alcatîz +

    Module 2, chapitre 8 : Les caractères

    Téléchargé 10 fois-
    0
    0
    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 - Licence : Creative Commons - Publié le 26/03/2023 - Auteur : Alcatîz +

    Gestion session sous TrayIcon

    Téléchargé 10 fois-
    0
    0
    La gestion des sessions windows, en particulier sous Win10, ne me convenait pas.
    J'ai développé une micro application me permettant de fermer windows ou de le rebooter, de clôturer une session, de la verrouiller, de lancer le mode veille le tout à partir du systray.

    Le zip contient toutes les sources nécessaires pour être recompilées par vos soins ou être incorporées selon vos besoins.


    Code source - Licence : Non renseignée - Publié le 18/02/2022 - Auteur : castorcharly +

    Parser d'expressions mathématiques

    Téléchargé 10 fois-
    0
    0
    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.
    Licence : Libre - Publié le 16/11/2011 - Éditeur : Jean-Pierre Moreau +

    Module 2, chapitre 3 : Les entiers

    Téléchargé 10 fois-
    0
    0
    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).

    Code source - Licence : Creative Commons - Publié le 24/03/2023 - Auteur : Alcatîz +

    Module 2, chapitre 6 : Les nombres flottants

    Téléchargé 10 fois-
    0
    0
    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
    Code source - Licence : Creative Commons - Publié le 25/03/2023 - Auteur : Alcatîz +