Program pascal SPP

Okeh semuanya kalian luar biasa telah mengunjungi blog saya semoga apa yang saya tampilkan dalam blog ini dapat bermanfaat bagi nusa, bangsa dan agama terimakasih.

program bayar_spp;

uses wincrt;

var

nomor, tanggal, bulan, tahun : integer;

nama, tempat : string;

bspp, biaya, bayar, sisa : real;

Read More

oke kali ini saya ingin berbagi tentang program pascal, tepatnya pada program sekolah.
silahkan di cek langsung ke TKP :D

1.Listing Program
program sekolah;
uses wincrt;
var
   pilihan : string;
   again : char;

procedure datasiswa;

var
   nama,jns,tempat,alamat,asalsekolah,tkelas : string;
   tgl,bln,thn:integer;
   nis:longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Siswa');
     writeln('______________________________________________');
     writeln;
     write('NIS                  : ');readln(nis);
     write('Nama                 : ');readln(nama);
     write('Jenis Kelamin        : ');readln(jns);

     if (jns='Laki-Laki') or (jns='LAKI-LAKI') or (jns='PEREMPUAN')
     or (jns='laki-laki') or (jns='perempuan') or (jns='Perempuan')
     or (jns='pria') or (jns='Pria') or (jns='PRIA')
     or (jns='wanita') or (jns='Wanita') or (jns='WANITA') then
     begin
     write('Tempat Lahir         : ');readln(tempat);
     write('Tanggal Lahir (masukan angka)       : ');readln(tgl);

     case tgl of          
     1..31:begin
            write('Bulan Lahir (masukan angka)         : ');readln(bln);
            end;
     end;

     case bln of
     1..12:begin
            write('Tahun Lahir (4 dijit angka)         : ');readln(thn);
            end;
     end;

     case thn of
     1990..2000:begin
                write('Alamat               : ');readln(alamat);
                write('Asal Sekolah         : ');readln(asalsekolah);
                write('Kelas                : ');readln(tkelas);
                end;
     0..1989:writeln('Maaf inputan tidak diperkenankan');
     2001..3000:writeln('Maaf inputan tidak diperkenankan');
     end;
    
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';
     
end;

procedure data_guru;

var
   nm_guru, jk_guru, a_guru, mp_guru, kd_pel, no_guru : string;
   nip_guru : longint;

begin
     repeat
     clrscr;
     writeln('             Input Data Guru');
     writeln ('______________________________________________');
     write (' Masukan NIP guru       : '); readln (nip_guru);
     write (' Masukan nama guru      : '); readln (nm_guru);
     write (' Jenis kelamin          : '); readln (jk_guru);

     if (jk_guru='Laki-Laki') or (jk_guru='LAKI-LAKI') or (jk_guru='PEREMPUAN')
     or (jk_guru='laki-laki') or (jk_guru='perempuan') or (jk_guru='Perempuan')
     or (jk_guru='pria') or (jk_guru='Pria') or (jk_guru='PRIA')
     or (jk_guru='wanita') or (jk_guru='Wanita') or (jk_guru='WANITA') then
     begin
     write (' Alamat guru            : '); readln (a_guru);
     write (' Nomor telepon guru     : '); readln (no_guru);
     write (' Masukan kode pelajaran : '); readln (kd_pel);

     if kd_pel = 'PEL001' then
        mp_guru := 'Matematika'
     else
     if kd_pel = 'PEL002' then
        mp_guru := 'Bahasa Indonesia'
     else
     if kd_pel = 'PEL003' then
        mp_guru := 'Bahasa Inggris'
     else
     if kd_pel = 'PEL004' then
        mp_guru := 'IPA'
     else
     if kd_pel = 'PEL005' then
        mp_guru := 'IPS'
     else
     if kd_pel = 'PEL006' then
        mp_guru := 'PAI'
     else
     if kd_pel = 'PEL007' then
        mp_guru := 'PKn'
     else
         mp_guru := 'Kode Tidak Valid';
     
     writeln (' Mata pelajaran         : ',mp_guru);
     end
     else
     writeln('Tidak Valid');
     writeln ('______________________________________________');
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';

end;

procedure nilai;

var
   nm,grade : string;
   npm:longint;
   khdrn,uts,uas,tgs,jml_nil : real;
   a,n : integer;

begin
     repeat
     clrscr;
     writeln('             Input Nilai Siswa');
     writeln ('______________________________________________');
     write('NPM            : ');readln(npm);
     write('NAMA           : ');readln(nm);
     write('Nilai Kehadiran (batas min nilai = 0, batasan max nilai = 100) : ');readln(khdrn);
     write('Nilai Tugas (batas min nilai = 0, batasan max nilai = 100) : ');readln(tgs);
     write('Nilai UTS (batas min nilai = 0, batasan max nilai = 100) : ');readln(uts);
     write('Nilai UAS  (batas min nilai = 0, batasan max nilai = 100) : ');readln(uas);
     jml_nil:=(khdrn+tgs+uts+uas)/4;
     writeln('Nilai rata-rata: ',jml_nil:0:0);
   
     if jml_nil >= 90 then
        grade:='A'
     else
     if jml_nil > 80 then
        grade:='B'
     else
     if jml_nil > 60 then
        grade:='C'
     else
     if jml_nil > 50 then
        grade:='D'
     else
        grade:='E';

     writeln('Grade          : ',grade);
     writeln ('______________________________________________');
     writeln;
     writeln('R. Isi data kembali');
     writeln('K. Keluar dari program');
     writeln;
     write('Pilih : ');readln(again);

     if (again = 'K') or (again= 'k') then
        donewincrt
     else
     writeln('Keyword Tidak Valid');

     until again <> 'R';


end;

begin
     clrscr;
     writeln('SMK SUKAPURA');
     writeln('__________________________');
     writeln;
     writeln;
     writeln('           MENU');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     writeln('A. Data Siswa');
     writeln('B. Data Guru');
     writeln('C. Data Nilai Siswa');
     writeln('K. Keluar');
     writeln('+*+*+*+*+*+*+*+*+*+*+*+*+*+');
     writeln;
     write('Pilih Menu : ');readln(pilihan);

     if (pilihan='A') or (pilihan='a') then
        datasiswa
     else
     if (pilihan='B') or (pilihan='b') then
        data_guru
     else
     if (pilihan='C') or (pilihan='c') then
        nilai
     else
     if (pilihan='K') or (pilihan='k') then
        donewincrt;

end.

2.Layout Program

3.Flowchart Program

Read More

Kali ini saya akan membagikan cara membuat table sederhana pada HTML
langsung saja.


1. Source HTML
<HTML>
<HEAD>
<TITLE>MEMBUAT TABEL</TITLE>
</HEAD>
<BODY BGCOLOR="MAROON">MENU MAKANAN CAFE TEKEL <BR></BR>
<TABLE BORDER="4" WIDTH="500" CELLPADDING="6">
<TR>
    <TD COLSPAN = "2" BGCOLOR="yellow">DAFTAR MAKANAN</TD>
    <TD BGCOLOR="yellow">HARGA</TD>
    <TD colPAN = "4"><MARQUEE><IMG SRC="foto0346.JPG" WIDTH="200"></MARQUEE></TD>
</TR>
<TR>
    <TD>1.</TD>
    <TD>NASI LIWET</TD>
    <TD>25000</TD>
</TR>
<TR>
    <TD>2.</TD>
    <TD>JUS MELON</TD>
    <TD>5000</TD>
</TR>
<TR>
    <TD>3.</TD>
    <TD>TEH LOTOB</TD>
    <TD>5000</TD>
</TR>
<TR>
    <TD>4.</TD>
    <TD>NASI DURUK</TD>
    <TD>7000</TD>
</TR>
<TR>
    <TD></TD>
    <TD>TERIMAKASIH</TD>
    <TD></TD>
</TR>
</TABLE>
</BODY>
</HTML>

2.Layout HTML

u

Read More

Lihat Jawaban Klik

1. Struktur pertama dalam pascal adalah . . .

a. Char;

b. String

c. End.

d. Writeln

e. Uses Crt;

2. Untuk melihat hasil dari program yang di kerjakan tekan tombol . . .

a. Ctrl+F5

b. Ctrl+F9

c. Ctrl+F2

d. Ctrl+F12

e. Ctrl+F4

3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”....

a. 4

b. 2

c. 128

d. 7

e. 3

4. Perintah dasar sederhana dalam program pascal adalah.....

a. Readln

b. End

c. Write

d. Writeln

e. Uses crt;

5. Tipe data bahasa pascal untuk TRUE FALSE adalah....

a. String

b. Char

c. Boolean

d. Byte

e. Real

6. Siapakah penemu program pascal....

a. Greyson Change

b. Prof. Niklaus Wirth

c. Kondrazuse

d. Prof. Niklaus Smirth

e. Dr. Hercules

7. Struktur bahasa pemrograman pascal paling pertama adalah....

a. Var;

b. Begin

c. End;

d. Uses crt;

e. Writeln;

8. Tipe data pascal untuk karakter adalah....

a. Char

b. Boolean

c. Integer

d. Real

e. Byte

9. Kapan terbentuknya pascal....

a. 1981

b. 1971

c. 1961

d. 1991

e. 1987

10. Apa kepanjangan dari USES....

a. Unit Secure

b. Unit Syntax

c. Unit System

d. Up Software

e. Unit Semiconductor

11. Berikut ini adalah penulisan identifier yang benar dalam pemrograman pascal adalah....

a. 9Program_Satu

b. Program_Satu

c. Program Satu

d. Begin

e. Array

12. Tipe bilangan bulat dalam bahasa pascal dikenal sebagai....

a. Byte

b. Integer

c. Char

d. String

e. Boolean

13. Istilah “perulangan” dalam pemrograman pascal dikenal dengan....

a. Repeating

b. Again

c. Function

d. Replay

e. Looping

14. Perintah untuk menutup program pada Pascal adalah...

a. END.

b. Program

c. Uses crt;

d. Finish

e. END;

15. Menggambarkan program secara logika merupakan fungsi dari...

a. Flowchart

b. DxDiag

c. Begin

d. SI

e. Sistem Operasi

16. Deklarasi yang digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak dapat dirubah dalam program disebut deklarasi....

a. Deklarasi label

b. Deklarasi Konstanta

c. Deklarasi tipe

d. Deklarasi Variabel

e. Deklarasi Prosedur

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal, kecuali....

a. Deklarasi perubah

b. Deklarasi proses

c. Deklarasi konstanta

d. Deklarasi tipe

e. Deklarasi prosedur

18. Bilangan yang mengandung pecahan, palingsedikit harus ada satu digit sebelum dan sesudah titik desimal termasuk dalam tipe data...

a. Real

b. Boolean

c. Integer

d. Longint

e. Byte

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah....

a. Writeln

b. Readln

c. Begin

d. Write

e. Clrscr

20. Bentuk dari suatu statement IF berada di dalam lingkungan statemen IF yang lainya, disebut IF dalam kondisi....

a. IF bersarang

b. IF bercabang

c. IF tunggal

d. IF-THEN

e. IF do while-until

21. Tipe data terstruktur yang terdiri dari sejumlah komponen komponen yang mempunyai tipe sama, disebut tipe data...

a. Array

b. Byte

c. Longint

d. Integer

e. Boolean

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah baris kebawah, disebut...

a. Writeln

b. Write

c. Readln

d. Read

e. Begin

24. Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses, disebut....

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

25. Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram ( program bagian ), disebut...

a. Variabel

b. Tipe Data

c. Prosedur

d. Deklarasi

e. Array

Read More