Aplikasi yang di buat dengan pascal

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.

Masih belum mengerti ? Mungkin bisa lihat gambar diatas.

Skrip yang digunakan cukup sederhana kok,silahkan dipelajari..

1. program bintang;

2. uses wincrt; {Saya pakai Turbo Pascal for Windows 1.5}

3. var a,b,c:integer; {Variabel a,b,c saya set ke integer}

4. begin

5. write('Masukkan Jumlah Bilangan..'); readln(c);

6. for a:=1 to c do

7. begin

8. for b:=1 to a do

9. write('*');

10.         writeln;

11.         end;

12.         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..

 

1. program penentu_segitiga;

2. uses wincrt;

3. var a,b,c,i,j:integer;

4. begin

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

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

7. write('Masukkan Panjang Sisi C..'); readln(c);

8. i:=sqr(c);

9. j:=sqr(a) + sqr(b);

10.         if (i<j) then

11.         writeln('Segitiga Lancip')

12.         else if (i=j) then

13.         writeln('Segitiga Siku Siku')

14.         else

15.         writeln ('Segitiga Tumpul')

16.         end.

3.Aplikasi Segitiga Pythagoras

Pernah belajar Teorema Pythagoras ? Itu lho rumus untuk mencari sisi miring sebuah segitiga siku siku.

Tertarik membuat aplikasinya ? Sangat mudah kok,apalagi jika menggunakan bahasa Pascal,berikut sintaksnya :

 

1. program pythagoras;

2. uses wincrt;

3. var a,b,c:integer;

4. begin

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

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

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

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

9. end.

Inilah beberapa aplikasi yang sudah saya buat secara cuma cuma di hari Minggu,bila tergolong sederhana,harap dimaklumi karena Desain Aplikasi Pascal tidak sebagus aplikasi Visual Basic.

NAMA : SAJUNARI

NIM : 201712064

KELAS : II REGULER A

 

Share :

Tweet

✚

Related Post