program cek kelulusan siswa PASCAL

ini codingnya

uses crt;
var
nama : 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];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-’);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-’);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian’;
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end

Konversi bilangan Desimal Ke Biner

Konversi bilangan Desimal Ke Biner

USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else 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;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.

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’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.

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

1. #include<iostream.h>
2. #include<conio.h> 
3. int x;
4. void findmod(float bil[], int n, float mod[])
5. {
6. int total[100];
7. int k=1;
8. x=0;
9. //untuk mengurutkan secara ascending
10. for(int c=0;c<n;c++)
11. {
12. for(int i=(n-1);i>=0;i--)
13. {
14. if(bil[i]<bil[i-1])
15. {
16. int temp;
17. temp=bil[i];
18. bil[i]=bil[i-1];
19. bil[i-1]=temp;
20. }
21. }
22. }
23. //menghitung berapa kali muncul tiap angka
24. for(int c=0;c<n;c++)
25. {
26. total[c]=0;
27. for(int i=0;i<n;i++)
28. {
29. if(bil[c]==bil[i])
30. {
31. total[c]++;
32. }
33. }
34. }
35. //menentukan nilai yang paling sering muncul
36. for(int c=0;c<n;c++)
37. {
38. if(total[c]>k)
39. {
40. k=total[c];
41. }
42. }
43. //jika modus lebih dari satu
44. for(int c=0;c<n;c++)
45. {
46. if(x==0)
47. mod[x]=0;
48. else
49. mod[x]=mod[x-1];
50. if(total[c]==k)
51. {
52. if(bil[c]!=mod[x])
53. {
54. mod[x]=bil[c];
55. x++;
56. }
57. }
58. }
60. //Jika Semua angka muncul sama banyak
61. int z=0;
62. for(int c=0;c<n;c++)
63. {
64. if(total[c]==k)
65. {
66. z++;
67. }
68. }
69. if(z==n)
70. {
71. x=0;
72. }
73. }
74. void main()
75. {
76. int n;
77. float bil[100];
78. float mod[100];
79. cout<<"Banyak N : ";cin>>n;
80. for(int c=0;c<n;c++)
81. { 
82. cout<<"Nilai "<<(c+1)<<" : ";cin>>bil[c];
83. }
84. cout<<endl;
85. findmod(bil,n,mod);
86. if (x==0)
87. cout<<"Tidak Ada Modus!"<<endl;
88. else
89. {
90. cout<<"Modus : ";
91. for(int c=0;c<x;c++)
92. {
93. cout<<mod[c]<<" ";
94. }
95. }
96. getch();
97. }

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:

1. #include<iostream.h>
2. int main()
3. {
4.         int perkalian, n, batas;   // deklarasi variabel
5.                 cout<<"Perkalian : ";    
6.                 cin>>perkalian;           //input nilai
7.         cout<<"Sampai Dengan: ";  //masukan batas
8.         cin>>batas;
9.                 cout<<endl;               //memindahkan line satu baris kebawah
10.         for(n=1; n<=batas; n++)       //perulangan
11.                 cout<<perkalian<<"x"<<n<<"="    
12.                                 <<perkalian*n<<endl;   // operasi perkalian dilakukan
13.                 return 0;
14. }

Misalnya kita akan menghitung perkalian 32 dengan batas perkalian adalah 12,
maka kita dapat memasukan nilai perkalian 32.
dengan batas yaitu 12.

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 ke hexadesimal dan oct untuk konversi ke oktal.
mari kita lihat progam selengkapnya.

1. #include<iostream.h>
2. int main()
3. {
4.         long desimal, pembagi=1073741824, bit;
5.         cout<<"Nilai Desimal : ";
6.         cin>>desimal;
8.                 cout<<"Hexadesimal = "<<hex<<desimal<<endl;
9.                 cout<<"Oktal       = "<<oct<<desimal<<endl;
10.                 cout<<"Biner       = ";
11.         while(pembagi>desimal) pembagi/=2;
12.         do{
13.                 bit=desimal/pembagi;
14.                 cout<<bit;
15.                 desimal=desimal%pembagi;
16.                 pembagi/=2;
17.         }
18.         while(pembagi>=1);
19.         cout<<"\n";
21.         return 0;    
22. }

dari program diatas dapat kita lihat misalnya kita akan mengkonversi dari desimal dengan nilai 15 .
maka hasil outputnya akan seperti berikut ini.