Bonjour tout le monde ,
je suis debutant en Pascal et je veux savoir le résultat de ce code et merci :
Question : Exécuter le programme en Pascal suivant et donner les valeurs finales de C et D :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program calculproduit;
 
var a, b, c, d : real;
 
procedure pproduit (x, y : real; var z : real);
begin
 z := x * y;
end;
 
function  fproduit (x, y : real) : real;
begin
 z := x * y;
end;
 
begin
 write ('Donner une valeur à A :  ');   readln (a);
 write ('Donner une valeur à B :  ');   readln (b);
 pproduit (a, b, c);
 d := fproduit (a-1, b+1);
 writeln ('C = ', c, ' D = ', d);