Turbo Pascal : exercices et corrigés

Résolu/Fermé
donia hammami - 5 avril 2009 à 19:13
rotationnel
Messages postés
1
Date d'inscription
mardi 7 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
- 7 juin 2016 à 18:55
Bonjour,
je cherche un cours en turbo pascal et des exercices corrigés sur les structures de contrôles itératives!!!!!
Merci

10 réponses

simple:
program type1;
uses wincrt;
var i,j:real;
begin
writeln('donnner un nombre');
readln(i);
j:=frac(i);
if (j=0) then
writeln('entier')
else
writeln('réel');
end.
40
slt
crere un programme qui permet un date de demin en pascal plz help me
0
rotationnel
Messages postés
1
Date d'inscription
mardi 7 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016

7 juin 2016 à 18:55
c'est très parfait
0
programme pascal detecte que le nombre A entier ou non
16
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.
0
abc > chocko2009
15 déc. 2009 à 15:16
ton programme ne compile pas il ya une erreur au niveau de'' uses wincrt;''
0
Voici quelques exercices corrigés a format pdf:

https://www.000webhost.com/migrate?static=true
0
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
0
pardon!!!
remplacer l'objet i par A
si tu veux
10
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.
0
Voilà un site web que vous pouvez trouver pas mal d'exercices avec correction et aide par des professionnels,
https://www.hugedomains.com/domain_profile.cfm?d=checkbird&e=com
6

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sarouna sirina
11 mai 2011 à 21:30
salut tout le monde il y a quelqu'un qui connait le rôle de l'algorithme???
4
bien sur que oui
0
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
0
a l aide.hi tout le monde.
programme en algo permettant la résolution d'equation du premier dégré et du second dégré.
PUIS
ecrire résolution d'équation du premier dégré et du second dégré en langage pascal.
END.
4
mohamed el yaagoubi
21 sept. 2010 à 10:55
salut merci pour tous
3
reyoikhlass
Messages postés
35
Date d'inscription
samedi 26 novembre 2011
Statut
Membre
Dernière intervention
18 juin 2012
1
25 déc. 2011 à 01:21
www.devoirat.net
1
hamanex
Messages postés
2
Date d'inscription
dimanche 17 mai 2015
Statut
Membre
Dernière intervention
18 octobre 2015

18 oct. 2015 à 17:10
oui tres bon site avec des devoir et série et révision en pdf !
viva la tunisia !
0
Oues la problem
0
bessouma > bessouma
27 oct. 2015 à 09:03
Ne comprit pa le problem
0
Qoi la pdf
1
aider moi pour trouver un site de structures itératives avec des exercices corriges
0