Hai. Kali ini saya akan ngeshare Sebuah program sederhana yang saya buat dari Turbo Pascal.. Program ini terinspirasi dari anak SMP yang susah betul mencari Suku Bilangan :) Ohya, program ini masih menggunakan fungsi yang sederhana juga.. kalau ada salah debenerin ya :)
Cekidot Gan!
Program Mencari_suku_Bilangan;
uses wincrt;
var
a,b,n,Un,Sn : Integer;
Dilema,Akhir : Char;
label
awal,Baris,Deret;
begin
awal:
clrscr;
writeln('----*** Pola Barisan Dan Deret Aritmetika by M.Riksa Rizky F ***-----');
writeln;
writeln('Tekan (B) Untuk Barisan, Tekan (D) Untuk Deret');
readln(Dilema);
if(Dilema='B') or (Dilema='b')then goto Baris;
if(Dilema='D')or (Dilema='d')then goto Deret;
Baris:
clrscr;
writeln('Masukkan Nilai Suku Yang Akan Diketahui Nilainya');
readln(n);
writeln;
writeln('Masukkan Suku Awal atau U1');
readln(a);
writeln;
writeln('Masukkan Nilai Beda');
readln(b);
Un:=a+(n-1)*b;
writeln;
writeln('------*** Hasil ***------');
writeln;
writeln('Diketahui');
writeln;
writeln('Suku Yang Akan dicari Sebesar : ', n);
writeln('Suku Awal Sebesar : ', a);
writeln('Nilai Beda Sebesar : ', b);
writeln('Maka, Suku Ke n= Un=a+(n-1)b : ', Un);
writeln;
writeln('--------------------------');
writeln('Ingin Mencoba Lagi? (Y/T)');
readln(Akhir);
if(Akhir='Y')or(Akhir='y')then goto awal;
Deret:
clrscr;
writeln('Masukkan Suku Yang Akan Diketahui Jumlahnya');
readln(n);
writeln;
writeln('Masukkan Suku Awal atau U1');
readln(a);
writeln;
writeln('Masukkan Nilai Beda');
readln(b);
Sn := n*2 div 4*(2*a+(n-1)*b);
writeln('-----*** Hasil ***-----');
writeln;
writeln('Diketahui');
writeln('Suku ke n Sebesar : ', n);
writeln('Suku Awal Sebesar : ', a);
writeln('Nilai Beda Sebesar : ', b);
writeln('Maka, Deret n= 1/2n(2a+(n-1)b) Sebesar : ', Sn);
writeln;
writeln('--------------------------');
writeln('Ingin Mencoa Lagi? (Y/T)');
readln(Akhir);
if(Akhir='Y')or(Akhir='y') Then Goto awal;
end.
Ini Saat Di Debug..