Program Berat

Jun 27, 2009 No Comments by Sahabat

Program Berat_badan ;

uses crt ;
var berat : integer ;
begin
write ( ‘ masukkan berat badan : ‘ ); readln (berat) ;
if berat > 37 then
writeln (‘berat’);
else
writeln ( ‘ kurus ‘ ) ;
readln ;
end.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Program Berat”

Leave a Reply

You must be logged in to post a comment.