Untitled

mail@pastecode.io avatar
unknown
plain_text
23 days ago
819 B
1
Indexable
Never
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.