Membuat perpangkatan tiga

1. Membuat perpangkatan tiga

Program pangkat3;

uses crt;

var a,n,c : integer;

begin

clrscr;

write(‘bilangan berapa di pangkatkan 3 =’);readln(n);

c:=1;

for a:=1 to 3 to

begin

c:=c*n;

write(‘ ‘,c);readln;

end;

end.

Kemudian klik Compile-compile (Alt+F9)

Kemudian klik Run-Run (Ctrl+F9)

Contoh pengisian :

bilangan berapa di pangkatkan 3: 3

Hasil muncul :

3

9

27

2. Membuat Sebuah Bintang

program s;

uses crt;

var n,i,j : integer;

begin

clrscr;

write('berapa banyak bintang=');readln(n);

for i:=1 to n do

begin

for j:=1 to i do

write('*');

readln;

end;

end.

Kemudian klik Compile-compile (F9)

Kemudian klik Run-Run (Ctrl+F9)

Contoh pengisian :

berapa banyak bintang=: 5

hasil :

*

**

***

****

*****