macam-macam koding pascal
1. program tentang membuat cetak angka
program Cetak_N_Angka;
uses wincrt;
var
N : integer;
k : integer;
begin
write('Jumlah Pengulangan = ');read(N);
for k:=1 to N do
writeln(k)
end.
end.
2. PROGRAM)Program Jumlah_Data;
uses wincrt;
var
x, jumlah : integer;
begin
jumlah:=0;
write('Ketikkan sembarang bilangan bulat (-99 mengakhiri)');
readln(x);
while x <> -99 do
begin
jumlah:=jumlah + x;
write('Ketikkan sembarang bilangan bulat (-99 mengakhiri)');
readln(x);
end;
writeln('Jumlah seluruh nilai = ',jumlah);
end.
3. Program Penjumlahan_Deret;
uses wincrt;
var
N, k, Jumlah : integer;
begin
write('N = ');readln(N);
Jumlah:=0;
k:=1;
repeat
Jumlah:=Jumlah + k;
k:=k+1
until k > N;
writeln('Jumlah Deret = ',jumlah);
end.
ini merupakan koding yang saya buat, walaupun sederhana, agar anda bisa mudah mempelajarinya.
sekarang anda bisa mengunakan koding tersebut buat belajar, mudah-mudahan ilmu ini bermanfaat buat anda yang ingin belajar membuat koding.
SELAMAT MENCOBA........
