MEMBUAT PERKALIAN DENGAN 2 BILANGAN YANG DI INPUT & OUTPUT BINTANG(*) SEPERTI SEGITIGA TERBALIK PADA PROGRAM PASCAL

1.       Dengan mengkalikan 2 nilai

Uses crt;

-untuk menampilkan program pada layar monitor

Var a,b,c : integer;

-memberi variable a,b,c dengan tipe data integer;

Begin

-memulai program

Clrscr;

-membersihkan  layar pada program

Write(‘masukan angka : ‘);

-mencetak masukan angka

Readln(b);

-memasukan data yang kita inputkan pada variable b

Writeln;

-mencetak satu baris

Write(‘masukan angka : ‘);

-mencetak masukan angka

Readln(a);

-memasukan data yang kita inputkan pada variable a

Writeln;

-mecetak satu baris

For c:=1 to a do

-pada variable c sama dengan 1 sampai/ke variable 2 maka lakukan

Begin

-melanjutkan program

Writeln(b,’ x ‘,c,’ = ‘,c* b);

-memcetak satu baris variable b di kali atau lambang kali (X) sama dengan , dan hasil dari variable c dikali variable b

End;

-menutup statement fo to do

Readln;

-memasukan semua data

End.

-tutup program

Maka ketika di run di masukan angka pertama 11 dan angka selanjutnya 6 maka output akan keluar pada di bawah ini

2.ouput seperti segitga kebalik

Uses crt;

-untuk menampilkan pada layar monitor

Var a,b,c : integer;

-membuat variable a,b,c dengn tipe data integer

Begin

-memulai program

Clrscr;

-untuk membersihkan layar ketika program sedang di run

Write(‘masukan nilai : ‘);

-mencetak masukan nilai

Readln(a);

-memasukan data pada variable a

For b:=a downto 1 do

-untuk fariabel b sama dengan variable a , kebawah atau perulangan ke bawah hingga satu (1) lakukan

Begin

-memulai statement for do

For c:=1 to b do

-untuk variable c sama dengan satu sampai ke variable b lakukan

Write(‘*’);

-deengan mencetak bintang

Writeln;

-mencetak satu baris

End;

-menutup statment for do

Readln;

-memasukan semua data

End.

-selesai program

Ketika di run maka akan seperti gambar di bawah ketika kita input 7 maka yang ter oputput akan bintang sejumlah tujuh akan berukurang satu persatu hingga bintangnya hanya 1