Program Matriks pada Pascal

Tampilan Program Array Matriks saat peng-codingan:

Coding Program Array Matriks pada Pascal:

USES CRT; VAR MATRIKS1,MATRIKS2,HASIL: ARRAY [1..2,1..2] OF INTEGER; I: INTEGER; J: INTEGER; BEGIN CLRSCR; FOR I:=1 TO 2 DO BEGIN FOR J:=1 TO 2 DO BEGIN GOTOXY (4+J*4, 10+I); READLN (MATRIKS1[I,J]); END; END; FOR I:=1 TO 2 DO BEGIN FOR J:=1 TO 2 DO BEGIN GOTOXY (25+J*4, 10+I); READLN (MATRIKS2[I,J]); END; END; FOR I:=1 TO 2 DO BEGIN FOR J:=1 TO 2 DO BEGIN HASIL [I,J]:=(MATRIKS1[I,J+J]+ MATRIKS2[J,I+I]*MATRIKS1[I,J+J]+MATRIKS2[J,I]); GOTOXY (46+J*4, 10+I); WRITELN (HASIL [I,J]); END; END; READLN; END.

Tampilan Output Program Array Matriks pascal:

Logika Program Array Matriks Pascal:

Program Matriks ini mengajak kita untuk menentukan isi dari matriks1 dan matriks2, dimana nantinya isi dari matriks 1 akan di kalikan dengan matriks 2, contoh pada output diatas, kita masukkan

19           10                           12           21                                                           232         273

                                                        Akan Menghasilkan

10           20                           13           12                                                           281         5766

Program Menu Pascal

Tampilan Coding Menu:

Coding lengkap program menu pascal:

PROGRAM SATU; USES CRT; LABEL 10,20,30,40,50; VAR INPUT,INPUT2,ALAS,TINGGI,LUAS,BIL:INTEGER; BEGIN 10: CLRSCR; WRITELN ('>>>>>>>>>>>MENU<<<<<<<<<<<<<'); WRITELN ('1. MENGHITUNG LUAS SEGITIGA'); WRITELN ('2. BILANGAN GANJIL GENAP'); WRITELN ('3. KELUAR PROGRAM INI'); WRITELN; WRITELN ('MASUKKAN PILIHAN ANDA'); READLN (INPUT); CASE INPUT OF  1: GOTO 20;  2: GOTO 30;  3: GOTO 40;  ELSE WRITELN ('PILIHAN SALAH');  READLN;  GOTO 10 END; 20:CLRSCR; WRITELN ('ANDA MEMILIH PROGRAM LUAS SEGITIGA'); WRITELN ('TEKAN ENTER UNTUK MASUK KE PROGRAM'); READLN; CLRSCR; WRITELN ('MENGHITUNG LUAS SEGITIGA'); WRITELN; WRITELN ('MASUKKAN ALAS SEGITIGA'); READ (ALAS);   WRITELN; WRITELN ('MASUKKAN TINGGI SEGITIGA'); READ (TINGGI); WRITELN; WRITELN ('LUAS SEGITIGA ADALAH'); WRITELN (ALAS/2*TINGGI); READLN; READLN; CLRSCR; WRITELN ('INGIN MENGULANG LAGI ?'); WRITELN ('1 UNTUK YA, 2 UNTUK TIDAK'); READ (INPUT2); CASE INPUT2 OF  1: GOTO 20;  ELSE GOTO 10 END; 30:CLRSCR; WRITELN ('ANDA MEMILIH BILANGAN GANJIL GENAP'); WRITELN ('TEKAN ENTER UNTUK MASUK KE PROGRAM'); READLN; CLRSCR; WRITELN ('BILANGAN GANJIL GENAP'); WRITELN; WRITELN ('MASUKKAN SEBUAH BILANGAN'); READ (BIL); IF BIL MOD 2 = 0 THEN WRITELN (BIL,' = BILANGAN GENAP') ELSE WRITELN (BIL,' = BILANGAN GANJIL'); READLN; WRITELN ('INGIN MENGULANG LAGI ?'); WRITELN ('1 UNTUK YA, 2 UNTUK TIDAK'); READ (INPUT2); CASE INPUT2 OF  1: GOTO 30;  ELSE GOTO 10; 40: END; END.

Logika :

Program akan berjalan dengan pertama kali dengan memerika 3 pilihan input kepada kita, dimana input pertama adalah program yang menghitung luas segitiga, lalu input kedua adalah program yang menganalisa bilangan yang kita input, apakah dia bilangan genap atau ganjil, dan input yang ketiga adalah kepuar dari program.

 

Bila input yang kita berikan adalah 1, maka program akan menuju label 20, dimana label 20 adalah menhitung luas segitiga, kita akan diminta untuk memasukkan alas lalu kita akan diminta untuk memasukkan tinggi dari segitiga itu, setelah hasil di dapat, maka program akan menanyakan kepada kita apakah kita ingin mengulangi menghitung segitiga, atau menuju menu utama. Bila kita meninput 1, maka kita akan mengulang program segitiga, bila kita input 2 maka kita akan kembali ke menu utama.

Bila input yang kita berikan adalah 2, maka program akan menuju label 30, dimana label 30 adalah program yang menganalisa bilangan dan mendefinisikan apakah bilangan tersebut adalah bilangan genap atau ganjil. Contoh bila kita menginput 200 maka program akan menganalisa dan menyimpulkan bahwa bilangan 200 adalah bilangan genap, dan akan menuliskan 200 = Bilangan genap. Lalu setelahnya program akan menanyakan apakah ingin mengulangi lagi atau tidak, bila kita input 1 maka program akan mengulangi lagi bilangan ganjil genapnya, bila kita input 2 maka program akan kembali ke menu utama.

Bila input yang kita masukkan adalah 3, maka program akan menuju label 40, dimana label 40 adalah END; maka program akan keluar atau dengan kata lain kita akan keluar dari program.

Hypochondriasis

DEFINISI Hypochondriasis adalah gangguan dimana seseorang disibukkan dengan rasa takut mengalami penyakit serius.  Hypochondriasis terjadi paling sering diantara usia 20 dan 30 tahun dan tampak mempengaruhi kedua jenis kelamin secara seimbang. Beberapa orang dengan hypochondriasis juga mengalami depresi atau kegelisahan.  Pada Hypochondriasis, perhatian orang tersebut mengenai penyakit serius seringkali didasarkan pada salah tafsir pada fungsi normal tubuh. Pemeriksaan dan penentraman hati kembali oleh dokter untuk menghilangkan perhatian mereka; orang dengan hypochondriasis cenderung untuk percaya bahwa dokter bagaimanapun juga telah gagal untuk menemukan penyakit yang mendasari.

PENYEBAB Tubuh manusia normal secara terus-menerus menghasilkan berbagai sensasi dan gejala - sakit di sini, kedutan di sana. Kebanyakan orang tidak pernah melihat ini, mengabaikanya atau memperlakukan mereka sebagai, sensasi umum sehari-hari yang mereka rasakan seperti biasanya. Tapi bila Anda memiliki penyakit hypochondria, setiap sensasi atau gejala, tidak peduli seberapa kecil, adalah bukti kepada Anda bahwa Anda memiliki penyakit yang serius atau yang mengancam jiwa. sakit kepala A, misalnya, sinyal tumor otak. Sebuah tangan gemetar sinyal penyakit Parkinson. Batuk, kanker paru-paru.  Kenapa satu orang bisa mengabaikan sensasi tubuh umum sementara yang lain dengan hypochondria menjadi murung tidak diketahui - hipokondria tidak diketahui penyebabnya secara spesifik. Beberapa ahli percaya bahwa penyakit hypochondria adalah jenis gangguan obsesif-kompulsif, dan penelitian lebih lanjut dapat mengungkap koneksi dan kemungkinan penyebabnya.  Selain itu, beberapa penelitian menunjukkan bahwa perlawanan alami tubuh -atau-respon mungkin sebagian bertanggung jawab yang menyebabkan penyakit hypochondria. Orang dengan keadaan murung sering merasa cemas. Kecemasan dapat menyebabkan rangsangan fisiologis dalam tubuh yang mencakup peningkatan denyut jantung, sesak napas, berkeringat, mual, pusing dan sensasi lainnya. Bila Anda memiliki penyakit hypochondria, Anda salah menafsirkan tanda-tanda dan gejala sebagai bukti lebih lanjut dari penyakit, yang meningkatkan kecemasan Anda, dan pada gilirannya, mengintensifkan gejala Anda, menciptakan lingkaran setan.

GEJALA Hypochondriasis diduga ketika orang yang sehat dengan gejala ringan diasyikkan dengan gejala-gejala yang spesifik dan tidak bereaksi untuk ditentramkan kembali hatinya setelah evaluasi seksama. Hubungan pribadi dan performa kerja seringkali menderita sebagaimana orang tersebut menjadi semakin terarah dengan isu kesehatan.

DIAGNOSA Diagnosa pada Hypochondriasis dipastikan ketika keadaan berlangsung lama setidaknya 6 bulan dan gejala-gejala orang tersebut tidak dapat dihubungkan dengan depresi atau gangguan kesehatan mental lainnya.

PENGOBATAN Pengobatan Hypochondriasis adalah sulit, karena seseorang dengan Hypochondriasis diyakinkan bahwa sesuatu di dalam tubuh adalah kesalahan serius. Penentraman hati tidak menghilangkan perhatian ini. Meskipun begitu, hubungan kepercayaan dengan dokter yang perduli adalah bermanfaat, khususnya jika jadwal kunjungan yang teratur. Jika gejala-gejala orang tersebut tidak cukup hilang, orang tersebut bisa menerima manfaat dari referral kepada terapis untuk penelitian dan pengobatan lebih lanjut, dengan melanjutkan perawatan dokter primer. Pengobatan dengan Penghambat Reuptake serotonin, kelas antidepresan, kemungkinan efektif. Terapi cognitive-behavior bisa juga meringankan gejala-gejala.

Program Case Of Pascal

Tampilan Coding Program:

Tampilan Output:

Logika Program:

Program akan mendeklarasikan Input sebagai integer, lalu akan meminta kita untuk memasukkan pilihan kita,

Bila kita memasukkan 1, maka akan tampil “ANDA BARU SAJA MEMILIH PILIHAN 1”

Bila kita memasukkan 2, maka akan tampil “ANDA BARU SAJA MEMILIH PILIHAN 2”

Bila kita memasukkan 3, maka akan tampil “ANDA BARU SAJA MEMILIH PILIHAN 3”

Program akan keluar dengan menekan enter.

Program Bilangan Ganjil Genap Pascal

Tampilan koding Program Bilangan Ganjil Genap:

Output Program:

Logika Program:

Saat program berjalan, pertamakali program akan mendeklarasikan I dan K sebagai bilangan integer, lalu program akan meminta kita untuk menginput suatu bilangan, bila kita enter maka program akan menganalisa apakah bilangan yang kita input adalah genap atau ganjil lalu bila keputusan sudah dibuat, maka program akan mencetak bilangan yang kita masukkan dan mengeluarkan hasil analisanya.

Contoh bila kita menginput 14 maka program akan menganalisa 14 dengan cara membagi bilangan 14 tersebut dengan 2 bila dalam proses tersebut tidak di hasilkan bilangan sisa, maka program akan mencetak “14 adalah bilangan genap”.

Laporan Akhir II Pascal Perulangan

 Program I Perulangan:

 Output Program I Perulangan:

Program 2 While Do

Output Program 2 :

Laporan Akhir I Pascal

Program Pendahuluan :

Output Program:

Logika Program:

Uses crt  : digunakan untuk menentukan layar tipe apa yang kita pilih.

                  Crt maksudnya cathode ray tube.

Begin       : untuk memulai suatu proses.

Clrsrc      : digunakan untuk menghapus layar hasil dari program sebelumnya.

Writeln    : digunakan untuk mencetak pada layar.

ReadlN   : digunakan untuk menentukan variable apa yang akan di input, atau bisa juga digunakan untuk

                  memberikan spasi / menahan agar program tidak kembali dulu sebelum di tekan enter.

End.        : untuk mengakhiri program yang sudah ditulis.

Program Kedua:
Program Nama:

Output Program:

Logika Program Kedua:

(Sama seperti program sebelumnya)

Uses crt  : digunakan untuk menentukan layar tipe apa yang kita pilih.

                  Crt maksudnya cathode ray tube.

Begin       : untuk memulai suatu proses.

Clrsrc      : digunakan untuk menghapus layar hasil dari program sebelumnya.

Writeln    : digunakan untuk mencetak pada layar.

ReadlN   : digunakan untuk menentukan variable apa yang akan di input, atau bisa juga digunakan untuk

                  memberikan spasi / menahan agar program tidak kembali dulu sebelum di tekan enter.

End.        : untuk mengakhiri program yang sudah ditulis.