|
|
|
|
program affichage;
uses crt;
var chiffre,chiffre2:real;
caractere:char;
begin
clrscr;
write ('Donnez un nombre entier : ');
readln (chiffre);
writeln (chiffre:26:0);
write ('Donnez un caract?re : ');
readln (caractere);
writeln (caractere);
write ('Donnez un flottant : ');
readln (chiffre2);
writeln (chiffre2:21:3);
readkey;
end.
program aligner;
uses crt;
var n1,n2,n3,res:integer;
begin
clrscr;
write ('Donnez un premier nombre : ');
readln (n1);
writeln ('Donnez un second nombre : ');
readln (n2);
writeln ('Donnez un troisiŠme nombre : ');
readln (n3);
res:=n1+n2+n3;
writeln ('La somme de ces nombres est ‚gal … : ', res);
writeln ('Calcul : ', n1, '+', n2, '+',n3, '=', res);
readkey;
end.
program ascii;
uses crt;
var i,n:integer;
begin
clrscr;
write ('Specifiez le nombre de code ascii que vous d‚sirez : ');
readln (n);
for i:=1 to n do begin
writeln (i, ':', chr(i));
readkey;
end;
readkey;
end.
program carre;
uses crt;
var n,i,y,m:integer;
{
var n,i,y,l,m:integer;
}
begin
clrscr;
repeat
write ('Donnez un nombre entre 1 et 15 : ');
readln (n);
until (n>=1) and (n<=15);
for i:=1 to n do
begin
write ('+');
end;
writeln ('');
for y:=1 to n-2 do
begin
writeln ('+', '+':n-1);
end;
{
y:=0;
repeat
write ('+');
for l:=1 to n-2 do
begin
write (' ');
end;
write ('+');
writeln ('');
y:=y+1;
until y=n-2;
}
for m:=1 to n do
begin
write ('+');
end;
readkey;
end.
program caseof;
uses crt;
var n:integer;
begin
clrscr;
write ('Donnez un nombre entre 1 et 50 : ');
readln (n);
if n<2 then
writeln ('Petit');
if n>2 and n<11 then
writeln ('Moyen');
if n>10 and n<51 then
writeln ('Grand')
else
writeln ('Nombre hors plage');
readkey;
end.
program caseof;
uses crt;
var n:integer;
begin
clrscr;
write ('Donnez un nombre : ');
readln (n);
if (n<3) then
writeln ('Petit')
else
if (n>2) and (n<11) then
writeln ('Moyen')
else
if (n>10) and (n<51) then
writeln ('Grand')
else
writeln ('Nombre hors plage');
readkey;
end.
program caseof;
uses crt;
var n:integer;
begin
clrscr;
write ('Donnez un nombre : ');
readln (n);
case n of
1,2 : writeln ('Petit');
3..10 : writeln ('Moyen');
11..50 : writeln ('Grand')
else
writeln ('Nombre hors plage');
end;
readkey;
end.
program cercle;
uses crt;
var rayon,res:real;
begin
clrscr;
write ('Donnez le rayon du cercle : ');
readln (rayon);
res:=pi*rayon*rayon;
writeln ('La surface d''un cercle de rayon ', rayon:10:2, ' vaut ', res:1:2);
res:=2*pi*rayon;
writeln ('La circonf‚rence d''un cercle de rayon ',rayon:1:2, ' vaut ', res:1:2);
readkey;
end.
program croix;
uses crt;
var n,i,m,l,o:integer;
begin
clrscr;
repeat
write ('Donnez un nombre impair entre 1 et 15 : ');
readln (n);
until (n mod 2<>0) and (n>=1) and (n<=15);
o:=n div 2;
m:=n;
for i:=1 to o do
begin
writeln ('+':i+1, '+':m);
m:=m-2;
end;
writeln ('+':o+2);
m:=o;
for l:=1 to o do
begin
writeln ('+':i+1, '+':m);
i:=i-1;
m:=m+2;
end;
readkey;
end.
program divis;
uses crt;
var n, divi : integer;
res : real;
begin
clrscr;
write ('Donnez le nombre … diviser : ');
readln (n);
write ('Donnez le diviseur (2,3,5) : ');
readln (divi);
if (divi=2) or (divi=3) or (divi=5) then begin
if n mod divi = 0 then begin
res:=n/divi;
writeln (n, ' est divisible par ', divi, '. Resultat : ', res:1:2);
end
else
writeln (n, ' n''est pas divisible par ', divi, '. Reste : ', n mod divi);
end
else
writeln ('Mauvais diviseur');
readkey;
end.
program diviser;
uses crt;
var n,divi:integer;
res:real;
begin
clrscr;
write ('Donnez le nombre … diviser : ');
readln (n);
write ('Donnez le diviseur (2,3,5) : ');
readln (divi);
case divi of
2 : begin
if n mod 2 = 0 then begin
res:=n/2;
write (n, ' est divisible par 2. Resultat : ', res:1:2);
end
else
write (n, ' n''est pas divisible par 2. Le reste est ', n mod (2));
end;
3 : begin
if n mod 3 = 0 then begin
res:=n/3;
write (n, ' est divisible par 3. Resultat : ', res:1:2);
end
else
write (n, ' n''est pas divisible par 3. Le reste est ', n mod (3));
end;
5 : begin
if n mod 5 = 0 then begin
res:=n/5;
write (n, ' est divisible par 5. Resultat : ', res:1:2);
end
else
write (n, ' n''est pas divisible par 5. Le reste est ', n mod (5));
end
else
writeln ('Mauvais diviseur');
end;
readkey;
end.
program exefor1;
uses crt;
var n:integer;
begin
clrscr;
for n:=1 to 10 do begin
write (n:2,' a pour triple ', 3*n);
writeln;
end;
writeln;
for n:=100 downto 80 do begin
write (n:3,' a pour double ', 2*n);
writeln;
end;
readkey;
end.
{*******
* Exemple 1
*******}
Program exemple_1 ;
Uses crt ;
Const nbr = 5 ;
Var i : integer ;
nombre : real ;
racine : real ;
Begin
clrscr ;
writeln (' Bonjour ') ;
writeln (' Je vais vous calculer ', nbr ,' racines carr‚es ') ;
for i := 1 to nbr do begin ;
write (' Donnez un nombre : ') ;
readln ( nombre ) ;
if nombre < 0 then
writeln (' Pas de racine pour ce nombre ! ')
else begin
racine := sqrt ( nombre ) ;
writeln ( nombre , ' a pour racine ', racine ) ;
end ;
end ;
writeln (' Merci ! ') ;
readln ;
end .
{***********
* Exemple 2
***********}
Program exemple_2 ; { on doit tj commencer un program pas le mot program }
Uses crt ; { permet d introduire par apres le clrscr }
var i : integer ;
t : integer ;
Begin { debut du program }
clrscr ;
writeln (' Donnez moi un nombre : ') ;
readln ( i ) ;
t := sqr ( i ) ;
writeln (' le resultat est ',t ) ;
writeln (' Merci ! ') ;
readln ;
end .
program exercice_3 ;
Uses crt ;
var i,t,r : integer ;
u : real ;
begin
clrscr ;
textcolor (yellow) ;
write ('Bonjour donnez moi un nombre : ') ;
readln (i) ;
write ('Donnez moi un 2 eme nombre : ') ;
readln (t) ;
readln ;
textcolor (green) ;
r := i+t ;
writeln (i,'+',t,'=',r ) ;
readln ;
r := i-t ;
writeln (i,'-',t,'=',r ) ;
readln ;
r := i*t ;
writeln (i,'*',t,'=',r ) ;
readln ;
u := i div t ;
writeln (i,'/',t,'=',u ) ;
readln ;
r := i mod t ;
textcolor (yellow) ;
writeln ('le reste de la division de ',i,' par ',t,' est ',r ) ;
readln ;
writeln ('*** Merci d''avoir utilise ce program *** ') ;
readln ;
end .
program exercice_3 ;
Uses crt ;
var i : real ;
t : integer ;
begin
clrscr ;
textcolor (yellow) ;
write ('Bonjour donnez moi un nombre : ') ;
readln (i) ;
textcolor (green) ;
t := trunc (i) ;
writeln ('La partie entiere du nombre ',i:6:2,' est ',t ) ;
readln ;
t := round (i) ;
writeln ('L''entree la plus proche de ',i:6:2,' est ',t) ;
readln ;
textcolor (yellow) ;
writeln ('*** Merci d''avoir utilise ce program *** ') ;
readln ;
end .
program ex_char ;
Uses crt ;
var lettre : char ;
i : integer ;
begin
clrscr ;
write ('Bonjour choisissez un caractere : ') ;
readln (lettre) ;
writeln ('Merci la lettre vaut ',ord(lettre) ) ;
readln ;
write ('Donnez moi un nombre : ') ;
readln (i) ;
writeln ('Merci le nombre vaut ',chr (i) ) ;
readln ;
end .
program ex_char ;
Uses crt ;
var t : integer ;
i : integer ;
begin
clrscr ;
textcolor (yellow) ;
write ('Bonjour donnez moi un nombre : ') ;
readln (i) ;
writeln ('Voici les ',i,' premier caracteres : ') ;
for t:=1 to i do begin
writeln (t,' : ', chr (t) ) ;
readln ;
end ;
end .
program exercice_2 ;
Uses crt ;
var i : integer ;
t : integer ;
begin
clrscr ;
writeln (' Bonjour donnez moi un nombre : ') ;
readln (i) ;
t := abs (i) ;
writeln (' Le resultat de votre valeur absolue est ',t ) ;
readln ;
writeln (' *** Merci d''avoir utilise ce program *** ') ;
readln ;
end .
program ifelse;
uses crt;
var a,b,max : integer;
begin
clrscr;
write ('Donnez un entier : ');
readln (a);
write ('Donnez un second entier : ');
readln (b);
if a<b then begin
max:=b;
writeln ('Croissant')
end
else begin
max:=a;
writeln ('D‚croissant');
end;
writeln ('Le maximum est : ', max);
readkey;
end.
program ifelse;
uses crt;
var a,b,max : integer;
begin
clrscr;
write ('Donnez un entier : ');
readln (a);
write ('Donnez un second entier : ');
readln (b);
if a<b then begin
max:=b;
writeln ('Croissant');
end;
if a>b then begin
max:=a;
writeln ('D‚croissant');
end;
if a=b then begin
max:=a;
writeln ('Egaux');
end;
writeln ('Le maximum est : ', max);
readkey;
end.
program ifelse;
uses crt;
var a,b : integer;
begin
clrscr;
write ('Donnez 2 entiers ');
readln (a);
readln (b);
if a<b then
writeln ('Croissant')
else
writeln ('D‚croissant');
readkey;
end.
program exelimite1;
uses crt;
var a,b,c:integer;
begin
clrscr;
write ('Entrez la limite inf‚rieure: ');
readln (a);
write ('Entrez la limite sup‚rieure: ');
readln (b);
writeln ('-----------------------------------------------');
for c:=a to b do
begin
if (c mod 5 = 0) then
writeln (c:4)
else
write (c:3);
end;
readkey;
end.
program minus;
uses crt;
var car:char;
i,temp,n:integer;
begin
clrscr;
n:=1;
write ('Donnez une minuscule : ');
readln (car);
temp:=ord(car);
for i:=97 to temp do begin
writeln (chr(i):n);
n:=n+1
end;
readkey;
end.
program nombre_premier;
uses crt;
var n,i,flag:integer;
begin
clrscr;
repeat
repeat
write ('Donnez un entier positif (0 pour sortir): ');
readln (n);
until n>=0;
for i:=2 to n-1 do
begin
if n mod i = 0 then
begin
writeln (n, ' n''est pas premier. Il est divisible par ', i);
flag:=1;
break;
end;
end;
if flag<>1 then
begin
writeln (n, ' est un nombre premier');
end;
until n=0;
readkey;
end.
program note2;
uses crt;
var m :integer;
note, s1, reponse:real;
begin
clrscr;
m:=0;
s1:=0;
repeat
m:=m+1;
write ('Donnez la note ', m, ' (0 pour finir) : ');
readln (note);
if (note<0) then
m:=m-1
else
s1:=s1+note;
until note=0;
writeln ('-------------------------------');
reponse:=s1/(m-1);
write ('Moyenne des ', m-1, ' notes : ', reponse:0:2);
readkey;
end.
program prg_1;
uses crt;
var n : integer;
begin
clrscr;
write ('Donnez un entier : ');
readln (n);
writeln ('Merci pour ',n);
readkey;
end.
program prix_article;
uses crt;
var j,q,t:integer;
prix,totalht,totalv,tva,totalttc:real;
taux:char;
begin
clrscr;
j:=1;
textcolor (white);
repeat
writeln ('-------------------------------------');
repeat
write ('Quantit‚ article ',j, ' : ');
readln (q);
until q >= 0;
if q<>0 then begin
repeat
write ('Prix de vente article ', j, ' : ');
readln (prix);
until prix > 0;
totalht:=q*prix;
totalv:=totalv+totalht;
writeln ('TOTAL article ', j, ' : ', totalht:0:2);
j:=j+1;
end;
until q = 0;
writeln ('-------------------------------------');
writeln ('TOTAL vente HTVA : ', totalv:0:2);
repeat
writeln ('Entrez le taux de TVA ');
write ('(A=0% - B=15% - C=21%) : ');
readln (taux);
until (taux='A') or (taux='a') or (taux='B') or (taux='b') or (taux='C') or (taux='c');
case taux of
'A', 'a': begin
tva:=totalv*0;
t:=0;
end;
'B','b': begin
tva:=totalv*0.15;
t:=15;
end;
'C','c': begin
tva:=totalv*0.21;
t:=21;
end;
end;
writeln ('TVA (',t:2, '%) : ', tva:0:2);
writeln ('-------------------------------------');
totalttc:=totalv+tva;
writeln ('TOTAL TTC : ', totalttc:0:2);
writeln ('-------------------------------------');
readkey;
end.
program rectangle;
uses crt;
var l1,l2,r1,r2:integer;
begin
clrscr;
write ('Longueur : ');
readln (l1);
write ('Largeur : ');
readln (l2);
r1:=l1*l2;
r2:=(l1+l2)*2;
writeln ('Surface du rectangle de dimension ', l1:3, ' et ', l2, ' : ', r1);
writeln ('P‚rimŠtre du rectangle de dimension ', l1, ' et ', l2, ' : ', r2);
readkey;
end.
program remise;
uses crt;
var prix,a,b,c,d,e,f,g,h:real;
begin
clrscr;
writeln ('CALCUL DE REMISE DE 10% 20% 30% 40%');
writeln ('-----------------------------------');
write ('Donnez un prix : ');
readln (prix);
writeln ('Montant 10% 20% 30% 40%');
writeln ('------- --- --- --- ---');
a:=prix*0.1;
b:=prix*0.2;
c:=prix*0.3;
d:=prix*0.4;
writeln (prix:7:2, a:8:2, b:8:2, c:8:2, d:8:2);
e:=prix-a;
f:=prix-b;
g:=prix-c;
h:=prix-d;
writeln (prix:7:2, e:8:2, f:8:2, g:8:2, h:8:2);
readkey;
end.
program repeatuntil3;
uses crt;
var i, n:integer;
begin
clrscr;
repeat
write ('Donnez un nombre compris entre 1 et 15 : ');
readln (n);
until (n>=1) and (n<=15);
for i:=1 to n do begin
writeln (i:2, ' au carr‚ = ', sqr(i));
end;
readkey;
end.
program repeatuntil3;
uses crt;
var i, n:integer;
begin
clrscr;
repeat
write ('Donnez un nombre compris entre 1 et 15 : ');
readln (n);
until (n>=1) and (n<=15);
i:=0;
repeat
i:=i+1;
writeln (i:2, ' au carr‚ = ', sqr(i));
until i = n;
readkey;
end.
program repeatuntil5;
uses crt;
var i,y,n:integer;
begin
clrscr;
repeat
write ('Donnez un nombre positif inf‚rieur … 11 : ');
readln (n);
until (n>=1) and (n<11);
for y:=1 to n do
begin
writeln ('');
for i:=1 to n do
begin
write ('+');
end;
end;
readkey;
end.
program repeat6;
uses crt;
var m :integer;
note, s1, reponse:real;
begin
clrscr;
m:=0;
s1:=0;
repeat
m:=m+1;
write ('Donnez la note ', m, ' (0 pour finir) : ');
readln (note);
s1:=s1+note;
until note=0;
writeln ('-------------------------------');
reponse:=s1/m;
write ('Moyenne des ', m, ' notes : ', reponse:0:2);
readkey;
end.
program repeatuntil3;
uses crt;
var i, n:integer;
begin
clrscr;
repeat
write ('Donnez un nombre compris entre 1 et 15 : ');
readln (n);
until (n>=1) and (n<=15);
for i=1 to n do begin
writeln (i, ' au carr‚ = ', sqr(i));
i=i+1
end;
readkey;
end.
program repeatuntil;
uses crt;
var n:integer;
begin
clrscr;
repeat
write ('Donnez un nombre positif : ');
readln (n);
until (n>=0);
writeln ('Merci pour ', n);
readkey;
end.
{*****Test*****}
Program test_2 ;
Uses crt ;
Var x,y,r,t : integer ;
u : real ;
Begin
clrscr ;
writeln ('Salut') ;
writeln ('On va faire une petite addition (x+y)') ;
writeln ('Donnez moi un nombre pour x :') ;
readln (x) ;
writeln ('Donnez moi un nombre pour y :') ;
readln (y) ;
r := (x)+(y) ;
writeln ('Le resultat est ',r) ;
writeln ('Merci de cliquer sur enter pour calculer la racine carree de ton resultat') ;
readln ;
t := sqr (r) ;
writeln ('Le resultat de la racine carree est ',t) ;
writeln ('Nous allons faire la racine de ce nombre') ;
readln ;
if t < 0 then
writeln ('Dsl il n'' y a pas de racine pour ce nombre :/') ;
u := sqrt (t) ;
writeln ('La racine carree de votre nombre est ',u) ;
readln ;
writeln ('*** Merci d'' avoir utilise ce program ***') ;
readln ;
End .
program triangle;
uses crt;
var b,h,r:real;
begin
clrscr;
write ('Base du triangle : ');
readln (b);
write ('Hauteur du triangle : ');
readln (h);
r:=(b*h)/2*;
writeln ('Surface du triangle : ', r:2:2);
readkey;
end.
program taxation;
uses crt;
var ht,ttc,taxe:real;
taux:char;
begin
clrscr;
write ('Donnez le montant HORS TAXE : ');
readln (ht);
writeln ('Choisissez le taux de taxation : ');
writeln ('A : 7% B : 12.32% C : 15.6 D : 21%');
write ('Votre choix : ', taux);
readln (taux);
writeln ('---------------');
case taux of
'A','a' : begin
taxe:=ht/100*7;
ttc:=taxe+ht;
writeln ('Taxe : ', taxe:1:3);
writeln ('Total : ', ttc:1:3);
writeln ('---------------');
end;
'B','b' : begin
taxe:=ht/100*12.32;
ttc:=taxe+ht;
writeln ('Taxe : ', taxe:2:3);
writeln ('Total : ', ttc:1:3);
writeln ('---------------');
end;
'C','c' : begin
taxe:=ht/100*15.6;
ttc:=taxe+ht;
writeln ('Taxe : ', taxe:2:3);
writeln ('Total : ', ttc:1:3);
writeln ('---------------');
end;
'D','d' : begin
taxe:=ht/100*21;
ttc:=taxe+ht;
writeln ('Taxe : ', taxe:2:3);
writeln ('Total : ', ttc:1:3);
writeln ('---------------');
end;
end;
readkey;
end.
program while1;
uses crt;
var n,s:integer;
begin
clrscr;
s:=0;
while (s<100) do begin
write ('Donnez un nombre : ');
readln (n);
s:=s+n;
end;
writeln ('s=', s);
readkey;
end.
|
|
|
|
|
|
|  |