Langsung ke konten utama

Postingan

Menampilkan postingan dengan label Program Queue atau Antrian Pascal

REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN

REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN REVIEW WEBSITE MEDIAKOMEN.COM || WEBSITE DAFTAR JADI BUZZER || PENGHASIL UANG VIA WEBSITE || RECEHAN #REVIEWWEBSITE #penghasiluang #receh Berikut Link Webistenya : https://www.mediakomen.com/ 0:00:00 ▼ EXPAND FOR NAVIGATION ▼ 0:01 CH 0: Opening 0:08 CH 1: Story 0:10 CH 2: Closing

Source Code Program Graph Ufo Terbang Dengan Bahasa Pascal

Source Code Program Graph Ufo Terbang Dengan Bahasa Pascal Baik Sob kali ini mimin akan membagikan source code bahasa pascal yaitu membuat graph ufo terbang. Source code ini sering menjadi tugas kuliah nih sob, terutama mata kuliah praktikum struktur data ane. Langsung saja sob kita lihat source code-nya beserta outputnya, mimin harap kalian semua dapat mempelajarinya, syukur-syukur dapat membuat yang lebih keren lagi. ======================================================================== Program graf; uses crt, graph; var tunggu, x1,x2,y1,y2, ukuran, l : word; x, y, drivegrafik, modegrafik : integer; ufo : pointer; begin InitGraph(drivegrafik, modegrafik,' '); drivegrafik := CGA; modegrafik := CGAC1; OutTextXY(30,30,'Tekan sembarang untuk selesai'); // OutTextXY = utk menentukan titik penempatan text SetColor(1); Ellipse(160,100,0,360,20,5); Line(140,100,180,100); SetFillStyle(SolidFill,4); FloodFill(160,101,1); Line(160,95,160,90); Circle...

Program Queue atau Antrian Pascal

Program Queue atau Antrian Pascal Selamat malam sob... kali ini ane mau post nih salah satu tugas struktur data semester 3, yaitu Program Antrian atau sering disebut Queue, langsung aja sob liat kodingannya,.. COPAS BOLEH, PELAJARI HARUS!!!.. ====================================================================  Program queue;  uses wincrt;  type antrian = ^node;   node = record   isi : String[10];   next : antrian;   end;  var   depan, belakang : antrian;   pointer, x : string;   pil : char;   {Procedure baru digunakan untuk inisialisasi awal list}   Procedure baru(x : string; var tunjuk : antrian);   begin   new(tunjuk);   tunjuk^.isi := x;   tunjuk^.next := nil;   end;   {Function isempty digunakan untuk mengecek apakah suatu list kosong atau tidak}   Function isempty(depan, belakang : antrian):boolean;   begin   isempty := (depan=nil) and (belakan...

MEMBUAT DATA TABEL DENGAN SQLITE3 DI CMD

MEMBUAT DATA TABEL DENGAN SQLITE3 DI CMD 😎  Membuat dan membuka .db              Asumsikan kita akan membuat tabel dengan nama tabel data.db  Membuka sqlite3 dan membuka data.db buka cmd lalu ketik cd.. lalu ketik cd.. lagi lalu cd sqlite jika anda menempatkan sqlitenya di folder c sqlite dan kita bisa ketik .databases untuk melihat apakah database sudah dibuat atau belum          Membuat tabel create tabel (namatable) (judul atas) = membuat tabel untuk melihat daftar tabel yang dibuat ketik .tabels Dan disini saya akan membuat tabel data dengan struktur ( no sebagai primary key, judul dan harga ) Memodifikasi tabel Menambahkan kolom alter table (namatabel) add column (namacolom) (typenya); ->> Dan saya akan coba menambahkan kolom pengarang pada tabel data saya dengan mengetik  alter table data column Pengarang varchar; Menambah data ke tabel kita bisa mengetikan di cmd  insert into (namatabel)(....