bagi sobat yang mencari2 Program C++ untuk Mencari Luas keliling Lingkaran atau bertanya tanya bagaimana Program Mencari Luas keliling Lin...
Read More
Tampilkan postingan dengan label pascal. Tampilkan semua postingan
Tampilkan postingan dengan label pascal. Tampilkan semua postingan
Program pascal Pengurutan gelembung
Program Pengurutan_gelembung; uses wincrt ; type Larik = array [1..1000] of integer; Var H : Larik; stop : integer; Procedure Input ...
Read More
program pascal hitung kata dan program pascal hitung NG
dapat tugas pascal ni kemaren cara buat program pascal hitung kata dan program pascal hitung NG , izinkan saya berbagi..hehehhe program Hi...
Read More
Contoh pascal program pengurutan data
program pengurutan data; uses wincrt; const NilaiMaksimum = 1000; type Larik = array[1..NilaiMaksimum] of integer; var L : Larik; bata...
Read More
Contoh program pencarian beruntun bagi dua
uses wincrt; var L : array [1..100] of integer; n1,x1,m,hasil :integer; function BinarySearch2(n :integer; x : integer) : integer; v...
Read More
Cara menggunakan array versi 3 di program pascal
uses wincrt; var I : integer; X : array [1..5] of integer; begin writeln ('Masukkan 5 buah bilangan integer !'); for I := 1 to...
Read More
Cara menggunakan array versi 2 di program pascal
uses wincrt; type LarikInt = array [1..100] of integer; var A:LarikInt; procedure TulisLarik ( A : LarikInt; N : integer); var k : int...
Read More
Cara menggunakan array versi 1 di program pascal
uses wincrt; type LarikInt = array [1..100] of integer; var A:LarikInt; procedure BacaLarik (var A : LarikInt; N : integer); var k : i...
Read More
Cara Membuat perulangan for anak ayam menggunakan program pascal
uses wincrt; var a,i : integer; begin write ('Anak ayam yang turun = '); readln (a); for i:= a downto 1 do begin if i=1...
Read More
Cara Membuat bintang versi 2 menggunakan program pascal
uses wincrt; var i,j :integer; begin for i := 1 to 5 do begin for j := 1 to i do begin write ('*'); e...
Read More
Cara Membuat bintang versi 1 menggunakan program pascal
uses wincrt; var i,j :integer; begin for i := 5 downto 1 do begin for j := 1 to i do write (' '); begin...
Read More
mencari nilai rata2 mahasiswa menggunakan program pascal
uses wincrt; var nama,nim:string; nt,nmt,na:integer; nr :real; begin writeln (' DAFTAR NILAI MAHASISWA'); write (...
Read More
program pascal dengan menggunakan procedure
uses wincrt; procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string); var ruangan5 : string; begin ruangan5 := ruangan4; r...
Read More
mencari volume balok menggunakan program pascal
uses wincrt; var a,b,c : integer; v : real ; begin write ('masukkan panjang balok = '); readln (a); write ('masuk...
Read More
mencari luas trapesium menggunakan program pascal
uses wincrt; const t = 5; var spd,spa : integer; l :real; begin write ('masukkan nilai sisi pendek = '); readln (spd); w...
Read More
mencari macam-macam operasi dengan program pascal
uses wincrt; var x,y : integer; O1,O2,O3,O4 :real; begin write ('masukkan nilai x = '); read (x); write ('masukkan nila...
Read More
mencari luas segitiga menggunakan program pascal
uses wincrt; const t = 5; var a : integer; l : real; begin write ('masukkan nilai alas = '); readln (a); ...
Read More
mencari luas lingkaran menggunakan program pascal
uses wincrt; const t = 5; var spd,spa : integer; l :real; begin write ('masukkan nilai sisi pendek = '); readln (spd); w...
Read More
mencari luas bola dengan program pascal
uses wincrt; type bulat = integer; desimal = real; var v : desimal; r : bulat; begin write ('masukkan nilai jari-...
Read More
mencari tahun kabisat menggunakan pascal
uses wincrt; var tahun : integer; begin write ('masukan tahun :'); readln (tahun); if (tahun mod 100 = 0) then beg...
Read More
Langganan:
Postingan (Atom)