muhammadlathifazmii

PROBLEMATIKA MAHASISWA MASA KINI   Nama Kelompok       : 1. Muhammad Lathif Azmii                        NPM : 06201740013 2. Bintang Permana Pardian                       NPM : 06201740002 3. Delinda Ratu                                             NPM : 06201740008 4. Achmad Rivaldi  Ichsan                           NPM : 06...

   What's up guys balik lagi ke blog gue yang selalu ingin bantu mengerjakan tugas sist/gan yang belom kelar nihh.... langsung aja cekibroooott....!!!!!   PASCAL IDE. Progam Procedure_Pembelian; USES CRT; VAR KB, NB : ARRAY[1..10] OF STRING;     HG, JML : ARRAY[1..10] OF LONGINT;     ADL: CHAR;     JD, X, BR : BYTE;     TOTAL, DISC, PB : REAL; BEGIN      ADL:='Y';JD:=0;      WHILE (ADL='Y') AND (JD<=10) DO      BEGIN           CLRSCR;           GOTOXY(25,5);WRITE('ENTRY DATA PEMBELIAN');           GOTOXY(25,6);WRITE('====================');           JD:=JD+1;           GOTOXY(25, 8);WRITE('KOD...

  Hai sist/gan kembali lagi di blog gue, Disini gue mau bantu buat yang kesulitan mencari codingan Menara Hanoi langsung aja cekibrooooottt.....!!!!  PASCAL IDE. Program Menara_Hanoi; Uses Crt; Procedure MenaraHanoi (Jumlah : Integer;  Sumber, Tujuan, Bantuan : Char;  Var Langkah, Jumlah_A, Jumlah_B, Jumlah_C, Waktu : Integer); Var Baris_Sumber, Kolom_Sumber, Baris_Tujuan, Kolom_Tujuan : Integer; Begin If Jumlah > 0 Then Begin MenaraHanoi(Jumlah-1,Sumber,Bantuan,Tujuan,Langkah,Jumlah_A,Jumlah_B,Jumlah_C,Waktu); Langkah := Langkah+1;         If Sumber = 'A' Then         Begin              Kolom_Sumber := 30;              Baris_Sumber := 24 - Jumlah_A;              Jumlah_A   ...

Nama : Muhammad Lathif Azmii            NPM :06201740013 Program Studi :Sistem Informasi  Matakuliah :Algoritma PASCAL IDE Halo sist/gan Disini gue mau bantu buat yang kesulitan mencari codingan Deret Fibonacci langsung aja cekibrooooottt.....!!!!  Program deret_fibonacci; uses crt; var a,b,c,d,f:integer; begin clrscr; writeln(‘Program Deret Fibonacci’); writeln; write(‘Masukkan Jumlah Deret’); readln(a); write(‘Deret Fibonacci const:’); d:=0; f:=1; c:=0; for b :=1 to a do begin c:=d+c; d:=f; f:=c; write(c); write(‘ ‘); end; readln; end. Output Program Deret Fibonacci Masukkan Jumlah Deret:5 Deret Fibonacci const:0 1 1 2 3 Oke sekedar memberi jawaban buat mempermudah  tugas kuliah  kalian yang belom kelar wkwkw jangan lupa kunjungi terus blog gue, sekian dan terimakasih