Turbo Pascal : exercices et corrigés

[Résolu/Fermé]
Signaler
-
Messages postés
1
Date d'inscription
mardi 7 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
-
Bonjour,
je cherche un cours en turbo pascal et des exercices corrigés sur les structures de contrôles itératives!!!!!
Merci
A voir également:

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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

slt
crere un programme qui permet un date de demin en pascal plz help me
Messages postés
1
Date d'inscription
mardi 7 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016

c'est très parfait
programme pascal detecte que le nombre A entier ou non
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.
> chocko2009
ton programme ne compile pas il ya une erreur au niveau de'' uses wincrt;''
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
pardon!!!
remplacer l'objet i par A
si tu veux
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.
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

salut tout le monde il y a quelqu'un qui connait le rôle de l'algorithme???
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
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.

salut merci pour tous
Messages postés
35
Date d'inscription
samedi 26 novembre 2011
Statut
Membre
Dernière intervention
18 juin 2012
1
www.devoirat.net
Messages postés
2
Date d'inscription
dimanche 17 mai 2015
Statut
Membre
Dernière intervention
18 octobre 2015

oui tres bon site avec des devoir et série et révision en pdf !
viva la tunisia !
Oues la problem
> bessouma
Ne comprit pa le problem
Qoi la pdf
aider moi pour trouver un site de structures itératives avec des exercices corriges