ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
l,k,
Language: C/C++
Code:
l,k,
Language: C/C++
Code:
Program operation ;
uses wincrt ;
var msg , chr , opr :string ;
a , b , R : integer ;
begin
writeln (' donner une operation ') ;
readln (opr) ;
if opr := ' multiplication ' then msg := 'vous avez choisi une moltiplication et le resultat est :' ' ;
R := a * b ;
else if opr := ' addition ' then msg :=' vous avez choisi une addition et le resultat est :' ' ;
R := a + b ;
else if opr := ' division ' then msg := ' vous avez choisi une division et le resultat est: ' ;
R := a /b ;
else if opr := ' soustraction ' then msg := ' vous avez choisi une soustraction et le resultat est : ' ;
R := a - b
end ;
str ( R , chr ) ;
insert ( chr , msg )
end .
uses wincrt ;
var msg , chr , opr :string ;
a , b , R : integer ;
begin
writeln (' donner une operation ') ;
readln (opr) ;
if opr := ' multiplication ' then msg := 'vous avez choisi une moltiplication et le resultat est :' ' ;
R := a * b ;
else if opr := ' addition ' then msg :=' vous avez choisi une addition et le resultat est :' ' ;
R := a + b ;
else if opr := ' division ' then msg := ' vous avez choisi une division et le resultat est: ' ;
R := a /b ;
else if opr := ' soustraction ' then msg := ' vous avez choisi une soustraction et le resultat est : ' ;
R := a - b
end ;
str ( R , chr ) ;
insert ( chr , msg )
end .
Comments: