LabQ5

Pemrograman Dasar - Rekord Mr. Berry Prima, S. Kom Rekord merupakan type data terstruktur yang digunakan untuk menyimpan sejumlah data dengan type data yang berbeda dalam suatu tempat yang  merupakan konsep dasar dari DataBase. Deklarasi Rekord antara lain : Type Pengenal : Record NamaField1 : typedata; NamaField2 : typedata; ... NamaField(n) : typedata; program ProjectTestRecord; {$APPTYPE CONSOLE} uses   Windows,   Messages,   SysUtils; const maks=3; type   data_mhs = record      nim : string[10];      nama_mhs : string[25];      nilai_mhs : string[25]; end; var   mhs : array[1..maks] of data_mhs;   nmr, nama : string[25];   i, n, nilai : Integer;   pilihan, cek : char;   procedure ClrScr;     var       hStdOut: HWND;       ScreenBufInfo: TConsoleScreenBufferInfo;       Coord1: TCoord;       z: Integer;     begin       hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);       GetConsoleScreenBufferInfo(hStdOut, ScreenBufInfo);       for z

Source Code Program Sort Nilai Min_Max Dibuat menggunakan Tools Delphi7 , dalam rangka penyelesaian tugas MK. Pemrograman Dasar STIKOM Al-Khairiyah Cilegon dengan Dosen Bpk. Berri Prima,S.Kom tahun 2018. Diposting sebagai dokumentasi dan berbagi wawasan tentang dasar pemrograman. program ProjectSortNilai; {$APPTYPE CONSOLE} uses   SysUtils; const maks=5; type bil = array[1..maks] of integer; var   bill:bil; i, a, b, j, n : Integer;   avrg : real; begin   { TODO -oUser -cConsole Main : Insert code here }   {Input element Array}   writeln('');   writeln(' ======================================');   writeln(' PROGRAM SORTING, MIN MAX DAN RATA-RATA');   writeln(' ======================================');   for i := 1 to maks do     begin       write(' Masukkan Nilai Ke ',i,' : ');       readln(bill[i]);       {PROSEDUR PENUMLAHAN NILAI INPUT}       j := bill[i] + j;     end;   avrg := j div 5;   write

Algoritma ini dibuat dalam rangka tugas mata kuliah Praktikum Algoritma STIKOM Al-Khairiyah Cilegon, algoritmanya sederhana sekali. Deklarasi  a : integer Deskripsi input bilangan(a)  if a < 0 then cetak (a) Bilangan Negatif else cetak (a) Bilangan Positif end if Ket : Variable integer digunakan agar input yang dimasukkan adalah bilangan bulat Algoritma if a < 0 bisa diganti dengan if a > 0 , namun statemen di bawahnya di bawah ini : Deklarasi  a : integer Deskripsi input bilangan(a)  if a > 0 then cetak (a) Bilangan Positif else cetak (a) Bilangan Negatif end if  ......