Membuat Program Sederhana Bilangan Terbesar Dan Password Pada Pascal

Membuat Program Bilangan Terbesar Di Pascal

Pertama masuk dulu ke software pascal untuk membuat program Bilangan Terbesar  ketik uses crt; itu gunanya  jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user). Setelah itu ketik Var a,b,c : Integer; itu adalah nama variabel akan di buat yaitu a, b dan c. Setelah itu ketik begin untuk mengawali program pascal. Kemudian ketik clrscr; yaitu untuk menghilangkan atau membersihkan layar di program pascal. Kemudian ketik write (‘ Input Nilai : ‘); readln (a); dan ketik lagi seperti itu untuk variabel yang “b” dan “c” nya itu. Write adalah instruksi untuk mencetak & parameter teks yang akan dicetak sedangkan readln adalah gunanya untuk mencetak lalu menambahkan Enter/baris baru (write and add new line, writeln berasal dari write + ln, ln merupakan singkatan dari line). Setelah sudah ketik lagi if (a>b) and (a>b) then write (‘Nilai Terbesar Adalah ‘,a) else if (b>c) then write (‘Nilai Terbesar Adalah ‘,b) else write (‘Nilai Terbesar Adalah ‘,c); ini menggunakan perintah sistem perulangan if then else if itu adalah sistem perulangannya yang di mana kita akan mencari nilai terbesar dari semua inputannya. Statement IF THEN atau ungkapan. Ungkapan adalah kondisi yang akan diseleksi oleh oleh statemen if. Jika kondisi yang diseleksi terpenuhi, maka statemen yang mengikuti then akan diproses sedangkan bila kondisi tidak terpenuhi, maka yang akan diproses adalah statemen berikutnya. Setelah sudah ketik readln; dan ketik end jangan lupa dikasih TitIk (.). dan jadiah suatu program Bilangan Terbesar
Biar lebih jelasnya lagi lihat gambar input dan outputnya di bawah ini :

Membuat Program Sederhana Dengan Memasukan Username dan password Di Pascal

Pertama masuk dulu ke software pascal lalu ketik uses crt; itu gunanya  jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user). Lalu ketik Var a: string; b : string; itu adalah nama variabel yang akan dibuat. Kemudian ketik clrscr; gunanya untuk membersihkan atau menghapus program yang sudah ada. Setelah sudah ketik write (‘Username : ‘); readln (a); dan write (‘Password : ‘) readln (b); Write adalah instruksi untuk mencetak & parameter teks yang akan dicetak sedangkan readln adalah gunanya untuk mencetak lalu menambahkan Enter/baris baru (write and add new line, writeln berasal dari write + ln, ln merupakan singkatan dari line).  setelah sudah ketik if (a=’Dingga’) itu untuk memberikan statement IF THEN and (b=’labsi’) then write (‘Anda Berhasil Login’) else write setelah sudah ketik readln; dan end.
Biar lebih jelasnya lagi lihat gambar input dan outputnya di bawah ini :

Membuat Program Sederhana Biodata Dan Aritmatika Pada Pascal

Membuat program biodata sederhana dengan pascal

 

Pertama tama kita masuk dulu ke software pascal setelah itu kita akan membuat program biodata sederhana dengan pascal pertama tama ketik dulu uses crt; itu gunanya  jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user). Kemudian  ketik lagi var Nama,npm,kelas : string; itu adalah nama variabel yang akan di buat yaitu nama, npm dan kelas. Selanjutnya kemudian ketik begin untuk mengawali program pascal. Kemudian ketik clrscr; yaitu untuk menghilangkan atau membersihkan layar di program pascal. Lalu ketik write (‘masukan nama :’); lalu ketik lagi readln (nama); begitu juga dengan ketikan selanjutnya seperti tadi namun di ganti saja dengan npm dan kelas. Write adalah instruksi untuk mencetak & parameter teks yang akan dicetak sedangkan readln adalah gunanya untuk mencetak lalu menambahkan Enter/baris baru (write and add new line, writeln berasal dari write + ln, ln merupakan singkatan dari line). Setelah sudah ketik lagi write (‘nama saya’); write (nama); write (‘dengan npm’); write (npm); write (‘dari kelas’); read (nama); read (npm); read (kelas); dan jangan lupa end. Kemudian jalankan program tersebut . selesai program biodata sederhana selesai.

Biar lebih jelasnya lihat gambar – gambar di bawah ini :

Membuat program sederhana aritmatika

 
Pertama tama terlebih dahulu masuk ke aplikasi pascalnya kemudian ketik crt user; itu gunanya  jika ingin menggunakan perintah ‘clrscr’ (perintah untuk membersihkan layar) dan ‘readkey’ (perintah untuk membaca masukan user). Kemudian ketik var a,b,c,d,e,g,h : integer; f: real; itu adalah nama vaiabel yang akan di buat untuk menjalankan program sederhana aritmatika. Kemudian ketik lagi begin untuk mengawali program pascal. Kemudian ketik clrscr; yaitu untuk menghilangkan atau membersihkan layar di program pascal. Kemudian ketik write (‘masukkan angka pertama’); readln (a) begitu juga dengan ketikan selanjutnya seperti tadi, itu adalah untuk meng input data yang akan di masukan. Kemudian ketik lagi c:=a+b; d:=a-b; e:=a*b; f:=a/b; g:=a mod b; itu adalah variabel yang akan di masukan agar menjadi pertambahan pekurangan perkalian pembagian dan modulo. Setelah selesai ketik lagi writeln; kemudian ketik lagi writeln (‘masukan penjumlahan : ‘,c);
Writeln (‘hasil pengurangan :’,d); writeln (‘hasil perkalian :’,e); writeln (‘hasil pembagian :’,f:0:2); writeln (‘hasil modulo :’,g); ketik lagi di bawahnya readln; kemudian ketik end. Selesai. Itu adalah untuk menampilkan outputtannya nanti.
Untuk lebih jelasnya lihat gambar – gambar dibawah ini :

MEMBUAT PENGINPUTAN NILAI DENGAN SISTEM PERULANGAN

Pertama gunakan CLS untuk menghilangkan tampilan, setelah itu ketik

DIM A, B AS INTEGER enter kemudian ketik lagi

FOR A = 1 TO 5 enter lagi, kemudian ketik lagi

FOR B = 1 TO A enter, kemudian ketik print B; setelah itu ketik NEXT B enter

Lalu ketik lagi PRINT kemudian ketik NEXT A.

Dim a,b, as integer itu adalah blok pernyataanya dan for a = 1 to 5 untuk membuat data 1 sampai lima

Dan  for b = 1 to a satunya itu angka dari satu sampai 5, A nya itu 5.

Kemudian print b; untuk mencetak hasil dari data di B, dan next a untuk melanjutkan data di A. dan inilah hasil input dan outputnya:

MEMBUAT SEGITIGA BINTANG QBASIC

Pertama gunakan CLS terlebih dahulu agar menghilangkan tampilan yang sudah dibuat tadi

Kemudian ketik DATA Y,X,C,L untuk data yang akan dimasukan, kemudian ketik

Y = 12 : X = 2 itu untuk memberikan beberapa banyak nilai yang akan dimasukan di data Y dan X, kemudian ketik FOR C = 1 to 10 itu untuk memberi masukan dari satu sampai sepuluh untuk data C, kemudian ketik FOR L = 1 to C, itu untuk memberikan nilai di data L,

Kemudian ketik LOCATE X,Y, itu gunanya untuk menempatkan tampilan pada posisi baris dan kolom di data X dan Y, lalu kemudian ketik PRINT (*); itu gunanya untuk memberikan tampilan bintang saat dicetak dan dilihat di output nanti, lalu ketik Y= Y + 2, itu untuk menambahkan nilai di data Y sudah dimasukan tadi, kemudian ketik NEXT L, itu bertujuan memberikan masukan kedalam lanjutan di data L yang terisi 1 TO C tadi, kemudian ketik

Y = 12, itu adalah data Y berisi 12, kemudian ketik X = X + 1, itu adalah data X ditambah satu, kemudian ketik Y = Y – C, itu untuk memberikan pengurangan pada nilai Y yang tadi berisi 12. Dan terakhir ketik END itu untuk memberikan perintah bahwa program sudah selesai di buat. Dan inilah contoh gambar input dan outputnya :   

 

CONTOH SEDERHANA MEMBUAT PROGRAM DENGAN STATEMENT DO WHILE LOOP

Pertama tama ketik CLS terlebih dahulu untuk menghilangkan statement – statement yang sudah dibuat tadi, kemudian ketik  DO WHILE I% <= 10, itu bertujuan memberikan perintah statement yang digunakan,  disini bertujuan memberikan perintah program I% <=10 itu adalah I% lebih dari sepeluh,

Setelah itu ketik PRINT I%; itu untuk memberikan perintah mencetak perintah I% yang tadi dibuat, kemudian ketik I% = I% +1 itu adalah I% ditambah satu, kemudian ketik

LOOP, itu adalah perintah dari akhirannya do while loop yang sedang dibuat, kemudian  ketik END, dimana itu adalah perintah selesai untuk membuat suatu program.

Dan inilah gambar input dan outputnya :

CARA MENGINPUT NAMA DAN ANGKA DI QBASIC

 Contoh Input program dari kalimat “HELLO WORLD”

Pertama – tama untuk memulai menginput nama sesuatu kita terlebih dahulu menginstall aplikasi qbasic dulu, setelah itu barulah kita menjalankan aplikasi itu dan menginput data yang kita inginkan seperti ini

Contoh :

 PRINT  “HELLO WORLD” 

 END

PENJELASAN  :

Print adalah statement yang digunakan untuk menampilkan nilai kelayar monitor

End adalah statement yang digunakan untuk tanda bila data yang dimasukkan sudah selesai.

Setelah sudah begitu tekan F5 untuk mengoutput data yang sudah dimasukkan. Kira – kira seperti inilah gambarannya :

Gambar inputan data diprogram qbasic.

Dan inilah gambar data yang sudah dioutput melalui program qbasic  dengan menekan F5.

Program perkalian dua variabel yang sederhana

Pertama – tama kita kita harus memulainya dengan mengetik CLS terlebih dahulu dan setelah itu barulah kita memasukkan data selanjutnya yang diinginkan.

Cara menginput data dengan angka berbeda dengan huruf kita harus memberi tambahan lagi seperti ini :

·         20 CLS

·         25 INPUT  “MASUKKAN ANGKA 1 = “, A

·         26 INPUT  “MASUKKAN ANGKA 2 = “, B

·         27 C = A * B

·         28 PRINT C

PENJELASAN :

CLS adalah statement yang digunakan untuk menghilangkan data yang sudah dimasukkan sebelumnya agar tidak menambah data yang tidak diinginkan.

INPUT adalah statement yang digunakan untuk memasukkan nilai dengan keyboard oleh user.

Dan inilah contoh gambar yang data yang dimasukkan tadi :

Dan inilah gambar yang sudah di output :

·         MASUKKAN ANGKA 1 = 10

·         MASUKKAN ANGKA 2 = 10

·         100