POUR DEBUTER EN PASCAL ,IL FAUT SAVOIR QUE LE PASCAL STANDARD A ETE CREE        
 VERS 1970 PAR KLAUS WIRTH CHERCHEUR SUISSE
ENSUITE UNE NOUVELLE VERSION DU LANGAGE BAPTISEE 'PASCAL UCSD' FUT  ELABOREE    
 SOUS L'EGIDE DE L'UNIVERSITE CALIFORNIENNE DE SAN DIEGO PAR BOWLES
LE PASCAL UCSD A ETE TRES UTILISE SUR APPLE ET IL DEMEURE UNE TRES BONNE        
APPROCHE DE TURBO-PASCAL DU FAIT DE SES SIMILITUDES
COMME LIVRE DE PROGRAMMATION ON PEUT CONSEILLER 
_ INITIATION AU PASCAL EDITIONS RADIO PAR JC GUILLEMOT
_ LE LANGAGE PASCAL UCSD EDITIONS TECHNOLOGY RESOURCES PAR JC GRATTERY
_ TOPIQUES PASCAL PAR JOHN COLIBRI EDITIONS MEMODYNES
_ PASCAL PAR LA PRATIQUE P.LE BEUX ED SYBEX (ouvrage cependant trop axe sur les 
mathematiques)
_ LES ANCIENS NUMEROS DE TEO N7,8,9,10,11 (1986/1987)
_ DE NOMBREUX OUVRAGES TRAITANT DE TURBO-PASCAL,COMME TURBO PASCAL MODE D'EMPLOI
 DE Douglas Stivison (sybex), DONNENT DES EXEMPLES DE PROGRAMMATION SIMILAIRES  
  AU PASCAL UCSD
VOUS AVEZ DEUX DISQUETTES
SUR CELLE-CI SE TROUVE L'APPLICATION PASCAL A LANCER PAR 4
SELECTIONNER PASCAL fenetre de gauche
PUIS,AVANT DE VALIDER DANS LA FENETRE DE droite
INTRODUIRE LA DISQUETTE DOS +SYSTEME PASCAL
VALIDER,VOUS VOUS TROUVEZ ENSUITE SOUS PASCAL UCSD
A PARTIR DE CE MOMENT VOUS NE DEVEZ PLUS RETIRER LA DISQUETTE/ SYSTEME          
DE VOTRE LECTEUR
EN HAUT DE L'ECRAN APPARAIT UN BANDEAU DE MENU AVEC UNE LETTRE-CLE QUI CORRESPON
D A L'OPTION ;LA TOUCHE ? PERMET DE PASSER A LA SUITE DU BANDEAU
OPTIONS DU BANDEAU COMMAND
Edit PERMET DE RENTRER DES PROGRAMMES EN ETANT EN MODE EDITION
Run PERMET L'EXECUTION DU PROGRAMME .ATTENTION TOUT PROGRAMME PASCAL ,CONTRAIREM
ENT AU BASIC EXISTERA SOUS DEUX FORMES .LA FORME TEXT ET LA FORME CODE.
QUAND VOUS ECRIVEZ VOTRE PROGRAMME VOUS ECRIVEZ UN PROGRAMME TEXT ENSUITE,UNE FO
IS SAISI, VOUS DEVREZ SOIT LE COMPILER SOIT LE LANCER PAR RUN
LA PHASE DE COMPILATION TRADUIT LE LANGAGE PASCAL (texte) EN CODES QUE LA MACHIN
E COMPRENDRA
SI VOUS N'AVEZ PAS D'ERREURS DANS VOTRE PROGRAMME ,LE SYSTEME GENERERA UN PROGRA
MME CODE EXECUTABLE.
PAR LA SUITE C'EST TOUJOURS L'EXECUTION DU PROGRAMME CODE QUI SERA DEMANDE PAR R
UN OU EXECUTE.LE PROGRAMME TEXT A LA LIMITE PEUT ETRE EFFACE SAUF SI VOUS VOULEZ
 LE RETOUCHER POUR A NOUVEAU LE COMPILER
File DONNE ACCeS AUX FICHIERS SUR DISQUETTES PAR UN SOUS-BANDEAU
Xecute eXECUTE UN PROGRAMMECODE QU'ON VOUS DEMANDE DE PRECISER.RUN EXECUTE LE PR
OGRAMME DE TRAVAIL EN MEMOIRE 
Link PERMET DE FUSIONNER DES PROGRAMMES,OPTION A LAISSER DE COTE AU STADE DE DEB
UTANT !
Halt PERMET DE QUITTER LE SYSTEME POUR REVENIR AU MENU DU TO8
POUR LES AUTRES COMMANDES ON SE REPORTERA AU LEXIQUE EN FIN
VOUS VOULEZ SAISIR UN PROGRAMME,COMMENT PROCEDER ?
D'ABORD SELECTIONNER Filer (fichier lettre F.PUIS N:NEW LE SYSTeME VOUS RePONDRA
 WORKFILE CLEARED .WORKFILE DESIGNE LE PROGRAMME COURANT PRESENT EN MEMOIRE (PRO
GRAMME DE TRAVAIL)
AUX QUESTIONS,REPONDRE EN ANGLAIS SOIT Y POUR YES
PUIS QUITTER LE FICHIER PAR Q (uit) ET REVENIR EN EDITION PAR E(dit)ET TAPER I(n
sert).
VOUS N'AVEZ PAS A NUMEROTER LES LIGNES COMME EN BASIC MAIS ATTENTION A LA PONCTU
ATION LES INSTRUCTIONS SONT SEPAREES PAR DES ;
ETX CORRESPOND A CNT-C POUR TO8,ET BS (BACKSPACE) A CNT-H .POUR ESC FAIRE CNT [
A CHAQUE FOIS QUE VOUS VOULEZ SORTIR D'UN MODE EN EDITION FAIRE CNT-C
TAPER LE PROGRAMME LIGNE PAR LIGNE EN VALIDANT LA LIGNE PAR ENT ;UNE FOIS LE PRO
GRAMME SAISI SORTEZ DU MODE INSERTION PAR CNT-C
QUITTER L'EDITEUR PAR Q ET VALIDER L'OPTION U(pdate)QUI SIGNIFIE MISE A JOUR DU 
PROGRAMME COURANT (workfile)
AUTOMATIQUEMENT VOTRE PROGRAMME TEXT S'ENREGISTRE SUR LE LECTEUR SOUS LE NOM SYS
TEM.WRK.TEXT .RAPPELONS QUE LA DISQUETTE DOIT RESTER DANS LE LECTEUR
PENDANT LA COMPILATION(declenchee par RUN ou Xecute),LE SYSTEME ANALYSE VOS LIGN
ES DE PROGRAMMES ET S'ARRETERA SUR CHAQUE ERREUR
DES QU'UNE ERREUR EST SIGNALEE VOUS POUVEZ SOIT REVENIR EN EDITION POUR LA CORRI
GER IMMEDIATEMENT SOIT POURSUIVRE PAR APPUI SUR LA BARRE D'ESPACE
CEPENDANT TANT QUE LE PROGRAMME NE SERA PAS CORRECT LE PROGRAMME CODE N'EXISTERA
 PAS !
SI LE PROGRAMME TEXTE EST CORRECT ,LE SYSTEME GENERE UN PROGRAMME CODE QUI SE SA
UVEGARDE AUTOMATIQUEMENT SUR LA DISQUETTE avec pour nom SYSTEM WRK.CODE
POUR LUI DONNER UN NOM PRECIS en general quand il fonctionnera correctement TAPE
R F (FILE) PUIS S (SAVE) ENTREZ LE NOM ET VALIDER PAR ENT
S'ENREGISTRERONT SUR LA DISQUETTE LE PROGRAMME TEXT ET LE PROGRAMME CODE
SI VOUS DESIREZ LES SAUVER SUR UNE AUTRE DISQUETTE PROCEDER COMME SUIT--->TAPER 
NOM DISQUETTE:NOM PROGRAMME  exemple VOL1:ESSAI
INTRODUIRE LA DISQUETTE VOL1 DANS VOTRE SECOND LECTEUR AUPARAVANT ET LE SYSTEME 
APRES AVOIR TESTE LES DEUX LECTEURS INSCRIRA LE PROGRAMME SUR LA BONNE DISQUETTE
SI VOUS N'AVEZ QU'UN LECTEUR ATTENDEZ QUE LE SYSTEME VOUS DEMANDE DE RETIRER LA 
DISQUETTE SYSTEME (USER) POUR Y INTRODUIRE LA DISQUETTE VOL1
ENSUITE NE PAS OUBLIER DE REMETTRE LA DISQUETTE SYSTEME SI ELLE A ETE RETIREE AV
ANT D'APPELER UNE COMMANDE
POUR CHARGER EN MEMOIRE UN NOUVEAU PROGRAMME FAIRE F(ile) PUIS G(et) ENTREZ LE N
OM DU PROGRAMME EVENTUELLEMENT PRECEDE DU NOM DE LA DISQUETTE SUR LAQUELLE IL SE
 TROUVE PUIS ENT
POUR LE VISUALISER A L'ECRAN QUITTER LE FICHIER ET PASSER EN EDITEUR E(DIT)
POUR LE MODIFIER I(NSERT) ET PROCEDURE HABITUELLE
POUR AVOIR LE CATALOGUE DE LA DISQUETTE FAIRE F(ILE) PUIS L(IST) .A LA QUESTION,
TAPER :et ENT POUR LA DISQUETTE PAR DEFAUT OU NOM DISQUETTE : ENT,POUR UNE AUTRE
 DISQUETTE
POUR AVOIR LE CATALOGUE D'UNE AUTRE FAcON TAPER E(XT-DIR) PUIS #4 OU #5 POUR DES
IGNER LE LECTEUR CHOISI
LES DISQUETTES DOIVENT ETRE FORMATES AVEC LE DOS-PASCAL ET NON AU DOS BASIC THOM
SON
POUR CELA FAIRE A PARTIR DU BANDEAU COMMANDE X(ecute) et a la question 'WHAT FIL
E ?' ENTRER CONFIG
CHOISIR DANS LE MENU L'OPTION FORMATER ET CHOISIR LE LECTEUR #4 OU #5
ENSUITE EN CHOISISSANT Z(ERO) ELLE PRENDRA POUR NOM RAM:  ce qui peut ne pas nou
s convenir
ON QUITTE CONFIG PAR QUITTE ET ON REVIENT DANS LE MENU F(iler) PUIS ON CHOISIT C
(HANGE)
ON NOUS DEMANDE QUELLE DSK DOIT ETRE DEBAPTISEE ON REPOND  RAM: ou  #5 SI ELLE E
ST DANS LE SECOND LECTEUR
ON REPOND PAR LE NOUVEAU NOM A 'change to what?'exemple NUMERO1:
AINSI LA DISQUETTE SE NOMMERA NUMERO1 QUI CORRESPONDRA A VOL(what vol?)
SI ON DESIRE LE CATALOGUE ON TAPERA L(IST) ET ON REPONDRA NUMERO1:
SI ON DESIRE APPELER UN PROGRAMME DE CETTE DISQUETTE ON TAPERA NUMERO1:NOM DU PR
OGRAMME
autres commandes de F(ile) pour copier un fichier d'une disquette a l'autre T(ra
nsfer)QUESTION 'transfer what file ?' NOM DSK 1:NOM FICHIER 'to where?'NOM DSK2:
NOM FICHIER
si vous tapez V(olume) vous aurez le listage de tous les peripheriques connectes
 avec leur numero et le nom des disquettes contenues dans les lecteurs
EFFACER UN FICHIER ,COMMANDE R(emove) PUIS RePONDRE A LA QUESTION
P(refix) SERT A DESIGNER LA DISQUETTE UTILISEE PAR DEFAUT
REVENONS A L'EDITEUR .TOUTE LIGNE VALIDEE PAR ENT NE PEUT ETRE CORRIGEE .IL FAUT
 SORTIR PAR CNT-C DU MODE INSERTION ,POSITIONNER LE CURSEUR SUR LA LIGNE A GOMME
R ET TAPER D(elete)PUIS EFFACER AVEC LES TOUCHES FLECHEES 
OU REVISUALISER LE TEXTE EN REVENANT EN ARRIERE AVEC LES TOUCHES FLECHEES
QUAND VOUS ETES SATISFAIT VOUS VALIDEZ L'EFFACEMENT PAR CNT-C;POUR RAJOUTER UNE 
LETTRE OU UN MOT TAPER I(NSERT) ET VALIDER PAR CNT-C
POUR REMPLACER EN EDITION UN MOT PAR UN AUTRE exemple REMPLACER CLIENT PAR ACHET
EUR .TAPER R(place)puis L'CLIENT'V'ACHETEUR' ;LE CURSEUR SE POSITIONNE SUR LE PR
EMIER CLIENT
CONFIRMEZ LE REMPLACEMENT PAR LA TOUCHE R SINON BARRE D'ESPACE POUR ANNULER
 POUR REMPLACER LE MOT CLIENT QUI SUIT TAPER SIMPLEMENT LSVS
EN MODE EDITION DES FACILITES EXISTENT POUR EFFACER,CORRIGER ETC
EN TAPANT P ON PASSE A LA PAGE SUIVANTE.D(ELETE) EFFACE UNE LIGNE COMPLETE SI EN
SUITE ON APPUIE SUR ENT.    SI ON FAIT PRECEDER LA BARRE D'ESPACE OU ENT OU L'UN
E DES FLECHES PAR UN NOMBRE L'ACTION SE REPRODUIT AUTANT DE FOIS
ON PEUT MODIFIER LE SENS DU DEFILEMENT DES TOUCHES (comme ENT) EN TAPANT < OU > 
QUI S'INSCRIRA A COTE DE EDIT SUR LE BANDEAU DE COMMANDES
ON PEUT RECOPIER DES BLOCS DE LISTING EN LES METTANT DANS LE BUFFER PAR EFFAcAGE
 PUIS ON TAPE C(OPY) ET ILS VIENDRONT S'INSERER A PARTIR DE LA POSITION DU CURSE
UR.
LA STRUCTURE SIMPLIFIEE D'UN PROGRAMME PASCAL SE COMPOSE D'UN EN-TETE,DES DECLAR
ATIONS QUI DEFINISSENT LES OBJETS SUR LESQUELS PORTERONT LES TRAITEMENTS ET LE C
ORPS DU PROGRAMME LUI-MEME
EXEMPLE: PETIT PROGRAMME EN 6 LIGNES
                           
PROGRAM AFFICHE_UN_MESSAGE;
VAR BIENVENUE:STRING;
BEGIN
BIENVENUE:='Bonjour les Thomsonistes de CONTACTHOMS ';
WRITE(BIENVENUE);(*ECRIS A L'ECRAN*)
END.
    
ON A 6 LIGNES NON NUMEROTEES QUE LE SYSTEME NUMEROTERA DE 0 A 5 ESSENTIELLEMENT 
POUR VOUS DIRE Ou SE SITUENT LES EVENTUELLES ERREURS
EN PASCAL IL EST IMPORTANT DE SAVOIR QUE LA NOTION DE LIGNES N'A AUCUNE INCIDENC
E C'EST VOUS QUI DISPOSEZ VOTRE PROGRAMME POUR QU'IL SOIT LE PLUS LISIBLE POSSIB
LE.C'EST LA PONCTUATION QUI SEPARE CHAQUE INSTRUCTION.
L'EN TETE COMMENCE TOUJOURS PAR L'INSTRUCTION PROGRAM suivi D'UN NOM
DANS LA PARTIE DECLARATION, ON DEFINIT LA VARIABLE BIENVENUE COMME ETANT DE TYPE
 CHAINE DE CARACTERES(de 80 caracteres par defaut) PAR STRING .STRING [N] signif
iant N CARACTERES MAXIMUM AVEC N <255 .
BEGIN INDIQUE QUE LE TRAITEMENT COMMENCE LA ET VA JUSQU'AU END SUIVANT 
ON AFFECTE LA VALEUR Bonjour etc... a CETTE VARIABLE ATTENTION A METTRE DES PARE
NTHESES ET : AVANT EGAL
ON AFFICHE LA VARIABLE BIENVENUE A L'ECRAN PAR WRITE
ON INDIQUE QUE CETTE SERIE D'INSTRUCTIONS EST TERMINEE PAR END ET ON PRECISE PAR
 LE .QU'IL N'Y AURA PAS D'AUTRES INSTRUCTIONS POUR LA SUITE SINON ON AURAIT MIS 
END SANS POINT ET ON AURAIT TROUVE PAR EXEMPLE UNE NOUVELLE INSTRUCTION BEGIN
ON REMARQUE QUE DANS LE NOM DU PROGRAMME A LA PLACE DES ESPACES IL FAUT METTRE U
N TRAIT (situe sous le 6 du clavier TO8)
NE PAS OUBLIER UN POINT VIRGULE A LA FIN DE CHAQUE INSTRUCTION POUR LA SEPARER D
E LA SUIVANTE SAUF POUR BEGIN OU END (ce sont des delimiteurs et non des instruc
tions) ET QUELQUES AUTRES (THEN DO REPEAT )
ainsi il ne faut pas mettre de point virgule entre une instruction et END car EN
D n'est pas une instruction mais agit comme une parenthese.
NE PAS OUBLIER LES PARENTHESES ,NI LE : AVANT LE EGAL NI LE : AVANT STRING,NI DE
 METTRE LA CHAINE ENTRE GUILLEMETS SIMPLES ET NON DOUBLES COMME EN BASIC;sinon M
ESSAGES D'ERREUR AU MOMENT DE LA COMPILATION
ATTENTION DU FAIT DE L'ENCADREMENT D'UNE CHAINE ALPHANUMERIQUE PAR DES ' SI VOTR
E TEXTE EN COMPORTE IL FAUT LES DOUBLER .EXEMPLE    'LE BONJOUR DE SOPHIE' mais 
'LE BONJOUR D'' ALFRED'
WRITE INDIQUE QU'ON NE VA PAS A LA LIGNE SINON UTILISER WRITELN ET LA PROCHAINE 
INSTRUCTION D'ECRITURE SE FERA A LA LIGNE EN DESSOUS
A NOTER UN COMMENTAIRE DANS LE PROGRAMME QUE LE COMPILATEUR IGNORE IL SERA PLACE
 N'IMPORTE Ou APRES LE POINT-VIRGULE ENTRE PARENTHESES avec SIGNE*
CONTRAIREMENT AU BASIC ON A DEUX SIGNES EGAL .L'AFFECTATION QUI S'ECRIT := equiv
alente a LET du basic ET = SEUL QUI SIGNIFIE NON DIFFERENT DE
C'EST UNE DES DIFFICULTES DU LANGAGE
POUR AFFICHER LE MESSAGE SUR IMPRIMANTE LE PROGRAMME SERA
PROGRAM IMPRIME_SALUTATIONS;
VAR PR:INTERACTIVE;
MESSAGE:STRING;
BEGIN
RESET(PR,'PRINTER:');
MESSAGE:='SALUT A TOUS';
WRITELN(PR,MESSAGE);
END.
     
POUR LISTER VOS PROGRAMMES SUR IMPRIMANTE
SELECTIONNER F(ILER) PUIS T(RANSFER) comme pour copier d'une disquette vers une 
autre .A LA QUESTION transfer what file? TAPER VOL3:ESSAI.TEXT (par exemple) A L
A SECONDE QUESTION to where? TAPER #6 
POUR IMPRIMER LE CATALOGUE D'UNE DISQUETTE FAIRE L(IST puis repondre #4,PRINTER:
 ou #5,PRINTER: 
TERMINONS PAR UN PETIT PROGRAMME DE CALCUL
PROGRAM ADDITION;
VAR PREM_NB,DEUX_NB,SOMME:INTEGER;
BEGIN
WRITELN('ce programme aditionnedeux entiers');
(*INTEGER SIGNIFIE VARIABLE DE TYPE NUMERIQUE ENTIER*)
(*COMPRIS ENTRE-32767 ET +32767*)
WRITELN('TAPER LE PREMIER NOMBRE');
READLN(PREM_NB);
WRITELN('TAPER LE SECOND NOMBRE');
READLN(DEUX_NB);
SOMME:=PREM_NB+DEUX_NB;
WRITELN('LA SOMME VAUT',SOMME);
END.
    
POUR CHOISIR DES NOMBRES DECIMAUX OU PLUS GRANDS IL FAUT PRENDRE COMME TYPE REAL
 au lieu de INTEGER DANS LA PARTIE DECLARATION DU PROGRAMME
ON AURA LE RESULTAT EN NOTATION SCIENTIFIQUE  ;SINON POUR AVOIR UNE PRESENTATION
 PLUS CLASSIQUE ECRIRE WRITELN('SOMME VAUT',SOMME:10:2);
LE CHIFFRE OCCUPE 10 CARACTERES SIGNE COMPRIS ET 2 CHIFFRES APRES LA VIRGULE.MOD
IFIER LE PROGRAMME PRECEDENT EN UTILISANT REAL AU LIEU DE INTEGER PUIS UTILISER 
INTEGER [N]
POUR CHOISIR DES NOMBRES ENTIERS TRES GRANDS IL FAUT PRENDRE COMME TYPE INTEGER 
[N] N INDIQUE LA TAILLE MAXI 
