Tugas Praktik Algoritma Modul 1 STIKI

Yak Perknalkan saya ADMIN-M Akan menshare jawaban Di kelas SK (A) eitt USAHAKAN JANGAN SAMPAI SAMA DENGAN TEMAN KALIAN !!! IYUHH....

TUGAS

1. Buatlah program pascal untuk menentukan hasil penjumlahan dan pengurangan dari 2 bilangan bulat !
jawab :

program Hitung;
uses crt;
var 
   a, b, tambah, kurang : integer;
begin
clscr;
    write ('masukan bilangan pertama : ' ); readln (a);
    write ('masukan bilangan kedua : ' ); readln (b);
              tambah := a + b;
              kurang := a - b;
    writeln ('hasil penjumlahan ',a,' + ' ,b,'=',tambah);
    writeln ('hasil pengurangan ',a,' - ' ,b,'=',kurang);
   readln;
end.

2. Buatlah program pascal yang menerima sebuah masukan dan menampilkan hasil kuadrat dari bilangan masukan !
jawab :

program Kuadrat;
uses crt;
var
  hasil,bil :integer;

   begin
   clrscr; 
     write ('masukan panjang :'); readln (bil);
     hasil := bil * bil ;
    writeln ('hasil kuadrat ', bil,'=',hasil);
    readln;
end.


3. Buatlah program pascal yang menerima 2 buah masukan bilangan bulat untuk menghitung keliling persegi panjang !
jawabnya :

program keliling_persegi_panjang;
uses crt;
var
  hasil,p,l : integer;
begin 
clrscr;
  write ('masukan panjang :'); readln (p);

     write ('masukan lebar :'); readln (l);
     hasil := 2* (p+l);
    writeln ('keliling :',hasil);
    readln;

NB: PAJAK DI TANGGUNG PEMENANG!!!

Share this :