program ex9page69;
uses wincrt;
var
  a, b : word;
begin
  writeln('Donner 2 entiers positifs <999 :');
  write('a='); readln(a);
  write('b='); readln(b);
  writeln;
  writeln(a:6);
  writeln(' x ', b:3);
  writeln('........');
  writeln('= ', a*b:4);
  writeln; writeln;
  writeln(a:3, ' : ', b);
  writeln(a mod b : 3, ' :....');
  writeln(': ':6, a div b);
  writeln(': ':6);
end.

Sachant que :

• 1 jour = 86 400 s
• 1 heure = 3 600 s
• 1 minute = 60 s

Algorithme :

0) Début conversion
1) Écrire("Donner un temps en seconde : "), Lire(temps)
2) jours    ← temps div 86400
3) heures   ← (temps mod 86400) div 3600
4) minutes  ← (temps mod 3600)  div 60
5) secondes ← temps mod 60
6) Écrire("jours=", jours, " heures=", heures,
          " minutes=", minutes, " secondes=", secondes)
7) Fin conversion

Méthode 1 — Avec mod et div

Préanalyse :

• But : afficher la somme des 3 chiffres d'un entier
• Données : n
• Formules :
  • c ← n div 100
  • d ← (n mod 100) div 10
  • u ← n mod 10
  • s ← u + d + c

Analyse :

Nom : Somme
Résultat = Écrire(" la somme de 3 chiffres est = ", s)
s ← u + d + c
c ← n div 100
d ← (n mod 100) div 10
u ← n mod 10
n = donnée("Donner un entier composé de 3 chiffres :")
Fin Somme

T.D.O (Tableau de Déclaration des Objets) :

Algorithme :

0) Début Somme
1) Écrire("Donner un entier composé de 3 chiffres :"), Lire(n)
2) c ← n div 100
3) d ← (n mod 100) div 10
4) u ← n mod 10
5) s ← u + d + c
6) Écrire(" la somme de 3 chiffres est = ", s)
7) Fin Somme

Traduction en Pascal :

Program somme;
uses wincrt;
var
  n, u, d, c, s : integer;
Begin
  writeln('Donner un entier composé de 3 chiffres :');
  readln(n);
  c := n div 100;
  d := (n mod 100) div 10;
  u := n mod 10;
  s := u + d + c;
  writeln(' la somme de 3 chiffres est = ', s);
end.

Méthode 2 — Avec convch et valeur

Préanalyse :

• But : afficher la somme des 3 chiffres d'un entier
• Données : n
• Formules :
  • convch(n, ch)
  • valeur(ch[1], c, e), valeur(ch[2], d, e), valeur(ch[3], u, e)
  • s ← u + d + c

Analyse :

Nom : Somme
Résultat = Écrire(" la somme de 3 chiffres est = ", s)
s ← u + d + c
valeur(ch[1], c, e)
valeur(ch[2], d, e)
valeur(ch[3], u, e)
convch(n, ch)
n = donnée("Donner un entier composé de 3 chiffres :")
Fin Somme

T.D.O :

Algorithme :

0) Début Somme
1) Écrire("Donner un entier composé de 3 chiffres :"), Lire(n)
2) convch(n, ch)
3) valeur(ch[1], c, e)
4) valeur(ch[2], d, e)
5) valeur(ch[3], u, e)
6) s ← u + d + c
7) Écrire(" la somme de 3 chiffres est = ", s)
8) Fin Somme

Traduction en Pascal :

Program somme;
uses wincrt;
var
  n, u, d, c, s, e : integer;
  ch : string[3];
Begin
  writeln('Donner un entier composé de 3 chiffres :');
  readln(n);
  str(n, ch);
  val(ch[1], c, e);
  val(ch[2], d, e);
  val(ch[3], u, e);
  s := u + d + c;
  writeln(' la somme de 3 chiffres est = ', s);
end.

program surface;
uses wincrt;
const
  pi = 3.14;
var
  r, s : real;
begin
  writeln('Donner le rayon du cercle =');
  readln(r);
  s := pi * r * r;
  writeln('La surface du cercle est = ', s:7:3);
end.

PROGRAM DATE;
USES WinCrt, WinDos;
VAR
  a, m, j : WORD;
BEGIN
  WRITE('Entrez l''année : '); READLN(a);
  WRITE('Entrez le mois : '); READLN(m);
  WRITE('Entrez le jour : '); READLN(j);
  SetDate(a, m, j);
END.

program creer_repertoire;
uses wincrt, dos;
var
  chemin : string;
begin
  write('Entrer le chemin complet du répertoire à créer : ');
  readln(chemin);
  MkDir(chemin);
  writeln('Répertoire ', chemin, ' créé avec succès.');
end.