PROGRAM PENGURUTAN DATA

program pengurutan data; uses wincrt; const NilaiMaksimum = 1000; type Larik = array[1..NilaiMaksimum] of integer; var L : Larik; batas : integer;            procedure masukan (var L : Larik; n : integer);            var                  a : integer;            begin              for a := 1 to n do                  begin    ...

Read More

MENCARI NILAI RATA-RATA MAHASISWA

uses wincrt; var nama,nim:string; nt,nmt,na:integer; nr :real; begin writeln ('        DAFTAR NILAI MAHASISWA'); write ('Nama  : '); readln (nama); write ('NIM   : '); readln (nim); write ('Nilai Tugas      : '); readln (nt); write ('Nilai Mid Test   : '); readln (nmt); write ('Nilai Akhir      : '); readln (na); nr:=(0.5*nt)+(0.25*nmt)+(0.25*na); writeln ('Rata-rata      : ',nr:0:2); end. ...

Read More

Soal Tabel Kebenaran

Diketahui suatu ekspresi logika sebagai berikut: NOT (A AND B) OR (C XOR NOT D) = NOT (A OR NOT B) AND (C OR D) Apa hasil dari ekspresi logika tsb. Jawab: Konversikan terlebih dahulu : *Sebelah kiri -A "AND" B -"NOT" B -C "XOR" (NOT B) -"NOT" (A AND B) -NOT ( A AND B ) "OR" C XOR NOT B *Sebelah Kanan -"NOT" B -A "OR" (NOT B) -"NOT" (A OR NOT B) -C "OR" D -NOT (A OR NOT B) "AND" (C OR D) *Bandingkan hasil sebelah kanan dengan hasil sebelah kiri..jika...

Read More