Program en TurboPascal

[IMehdi]

Que fait ce program?

program cal;
usescrt;
var
n:real;
r:real;
s:char;
begin
clrscr;
textcolor(10);_____________________________________la couleur de le MATRIX
writeln('Calculatrice');
readln(i);
readln(s);
readln(r):
IF s='*' THEN
begin
writeln(',i*r,);
end;
ELSE
IF s='/' THEN
begin
writeln(',i/r,);
end;
ELSE
IF s='+' THEN
begin
writeln(',i+r,);
end;
ELSE
IF s='-' THEN
begin
writeln(',i-r,);
end;
end.

[Freddy]

Il sert à calculer de opérations simples mais je pense qu'il faut donner plus d'indication à l'utilisateur...

[Freddy]

petite réctifications:

program cal;
usescrt;
var
i:real;
r:real;
s:char;
begin
clrscr;
textcolor(10);_____________________________________la couleur de le MATRIX
writeln('Calculatrice');
writeln('donner un nombre');
readln(i);
writeln('donner un second nombre');
readln(s);
writeln('vouler vous les multipliers(*),les additionner(+),les soustraires(-) ou les divisers(/)');
readln(r):
IF s='*' THEN
begin
writeln(',i*r,);
end;
ELSE
IF s='/' THEN
begin
writeln(',i/r,);
end;
ELSE
IF s='+' THEN
begin
writeln(',i+r,);
end;
ELSE
IF s='-' THEN
begin
writeln(',i-r,);
end;
end.

[CarFan]

Sympa comme programme !

[kasamam]

Bah bonjour à tous g une petite remarque pour ce programme, au moment où tu mets READLN, jpense que tu dois inverser le r et le s. Voilà :p

['enzo°°]

symmmmpa tout ca (rien a ecrire)

[Contenu sponsorisé]