Tugas_3_Aplikasi_buatan_pascal

Tugas_3_Aplikasi_buatan_pascal

Maret 02, 2018
1.Aplikasi Pengurut Bintang

 
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

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

1
2
3
4
5
6
7
8
9
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 : Monika Aini
Nim    : 201712026
Kelas  : Reguler A
Next
« Prev Post
Previous
Next Post »
Thanks for your comment
Langganan: Posting Komentar (Atom)