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.
Skrip yang digunakan cukup sederhana
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.
Sintaksnya mudah kok,silahkan dipelajari
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.
Out Of Topic Show Konversi KodeHide Konversi Kode Show EmoticonHide Emoticon