TI

Pertanyaan

Bantuin ya Program free pascal
Jangan ngasal
Bantuin ya Program free pascal Jangan ngasal

0 Comment.

1 Jawaban

  • var 
    panjang,lebar:integer; 
    luas,keliling : real; 
    begin 
    writeln ('   Menghitung Luas dan Keliling Persegi Panjang '); 
    writeln (' '); 
    write ('Masukan Panjang : ');readln (panjang); 
    write ('Masukan Lebar   : ');readln (lebar); 
    luas := panjang*lebar; 
    keliling := 2*(panjang+lebar); 
    writeln (' '); 
    writeln ('Jadi Luasnya adalah    ', luas:1:1 , ' cm'); 
    writeln ('dan kelilingnya adalah ', keliling:1:1 , ' cm'); 
    readln; 
    end.

Pertanyaan Lainnya