Script untuk memilih operator dalam bilangan.
program Tutorial5_2;
Uses wincrt;
var
bilangan1,bilangan2:integer;
operator:char;
begin
writeln(‘masukan bilangan 1′); readln(bilangan1);
writeln(‘masukan bilangan 2′); readln(bilangan2);
writeln(‘pilih operator matematika yang anda inginkan:’);readln(operator);
case operator of
‘+’:begin
writeln(bilangan1,’+',bilangan2,’=',bilangan1+bilangan2,’.');
writeln(‘operasi penjumlahan’);
end;
‘_’:begin
writeln(bilangan1,’_',bilangan2,’=',bilangan1-bilangan2,’,');
writeln(‘operasi pengurangan’);
end;
‘*’:begin
writeln(bilangan1,’*',bilangan2,’=',bilangan1*bilangan2,’,');
writeln(‘operasi perkalian’);
end;
else
writeln(‘gunakan+,-,*,or/sebagai operator. coba lagi.’);
end;
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
