program Project1;
// Série 1, exercice 1.2
// Calacule l'aire d'un cercle d'un rayon donné
const
  PI = 3.1415926535;
var
  vRayon : double;
  vAire  : double;
begin
vRayon := 7.0;
vAire  := PI * vRayon * vRayon;
writeln('Le disque de rayon : ', vRayon:8:3, ' à une aire de : ', vAire:9:3);
end.

program Project1;
// Série 1, exercice 1.3
// Demande le nom et prénom, puis affiche un message de bienvenue
var
  strNom : string;
  chSexe   : char;

begin
write('Bonjour, quel est votre nom ? ');
readln(strNom);
write('Êtes-vous de sexe masculin ou féminin (m/f) ? ');
readln(chSexe);
if (chSexe = 'm') then
   writeln('Bonjour ', strNom, ' soyez le bienvenu.')
else
     writeln('Bonjour ', strNom, ' soyez la bienvenue.');
end.

program Project1;
// Série 2, exercice 2.1
// Un programme qui affiche le livret de multiplication de 1 jusqu’à 10 pour un chiffre donné.
// Affiche le résultat dans la console pour chaque itération.
const
  MAX = 10;
var
  nLigne   : integer; // Pour parcourir les lignes de la table de multiplication
  nColonne : integer; // Pour parcourir les colonnes de la table de multiplication
begin
// Boucle sur les lignes
for nLigne:=1 to MAX do begin
  // Boucle sur les colonnes
  for nColonne:=1 to MAX do begin
    write(nLigne*nColonne:4);
    end;
  writeln; // Passe à la ligne suivante.
  end;
end.

program Project1;
// Série 2, exercice 2.2
// Approximez le nombre suivant via la somme suivante:
// x = 1/1^2 + 1/2^2 + 1/3^3 + 1/4^2 + 1/5^2 + ...
// Info : Pour faire une puissance avec des doubles, importez math et utilisez la fonction power(base, exposant);
// Précision, somme sur les 1000 premiers termes.
// Vers quoi cette somme converge-t-elle? (Problème de Basel)
// Légère modification de l'énoncé, la somme calculée est 1 de moins que celle de l'énoncé.

const
  MAX = 1000;
var
  vSumme   : Double;  // Le résultat de la somme
  nJ       : integer; // Pour parcourir les termes

begin
// Initialisation
vSumme:=0;

// Boucle sur les termes
for nJ:=1 to MAX do begin
  vSumme:=vSumme + 1 / (1.0 * nJ * nJ);
  end;

writeln('La somme des inverses des carrés des nombres de 1 à ', MAX, ' vaut : ',vSumme);
end.

Plan du Site : Home     Lazarus     lazarus_code.html ( = http://www.juggling.ch/gisin/program/lazarus/lazarus_code.html )

Page mise à jour le 18 janvier 2019 par Bernard Gisin     ( Envoyer un e-mail )
Hébergement par : www.infomaniak.ch