uses wincrt;
var
nama_barang : array[1..20] of string;
harga : array[1..20] of real;
banyak : array[1..20] of byte;
kata,grs :string;
x,y,i,j :byte;
Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
clrscr;
grs:='==================================================================';
Tampilkan postingan dengan label Programer. Tampilkan semua postingan
Tampilkan postingan dengan label Programer. Tampilkan semua postingan
program stack
program hka;
uses wincrt;
label awal;
const max = 25;
type stack = record
a,b,c,d,e : array [1..7] of string;
top : 0..max;
end;
recdata = record
nm,jn,al : string;
jm,hr : string;
end;
uses wincrt;
label awal;
const max = 25;
type stack = record
a,b,c,d,e : array [1..7] of string;
top : 0..max;
end;
recdata = record
nm,jn,al : string;
jm,hr : string;
end;
Programa Menghitung_gaji
hai blogger setia n bgi para progremer ni aq ada sedikit program tentang penghitungan gaji ni..
program ini aq buat wktu aq saat responsi jdi smga program yg aq brikan ini bisa brman faat untuk pra progremer ni..
selamt mncoba ya...
Contoh Penghitungan Gaji
Ketentuan Soal :
1. Nama Di input
2. Jabatan di input ,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
OB 800000 1% dari gaji
3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
Jawabannya:
program ini aq buat wktu aq saat responsi jdi smga program yg aq brikan ini bisa brman faat untuk pra progremer ni..
selamt mncoba ya...
Contoh Penghitungan Gaji
Ketentuan Soal :
1. Nama Di input
2. Jabatan di input ,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
Jawabannya:
Program Percobaan erro ni heheh lucu kan...
hai sobat semua ini ada sedikit program yang aga unik sih tpi aq akan berbgi untuk kalian ni ada program yang buatnya erro jdi bgi kalian programer ini coba program yang aq ksih buat kalian ni....
Program coba_error;
uses wincrt;
var
F : text;
s : string;
begin
clrscr;
write('Input file name to read : '); readln(s);
assign(F,s);
{$I-}
reset(F);
{$I+}
if IOresult<>0 then
begin
writeln(‘terjadi kesalahan pada pembacaan file',s);
halt;
end;
while not EOF(F) do
begin
readln(F,s);
writeln(s);
end;
close(F);
end.
Programa Bilangan Prima
sobat ini saya mau kasih sedikit dari hasil kulia saya tentang pemrograman ni bagi kalian para programer ini saya ada sebuah program yang lumayan bagus ni semoga bisa berguna ya....
Program Bil_Prima_Antara;
Uses Crt;
Var
awal, akhir, a, b, jumlahnol : Integer;
Begin
Clrscr;
Write('Masukan nilai awal = ');readln(awal);
Write('Masukan nilai akhir = ');readln(akhir);
For a := awal To akhir Do
{Telah kita ketahui bahwa bilangan prima hanya akan memiliki sisa bagi = 0, ketika dibagi dengan angka 1 dan bilangan itu sendiri}
Begin
