Program Skor Beladiri (pascal)

uses crt;
var
jumlahpukul, jumlahtendang, nilai:integer;

begin
  write('Jumlah pukulan:');
  read(jumlahpukul);
  write(' Jumlah tendangan:');
  read(jumlahpukul);
  nilai:= jumlahpukul*jumlahtendang;
  if nilai<=33 then
  writeln(‘Maaf, nilai tidak cukup, tidak boleh ikut turnamen);
  write('Nilai yang diperoleh sebesar:',nilai);
End.


Share on Google Plus

About Mustafa RF

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.
    Blogger Comment
    Facebook Comment