Turbo pascal

Bonjour, tu voudrais commencer par apprendre quel langage? Le pascal? Le BASIC?

Le BASIC est très facile pour débuter. Que voudrais-tu faire?

Ce n'est pas forcément le plus utilisé mais en tout cas, il est idéal pour les débutants parce qu'il est facile à lire et a apprendre. Le Delphi est basé sur Pascal et là oui il est quand même assez populaire. Si tu veux commencer par là, ok. Voici un compilateur PASCAL gratuit :

https://www.freepascal.org/

Clique sur Download et choisis une version 2.2.0 pour Windows :

https://www.freepascal.org/down/i386/win32.var

Ensuite, tu installe et tu ouvre la ligne de commande (Menu démarrer -> Executer et tapes "cmd".

Alors là tu pourra essayer de taper "fpc" si ça marche, alors c'est parti, tu peux commencer à programmer en pascal. Commence par ça, ensuite on verra pour compiler un programme. tu peux aussi aller dans menu démarrer -> Free Pascal et lancer l'éditeur.

Fais ça et j'attend ta réponse

Aucun problème normalement.

FreePascal fonctionne sur :
Windows 95, 98, ME, NT, 2000, XP, Vista

Essaie ce lien direct : ftp://ftp.freepascal.org/pub/fpc/dist/i386-win32-2.2.0/fpc-2.2.0.i386-win32.exe

peut être, car ici ça marche direct

salut rocky tu maitrise le language pascal?

assez bien oui, je connais delphi, qui est basé sur pascal. Mais on trouve pas mal de cours sur le pascal sur le net.

moi c'est charles je veux participer a votre forum car je veux tous apprendre sur pascal, vb et l'algo.

bien sûr ce site est public alors tout le monde peut y venir LOL

moi je programme en ada c asses proche du pascal, je c pas si tu connais ce language
mje suis etudiant et je suis entrain de realiser un projet (jeu morpion)
j'aimerai savoi si c possible de integrer dans mon programme ada (ou pascal) l'execution de commandes dos?

c'est ce que fait la commande exec (sous DOS seulement visiblement), après suivant les versions, il y a aussi ShellExecute etc. Vois si en ADA tu peux utiliser la fonction ShellExcute. Comme je fais du delphi principalement, j'utilise la fonction ShellExecute.

la fonction ShellExecute est dans le package Windows en Pascal. Ca doit fonctionner en mode console. Mais en Delphi, si je veux executer un programme externe (ex: la calculatrice), j'ai juste à taper :

WinExec('calc.exe',SW_SHOWNORMAL);

Il faut chercher la documentation de la fonction shellexecute en pascal, en mode console.

la fonction Len (elle existe dans presque tous les langages) te donne la longueur d'une chaine de caractères.

les espaces sont pris en compte avec la fonction len.

Voici un exemple de Pascal, explique ce que fais ce programme :

indices :
write = écrire
writeln = écrire et aller à la ligne
readln = lire une ligne

program Salut;
uses crt, sysutils;

var nom: String;
var age: Integer;
begin

 textcolor(15); {en blanc}
 write('Salut. Quel est votre nom ? ');
 readln(nom);
 write('Votre age? ');
 readln(age);

 textcolor(10); {en vert}
 writeln('Bonjour ', nom, '! Vous avez ', age, ' ans.');
 writeln('Votre nom a ', length(nom), ' lettres.');
 {Attendre 5 secondes}
 sleep(5000);
end.

Bien! Tu as presque tout compris, à part :

textcolor n'utilise pas de tailles de polices, c'est une application console (un peu comme DOS). Le 15 c'est le code couleur (15= blanc, 10= vert).

Il ne dit pas le nombre de lettres de la phrase mais seulement du nom.

Et après, bah le sleep(5000) signifie qu'on attend 5 secondes (5000 millisecondes) pour quitter, comme ça on a le temps de lire.

pour plus d'amusement, il faut tenter de taper ce programme dans le compilateur pour essayer de le compiler toi même, le modifier etc

d'accord je le ferai

Une illustration des types String et Char : on veut stocker une seule lettre du nom.

Pour échanger la première lettre et la dernière lettre du nom :

program Salut;
uses crt, sysutils;

procedure syspause();
begin
 write('Appuyez sur ENTER...');
 readln();
end;

var nom: String;
var age: Integer;
var t: Char;
begin
 textcolor(15);
 write('Salut. Quel est votre nom ? ');
 readln(nom);
 write('Votre age? ');
 readln(age);

 textcolor(10);
 writeln('Bonjour ', nom, '! Vous avez ', age, ' ans.');
 writeln('Votre nom a ', length(nom), ' lettres.');

 t:=nom[1];
 nom[1]:=nom[length(nom)];
 nom[length(nom)]:=t;
 writeln(nom);
 syspause();
end.

On prend le premier caractère du nom
t:=nom[1];

On mets le dernier caractère du nom à la place du premier
nom[1]:=nom[length(nom)];

On remplace le dernier caractère par le premier (qui est stocké dans t).
nom[length(nom)]:=t;

Ex: le nom est Laura

nom[1] = L
nom[2] = a
...
nom[5] = a

après la bidouille :

le nom est aaurL

Au fait, une chaîne, c'est un tableau de Char. Donc, c'est lié.