Ujian pascal Kelas IPA 1 menghitung pembelian
Nama : nama kamu
Masukkan harga barang :
Masukkan diskon masing-masing barang :
Masukkan jumlah beli :
Jumlah yang harus dibayar adalah :
Filed under: Asal Asalan
IT 4 our life
Tuliskan ilmu untuk mengingat dan berbagi
Om Swastiastu
"OM ANO BADRAH KRATAWU YANTU WISWATAH"
(Semoga pikiran baik datang dari segala arah).
Categories
- Aktifitas Mengajar
- Asal Asalan
- Berita IT
- Computer Science
- E-Book
- Fiksi
- Gadged
- kesehatan
- Motivasi Diri
- SMS Manager
- software
- Tips
Kurs (Source : BCA)
DD/TT 10-Feb-2012 / 11:29 WIB | ||
Mata Uang | Jual | Beli |
| 9125.00 | 8875.00 | |
| 7194.60 | 7179.60 | |
| 1163.60 | 1161.30 | |
| 10025.90 | 9719.90 | |
| 14447.90 | 13997.90 | |
| 9812.90 | 9508.90 | |
| 118.25 | 113.83 | |
| 1383.20 | 1332.70 | |
| 1643.00 | 1580.20 | |
| 9178.25 | 8880.25 | |
| 12126.30 | 11767.30 | |
| 2442.20 | 2358.20 | |
| 7610.75 | 7347.75 | |
| 1451.25 | 1409.15 | |
powered:getbaliholidays|rey1024
Recent Comments
IT 4 our life by resika arthana is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
program Menghitung_Pembelian;
;
;
;
;
uses crt;
var
a,b,c,d:real;
begin
writeln (‘Dewa Ayu Ika Pramitha’
writeln (‘Masukan Harga barang’
readln (a);
writeln (‘Masukan Diskon Masing-masing Barang’
readln (b);
writeln (‘Masukan Jumlah Beli’
readln (c);
d:=((a*c)-(b/100));
writeln (‘Jumlah Yang Harus Dibayar Adalah:’,d);
end.
Program menghitungpembelian;
;
;
;
;
Uses CRT;
var
a,b,c,d : real;
Begin
Clrscr;
Writeln(‘Ni Putu Sudhamantari’
Writeln(‘Masukkan harga barang’
Readln (a);
Writeln(‘Masukkan diskon masing – masing barang’
Readln (b);
Writeln(‘Masukkan jumlah beli’
Readln (c);
d:= (a*c)-(a*c*b/100);
Writeln (‘Nilai d adalah :’,d);
Readln (d);
End.