TEKNIK INFORMATIKA

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);

 if d=1 then

 begin

 c:=(a-b);

 writeln('Hasil dari ',a,' - ',b,' adalah ',c:0:0);

 end;

 if d=2 then

 begin

 c:=(a+b);

 writeln('Hasil dari ',a,' + ',b,' adalah ',c:0:0);

 end; if d=3 then

 begin

 c:=(a*b);

 writeln('Hasil dari ',a,' * ',b,' adalah ',c:0:0);

 end;

 if d=4 then

 begin

 c:=(a/b);

 writeln('Hasil dari ',a,' : ',b,' adalah ',c:0:0);

 end;

 writeln;

 write ('Apakah anda ingin mencoba lagi? (y/n)'); readln (Lagi);

 until Lagi = 'y';

 end

Berikut ini adalah tampilan FLOWCHART dari program pascal operasi matematika

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;

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.

Membuat Tabel HTML

Nama	Tempat Lahir
Widhi Bias	Sumedang

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

Latihan Pascal