program cek kelulusan siswa PASCAL

ini codingnya uses crt;varnama : string[25];kelas : string[5];no_absen : string[3];n_tugas : byte;n_u_hari : byte;n_u_umum : byte;rerata : real;lulus : boolean;predikat : string[20];beginclrscr;writeln(‘====================================================’);writeln(‘| Program Mengecek Kelulusan Siswa |’);writeln(‘====================================================’);writeln;writeln(‘Input Data Siswa’);writeln(‘—————-’);write(‘Nama : ‘); readln(nama);write(‘Kelas...

Konversi bilangan Desimal Ke Biner

Konversi bilangan Desimal Ke BinerUSES CRT;VAR Des:integer;Bin:string;beginclrscr;writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');write('Masukkan bilangan Decimal=');readln(Des);Bin:=’’;repeatbegin{menghitung biner dari hasil bagi}If Des mod 2=0 then Bin:='0'+Binelse Bin:='1'+Bin;{membagi bulat bilangan desimal}Des:= Des div 2;end;Until Des=0;Writeln('Bilangan Biner =',Bin);readln;end...

Program Pascal If Perhitungan Gaji

Contoh Program Pascal If Perhitungan Gaji Uses crt;Var nama:string[20];jabatan:string;Gaji:longint;Tunj,ppn,gajibersih:real;BeginClrscr;Write(‘Nama Karyawan : ‘); readln(nama);Write(‘Masukkan Jabatan : ‘); readln(jabatan);If (jabatan=’Direktur’) or (jabatan=’direktur’) thenBeginGaji:=3000000;Tunj:=0.1* gaji;EndElse If (jabatan=’Manager’) or (jabatan=’manager’) thenBeginGaji:=2000000;Tunj:=0.05* gaji;EndElse If (jabatan=’Karyawan’) or (jabatan=’karyawan’)...

Perhitungan berat dan harga barang program PASCAL

Case Of  Pascal Contoh Case …Of  perhitungan berat dan harga barang Ketentuan soal : 1. Kualitas Barang di masukkan Kualitas Harga Per Kg A/a 1000 B/b 750 C/c 500 Uses crt; Var Berat,harga,hargaperkg:integer; Kualitas:char; Begin Clrscr; Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas); Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat); Case kualitas of ‘A’,’a’: hargaperkg:=1000; ‘B’,’b’: hargaperkg:=750; ‘C’,’c’:...

mencari modus dengan C++

cara bagai mana untuk menetukan sebuah modulus dengan Array , progam selengkapnya tentang membuat modulus dengan C++. Berikut adalah sintax program selengkapnya, yang telah saya jalankan pada Borland C++ 5.02 #include<iostream.h> #include<conio.h>  int x; void findmod(float bil[], int n, float mod[]) { int total[100]; int k=1; x=0; //untuk mengurutkan...

PERKALIAN

contoh sederhana tentang Operator dalam C++, yaitu program operasi perkalian dimana pada program ini  kita dapat menentukan perkalian berapa dan sampai dengan batas berapa.Perulangan pada perkalian ini akan di mulai dari satu, maka dari itu kita menggunakanperulangan for pada program ini.Mari kita lihat progam selengkapnya: #include<iostream.h> int main() {         int perkalian,...

Konversi Bilangan dengan bahasa C++

kemarin saya sharing tentang Konversi Bilangan Desimal ke Biner  menggunakan perulangan do while  hanya mengkonversi dari bilangan desimal ke biner, kali ini kita akan bahas tentang konversi bilangan dari bilangan Desimal ke bilangan hexadesimal, oktal, dan juga biner.prinsipnya sebenarnya untuk konversi kepada biner sama saja dengan program sebelumnya hanya saja untuk progam ini kita tambahkan hex untuk konversi...