algoritma :
kamus
a,b,c: integer
operasi : char
algoritma
input(a)
input(b)
input(c)
case operasi of
'+' : c<-a+b
'-' : c <-a-b
'*' : c<-a*b
'/' : c <-a/b
end
output(c)
pascal
var
a,b,c:real;
operasi:char;
begin
write('angka pertama : '); readln(a);
write('masukan operator : '); readln(operasi);
write('angka kedua : '); readln(b);
case operasi of
'+':c:=a+b;
'-':c:=a-b;
'*':c:=a*b;
'/':c:=a/b;
end;
writeln('hasil dari operasi diatas adalah',c);
readln;
end.
sekian post dari saya, apabila anda ingin bertanya atau memiliki kritik saran dan masukan silahkan silahkan tulis dikolom komentar atau bisa klik CONTACT ME!!!
terima kasih atas kunjungan nya, silahkan berkunjung lain kali :))
Tidak ada komentar:
Posting Komentar