a. nah ni dia cara mencari pengurangan dengan menggunakan pascal. Ok setelah penjumlahan mari kita cekedot ke pengurangan..hehehhe
Program Pengurangan_total_tiga_buah_bilangan ;
{ diberikan tiga buah bilangan a, b, c kemudian ketiga bilangan tersebut dikurangkan seluruhnya }
uses wincrt ;
var
a, b, c, kurang_total : integer ;
begin
readln (a) ;
readln (b) ;
readln (c) ;
kurang_total := a - b - c ;
writeln ( 'kurang_total =' , kurang_total) ;
end.
You May Like :
Related Posts :
Cara Membuat bintang versi 1 menggunakan program pascaluses wincrt;
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
&nb… Read More...
mencari luas lingkaran menggunakan program pascaluses wincrt;
const
t = 5;
var
spd,spa : integer;
l :real;
begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan … Read More...
program pascal dengan menggunakan procedureuses wincrt;
procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);
var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan… Read More...
mencari luas bola dengan program pascaluses wincrt;
type
bulat = integer;
desimal = real;
var
v : desimal;
r : bul… Read More...
Cara Membuat bintang versi 2 menggunakan program pascaluses wincrt;
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
begin
&… Read More...
mencari macam-macam operasi dengan program pascaluses wincrt;
var
x,y : integer;
O1,O2,O3,O4 :real;
begin
write ('masukkan nilai x = ');
read (x);
write ('masukkan nilai y = ');
read (y);… Read More...
mencari volume balok menggunakan program pascaluses wincrt;
var
a,b,c : integer;
v : real ;
begin
write ('masukkan panjang balok = ');
readln (a);
write ('masu… Read More...
mencari luas trapesium menggunakan program pascaluses wincrt;
const
t = 5;
var
spd,spa : integer;
l :real;
begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan n… Read More...
mencari nilai rata2 mahasiswa menggunakan program pascaluses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
begin
writeln (' DAFTAR NILAI MAHA… Read More...
mencari luas segitiga menggunakan program pascaluses wincrt;
const
t = 5;
var
a : integer;
l : real;
begin
write ('masukkan nilai alas… Read More...
0 Response to "Pascal Program pengurangan"
Posting Komentar