Program Aritmatika Dengan Flowchart

Program matematika;

 uses wincrt;

 var

 a,b,d,e : integer;

 c:real;

 lagi:char;

 begin

 repeat

 clrscr;

 

 writeln('PROGRAM OPERASI MATEMATIKA : ');

 writeln('*************************** : ');

 write('masukan angka pertama : ');readln(a);

 write('masukan angka kedua : ');readln(b);

 writeln('pilih operasi : ');

 writeln('Operasi Pengurangan : 1 ');

 writeln('Operasi Penjumlahan : 2 ');

 writeln('Operasi Perkalian : 3 ');

 writeln('Operasi Pembagian : 4 ');

 write('masukan pilihan anda :');read(d);

Program Pascal Dengan Menggunakan Prosedur

Berikut ini adalah salah satu contoh program pascal dengan menggunakan prosedur
dengan variabel :   x : integer;
                            yt: char;
Program ini di gunakan untuk memilih ketersediaan film.
program daftar_film;
uses wincrt;

var
   x : integer;
   yt: char;

procedure kembali;
begin
     write ('Ingin kembali ke menu utama? [Y/T] : ');
     readln (yt);
end;

procedure taktahu;
begin
     clrscr;
     writeln ('Menu tidak terdefinisi');
     readln;
     kembali;
end;

procedure menu8;
begin
     clrscr;
     writeln('Terimakasih Sudah Menggunakan Program Ini');
     writeln('Nama: Dede Opik');
     writeln('NPM : 432007006120062');
     writeln('STMIK TASIKMALAYA');
     readln;
     kembali;
end;

Latihan Pascal

Latihan Pascal

           Alasan     : Karna dalam struktur pascal USES CRT berada di bagian pertama, jadi apabila memilih yang lain programnya tidak akan jalan.








        Alasan    : Karna di aplikasi pascal perintah keyword untuk menampilkan hasil yaitu dengan menekan  CTRL + F9

Membuat Tabel HTML

Membuat Tabel HTML

Nama	Tempat Lahir
Dede Opik	Tasikmalaya

Apabila melihat contoh susunan tabel diatas, pengertian kode HTML nya adalah sebagai berikut : diakhiri dengan
: digunakan sebagai tanda awal tabel .. : digunakan sebagai tanda awal baris, tr kependekan dari table row .. : digunakan untuk membuat tampilan kolom header tabel, th kependekan dari table head .. : digunakan untuk menyusun kolom data, td kependekan dari table data Setiap elemen dari kode HTML tersebut harus tersusun dan tertata dengan benar. Perhatikan tanda slash / garis miring di setiap akhir elemen, itu merupakan kode penutup untuk kode pembuka di semua jenis kode HTML. Atribut pendukung Tabel : align : untuk mengatur posisi horizontal valign : untuk mengatur posisi vertikal width : untuk mengatur lebar height : untuk mengatur tinggi border : untuk mengatur tebal garis border-color : untuk memberi tebal garis dengan warna cellpadding : untuk mengatur jarak garis dengan objek didalamnya cellspacing : untuk mengatur jarak tiap cell bgcolor : untuk mengatur warna background : untuk mengatur latar gambar rowspan : jumlah baris yang memotong beberapa baris colspan : jumlah kolom yang memotong beberapa kolom Berikut adalah contoh tabel yang terdiri dari 3 baris dan 2 kolom.

Cell 1 - Baris 1 Kolom 1	Cell 2 - Baris 1 Kolom 2
Cell 3 - Baris 2 Kolom 1	Cell 4 - Baris 2 Kolom 2
Cell 5 - Baris 3 Kolom 1	Cell 6 - Baris 3 Kolom 2

Hasil: Dalam contoh sengaja ditambah dengan atribut border agar kita dapat melihat posisi dari tabel tersebut, karena secara default nilai dari border ini adalah 0 jika tidak disertakan dengan tag . Mengatur lebar dan tinggi tabel: Untuk mengatur lebar table digunakan atribut width atau bisa juga dengan style CSS dengan properti width. Untuk lebar dan tinggi dari td kita gunakan atribut style dengan properti width dan height. Berikut adalah contoh tabel dengan lebar 75% dari lebar dokumen dan lebar kolom masing 50% dengan tinggi pada baris pertama adalah 40px.

Baris 1 Kolom 1	Baris 1 Kolom 1
Baris 2 Kolom 1	Baris 2 Kolom 2
Baris 3 Kolom 1	Baris 3 Kolom 2

PROGRAM LOGIKA IF THEN PADA PASCAL

USES WINCRT;
CONST
     garis='***********************************************************';
VAR
   nil1,nil2 : ARRAY [1..10] of 0..100; {Array dgn type subjangkauan}
   npm       : ARRAY [1..10] of STRING[8];
   nama      : ARRAY [1..10] of STRING[15];
   n,i,bar   : INTEGER;
   jum       : REAL;
   tl        : CHAR;
BEGIN
     CLRSCR;
     { pemasukan data dalam array }
     WRITE('MAU ISI BERAPA DATA :');
     READLN(N);
     FOR i:=1 TO n DO
     BEGIN
          CLRSCR;
          GOTOXY(30,4+1); WRITE('DATA KE-:',i:2);
          GOTOXY(10,5+i); WRITE('NPM     :');READLN(NPM[i]);
          GOTOXY(10,6+i); WRITE('NAMA    :');READLN(NAMA[i]);
          GOTOXY(10,7+i); WRITE('NILAI 1 :');READLN(NIL1[i]);
          GOTOXY(10,8+i); WRITE('NILAI 2 :');READLN(NIL2[i]);
     END;
     {proses data dalam array}
     CLRSCR;
     GOTOXY(5,4); WRITE(GARIS);
     GOTOXY(5,5); WRITE('NO');
     GOTOXY(9,5); WRITE('NPM');
     GOTOXY(18,5); WRITE('NAMA');
     GOTOXY(34,5); WRITE('NIL.1');
     GOTOXY(41,5); WRITE('NIL.2');
     GOTOXY(47,5); WRITE('RATA');
     GOTOXY(54,5); WRITE('ABJAD');
     GOTOXY(5,6); WRITE(GARIS);
     { proses cetak isi array dan seleksi kondisi }
     bar:=7;
     FOR i:= 1 TO n DO
     BEGIN
          jum:=(nil1[i]+nil2[i])/2;
          IF jum>=90 THEN tl:='A'
          ELSE
              IF jum>80 THEN tl:='B'
              ELSE
                  IF jum>60 THEN tl:='C'
                  ELSE
                      IF jum>50 THEN tl:='D'
                      ELSE
                          tl:='E';
          { cetak hasil yang disimpan di array dan hasil }
          { penyelesaian kondisi }
          GOTOXY(5,bar); WRITELN(i:2);
          GOTOXY(9,bar); WRITELN(NPM[i]);
          GOTOXY(18,bar); WRITELN(NAMA[i]);
          GOTOXY(34,bar); WRITELN(NIL1[i]:4);
          GOTOXY(41,bar); WRITELN(NIL2[i]:4);
          GOTOXY(47,bar); WRITELN(jum:5:1);
          GOTOXY(54,bar); WRITELN(tl);
          bar:=bar+1;
     END;
     GOTOXY(5,bar+1);WRITELN(garis);
     READLN;
END.