Program information;
var age:Integer;
nom:String;
Begin
Write('donner votre nom:');
Readln(nom);
Write('donner votre age:');
Readln(age);
Writeln('Bonjour ',nom,' tu as ',age,' ans.');
Readln;
end.
Program soustraction;
var A,B:Real;
P,S:Real;
Begin
writeln('donner deux nombre:');
readln(A,B);
P:=A*B;
S:=A-B;
Writeln('la multiplication est :',P);
Writeln('la soustraction est :',S);
readln;
end.
Program soustraction;
var A,B:Real;
Begin
writeln('donner deux nombres');
Readln(A,B);
if A<B Then
WriteLn(B,' le plus grand')
else
WriteLn(A,' le plus grand');
readln;
end.
Program Plus_grand_nombre;
var A, B, C :Integer;
Begin
writeln ('Donner trois nombres A, B et C ') ;
Readln (A, B, C) ;
if (A > B) then
begin
if (A > C) then
writeln ('Le plus grand nombre est : ', A)
else
writeln ('Le plus grand nombre est : ', C) ;
End
Else
Begin
if (B > C) then
writeln ('Le plus grand nombre est : ', B)
Else
writeln ('Le plus grand nombre est : ', C) ;
End;
readln;
end.
program Nbre_Jours;
var
m :string;
BEGIN
Writeln('donner un mois');
Readln(m);
case m of
'Janvier' : writeln('le nombres des jours est 31') ;
'Février' : writeln('le nombres des jours est 31') ;
'Mars' : writeln('le nombres des jours est 31') ;
'Avril' : writeln('le nombres des jours est 31') ;
'Mai' : writeln('le nombres des jours est 31') ;
'Juin' : writeln('le nombres des jours est 31') ;
'Juillet' : writeln('le nombres des jours est 31') ;
'Août' : writeln('le nombres des jours est 31') ;
'Septembre' : writeln('le nombres des jours est 31') ;
'Octobre' : writeln('le nombres des jours est 31') ;
'Novembre' : writeln('le nombres des jours est 31') ;
'Décembre' : writeln('le nombres des jours est 31') ;
Else
WriteLn ('Erreur, Tapez un mois correct') ;
end;
END.
Program Prix;
var PH, TTC :real;
C:Char;
Begin
writeln ('Donner le prix hore taxe ') ;
Readln (PH) ;
writeln ('Donner la categorie ') ;
Readln (C) ;
case C of
'A' : TTC:= PH*(1+7/100);
'B' : TTC:= PH*(1+20/100);
'C' : TTC:= PH*(1+25/100) ;
Else
WriteLn ('Erreur,categorie incorrect');
end;
WriteLn ('le prix TTC =', TTC);
readln;
end.
Program Calculatrice;
Var op:Char;
A,B,S:real;
Begin
WriteLn('donner deux nombres:');
Readln(A,B);
writeln ('Donner l"opperateure: ') ;
Readln (op) ;
case op of
'+' : S:=A+B;
'-' : S:=A-B;
'*' : S:=A*B;
'/' : if B=0 then Writeln('division impossible ') else S:=A/B;
Else
WriteLn ('Erreur,opperateur incorrect');
end;
WriteLn (A,op,B,'=',S);
readln;
end.
Program Etat_Eau;
Var
T: Real;
Begin
Writeln('donner donner la temperature :');
Readln(T);
If T<0 Then
Writeln('etat GLACE')
Else
Begin
If (T>0) And (T<100) Then
Writeln('etat EAU')
Else
WriteLn('etat VAPEUR');
end;
Readln;
End.