Turbo Pascal : exercices et corrigés

program premier;
uses wincrt ;
var
a:integer;
begin
writeln ('donner a');
readln (a);
if a mod2=0 then
writeln (a,'est paire')
else
writeln ('a,'est impaire');
end.

Voici quelques exercices corrigés a format pdf:

https://www.000webhost.com/migrate?static=true

il ya deux erreur la premiére est au niveau de declaration d'élment de bibliothéque on écrit
uses crt ; et la deusiéme au niveau de writeln. on écrit writeln(a,'estimpaire') ; non pas writeln('a,'est impaire') ;
et merci pour vous tous

program MAHER;
uses wincrt;
type
personnel=record
np:string;
cin:word;
mat:word;
grade:char;
adres:string[50];
tel:string[8];
ancite:real;
end;
fichierpersonnel=file of personnel;
var
f,f1,f2,f3,f4:fichierpersonnel;
procedure creation(var f,f1,f2,f3,f4:fichierpersonnel);
begin
assign(f,'d:\alg4SI\perso.dat');
assign(f1,'d:\alg4SI\persoa.dat');
assign(f2,'d:\alg4SI\persob.dat');
assign(f3,'d:\alg4SI\persoc.dat');
assign(f4,'d:\alg4SI\persod.dat');
rewrite(f);
rewrite(f1);
rewrite(f2);
rewrite(f3);
rewrite(f4);
end;
procedure saisie (var f:fichierpersonnel);
var
p:personnel;
choix:char;
begin
reset(f);
repeat
with p do
begin
write('donner le nom et prenom : ');
readln(np);
write('donner le cin: ');
readln(cin);
write('donner la matricule:');
readln(mat);
repeat
write('donner la grade:');
readln(grade);
until grade in['A'..'D'];
write('donner l adresse:');
readln(adres);
write('donner le telephone:');
readln(tel);
write('donner l anciennete :');
readln(ancite);
end;
write(f,p);
repeat
write('voulez vous continuer(o\n): ');
readln(choix);
until(upcase(choix)='O') or (upcase(choix)='N');
until upcase(choix)='N';
close(f);
end;
procedure divise(var f,f1,f2,f3,f4:fichierpersonnel);
var
p:personnel;
begin
reset(f);
reset(f1);
reset(f2);
reset(f3);
reset(f4);
while not(eof(f)) do
begin
read(f,p);
case upcase(p.grade)of
'A':write(f1,p);
'B':write(f2,p);
'C':write(f3,p);
'D':write(f4,p);
end;
end;
close(f);
close(f1);
close(f2);
close(f3);
close(f4);
end;
procedure affiche(var f:fichierpersonnel);
var
p:personnel;
begin
reset(f);
while not(eof(f)) do
begin
writeln('***********************');
read(f,p);
with p do
begin
writeln('le nom et prenom:',np);
writeln('le cin :',cin);
writeln('la matricule:',mat);
writeln('l adresse:',adres);
writeln('le telephone:',tel);
writeln('l anciennete:',ancite);
end;
end;
close(f);
end;
begin
creation(f,f1,f2,f3,f4);
saisie(f);
divise(f,f1,f2,f3,f4);
affiche(f2);
end.

bien sur que oui

Ca fait plus q'un an que j'etudie le logiciel pascal et je ne m'ai pas demande pourquoi on l'etudie tu sais pourquoi ?parce que je ne veux pas que ca soit la fin de mes etudes merci

oui tres bon site avec des devoir et série et révision en pdf !
viva la tunisia !

Oues la problem