Program Turbo Pascal Bilangan Genap Ganjil & Mata Uang (manual dan Otomatis)

Penasaran . . . . . . . . . .( Baca selengkapnya )

Contoh Bilangan Ganjil Genap
program ganjil_genap;
uses wincrt;
var a,b:integer;
Ul:Char;
begin
Repeat
Clrscr;
writeln ('==============');
write ('bilangan 1 s/d ');readln(a);
for b:=1 to a do
if (b mod 2=0) then
begin
writeln (b,'. bilangan genap');
end
else
begin
if (b mod 2<>0)then
writeln (b,'. bilangan ganjil');
end;
writeln ('==============');
writeln ('thanks yo rek xp');
Writeln;
Write('Belum Puaskah ? (Y/T): ');
Ul:=Upcase(ReadKey);
Until (Ul<>'Y');
end.
=============================
Contoh Program Mata Uang (otomatis)
program terbilang_rekursi;
uses
wincrt;
function terbilang(x:longint):string;
function bilang(x:longint):string;
begin
case x of
0:bilang:='';
1:bilang:='satu';
2:bilang:='dua';
3:bilang:='tiga';
4:bilang:='empat';
5:bilang:='lima';
6:bilang:='enam';
7:bilang:='tujuh';
8:bilang:='delapan';
9:bilang:='sembilan';
10:bilang:='sepuluh';
11:bilang:='sebelas';
end;
end;

begin
if x<12 then terbilang := ' ' + bilang(x) else if x<20 then terbilang:=terbilang(x-10)+'belas' else if x<100 then terbilang:=terbilang(x div 10)+'puluh'+terbilang(x mod 10) else if x<200 then terbilang:='seratus'+terbilang(x-100) else if x<1000 then terbilang:=terbilang(x div 100)+'ratus'+terbilang(x mod 100) else if x<2000 then terbilang:='seribu'+terbilang(x-1000) else if x<1000000 then terbilang:=terbilang(x div 1000)+'ribu'+terbilang(x mod 1000) else if x<1000000000 then terbilang:=terbilang(x div 1000000)+'juta'+terbilang(x mod 1000000) else terbilang:=terbilang(x div 1000000000)+'milyar'+terbilang(x mod 1000000000); end; var i:longint; lanjut:char; begin repeat writeln('==============='); write('masukkan angka:');readln(i); writeln('terbilang:',terbilang(i)); write('Lagi? (Y/T)');readln(lanjut); until (lanjut='t')or(lanjut='T'); end. ================================ 
contoh program mata uang manual dengan if silahkan download disini
Untuk Program mata uang otomatis bisa di download disini

Tweet

Subscribe to receive free email updates: