a. Baiklah saya akan mulai membahas yang namanya program pascal,yuk mari kita belajar pascal sama2...teman2 harus punya software nya ya, bisa TPW atau free pascal, nah kali ini saya akan membahas program mencari penjumlahan...
Program Penjumlahan_total_tiga_buah_bilangan ;
{ diberikan tiga buah bilangan a, b, c kemudian ketiga bilangan tersebut dijumlahkan seluruhnya }
uses wincrt ;
var
a, b, c : integer ;
jumlah_total : integer ;
begin
readln (a) ;
readln (b) ;
readln (c) ;
jumlah_total := a + b + c ;
writeln ( 'jumlah_total =' , jumlah_total) ;
end.
silahkan di paste ke TPW atau free pascal dan pilih run..compile,,,atau tekan f9...jgn lupa dari uses wincrt sampai end ya di copas.
You May Like :
Related Posts :
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 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...
Pascal Program Mencari Derajat Suhumencari derajat suhu dengan menggunakan pascal , ni dia...
uses wincrt;
var
c,k,f : real;
begin
write ('masukkan derajat celcius = ');
readl… Read More...
mencari tahun kabisat menggunakan pascaluses wincrt;
var
tahun : integer;
begin
write ('masukan tahun :'); readln (tahun);
if (tahun mod 100 = 0) then
&n… Read More...
Cara Mencari nilai rata-rata menggunakan pascalbaikalah sekarang kita coba lihat contoh mencari nilai rata2 ,,,
cekedot..
uses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;
… 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...
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...
mencari luas segitiga menggunakan program pascaluses wincrt;
const
t = 5;
var
a : integer;
l : real;
begin
write ('masukkan nilai alas… 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...
0 Response to "Pascal Program mencari penjumlahan"
Posting Komentar