Untitled
unknown
plain_text
2 years ago
819 B
4
Indexable
program perhitungan_aritmatika; {deklarasi} var input_satu,input_dua,hasil:integer; hasil_bagi:real; begin write('input 1 =');readln(input_satu); write('input 2 =');readln(input_dua); hasil:=input_satu+input_dua; writeln('penjumlahan ',input_satu,' + ',input_dua,' = ',hasil); hasil:=input_satu-input_dua; writeln('pengurangan ',input_satu,' - ',input_dua,' = ',hasil); hasil:=input_satu*input_dua; writeln('perkalian ',input_satu,' * ',input_dua,' = ',hasil); hasil_bagi:=input_satu/input_dua; writeln('pembagian ',input_satu,' / ',input_dua,' = ',hasil_bagi); hasil:=input_satu div input_dua; writeln('pembagian integer ',input_satu,' Div ',input_dua,' = ',hasil); hasil:=input_satu mod input_dua; writeln('sisa bagi ',input_satu,' Mod ',input_dua,' = ',hasil); end.
Editor is loading...