tugas 3

menurut anda, aplikasi apa saja yang bisa dibuat oleh pascal ?

jawab :

1.Aplikasi Pengurut Bintang

Aplikasi Pengurut Bintang adalah aplikasi untuk mengurutkan dari satu bintang,dua bintang,tiga bintang,sampai jumlah bintang terakhir sesuai dengan jumlah yang kalian inginkan.

1 2 3 4 5 6 7 8 9 10 11 12

program bintang; uses wincrt; {Saya pakai Turbo Pascal for Windows 1.5} var a,b,c:integer; {Variabel a,b,c saya set ke integer} begin write('Masukkan Jumlah Bilangan..'); readln(c); for a:=1 to c do begin for b:=1 to a do write('*'); writeln; end; end.

2.Aplikasi Penentu Segitiga

Aplikasi ini digunakan untuk menentukan Jenis Segitiga yang ingin diketahui,dilihat dari panjang sisi A,sisi B,dan sisi C nya. 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

program penentu_segitiga; uses wincrt; var a,b,c,i,j:integer; begin write('Masukkan Panjang Sisi A..'); readln(a); write('Masukkan Panjang Sisi B..'); readln(b); write('Masukkan Panjang Sisi C..'); readln(c); i:=sqr(c); j:=sqr(a) + sqr(b); if (i<j) then writeln('Segitiga Lancip') else if (i=j) then writeln('Segitiga Siku Siku') else writeln ('Segitiga Tumpul') end.

3.Aplikasi Segitiga Pythagoras

program pythagoras;

uses wincrt;

var a,b,c:integer;

begin

write('Masukkan Panjang Sisi A..'); readln(a);

write('Masukkan Panjang Sisi B..'); readln(b);

c:=a*a+b*b {Bisa juga dengan 'c:=sqr(a) + sqr(b);'}

writeln('Panjang Sisi C adalah..',sqrt(c));

end.

Nama : arisa

Nim : 201712006

Kelas : reguler A/ semester 2

Share :

Tweet

✚

Related Post