Program pascal : Deret angka dengan function

var
x : integer;
function maks(nilai,x:integer):integer;
begin
if nilai=x then
maks:=x
else
maks:=x;
end;
begin
writeln('masukan nilai : ');
readln(x);
for x := 1 to x do
write(' ',x);
readln;
end.

Comments

Post a Comment

Popular posts from this blog

Pengertian Website & Web Portal beserta contohnya

Image
Definisi Website Website adalah kumpulan dari halaman - halaman situs, yang terangkum dalam sebuah domain atau subdomain, yang tempatnya berada di dalam World Wide Web ( WWW ) di dalam Internet. Sebuah halaman web biasanya berupa dokumen yang ditulis dalam format HTML ( Hyper Text Markup Language ), yang selalu bisa diakses melalui HTTP, yaitu sebuah protokol yang menyampaikan informasi dari server website untuk ditampilkan kepada para pemakai melalui web browser.dan Website atau situs dapat juga diartikan sebagai kumpulan halaman yang menampilkan informasi data teks, data gambar diam atau gerak, data animasi, suara, video dan atau gabungan dari semuanya, baik yang bersifat statis maupun dinamis yang membentuk satu rangkaian bangunan yang saling terkait dimana masing-masing dihubungkan dengan jaringan-jaringan halaman (hyperlink).
Read more

Game Tebak Angka Function sederhana

var angka,tebakan :longint; ulang:char; function tebak(angka,benar,salah:integer):integer; begin if angka=benar then tebak:=benar else tebak:=salah; end; begin repeat randomize; angka:=random(10); {Proses pengacakan angka} Writeln('tebak angka 1 sampai 10');readln(tebakan); if angka = tebakan then writeln('selamat tebakan anda Benar!!!!') else writeln('maaf tebakan anda salah'); readln; repeat begin write ('apa ingin main lagi? (Y/T) ');readln(ulang); end; until (ulang='y')or(ulang='Y')or(ulang='t')or(ulang='T'); until (ulang='t') or (ulang='T'); {Syarat repeat pertama} end.
Read more

Game Tebak Angka menggunakan perintah Function

var tebak,angka : longint; i,kesempatan,tingkat,sulit : Integer; ulang : char; function tebakan(angka,benar,salah:integer):integer; begin if angka=benar then tebakan:=benar else tebakan:=salah; end; begin repeat randomize; angka:=random(1000); {Proses pengacakan angka} writeln (' Game Tebak Angka'); writeln (' By Rian Novendri '); writeln; writeln ('Angka berada pada 0-1000 '); writeln ('selamat bermain '); repeat begin writeln; writeln('Pilih tingkat kesulitan '); writeln ('1. Mudah (Tebak 10x)'); writeln ('2. Menengah (tebak 9x) ' ); writeln ('3. Sulit (tebak 8x) '); readln (tingkat); end; until (tingkat=3)or(tingkat=2)or(tingkat=1); case tingkat of 1 : sulit:=11; 2 : sulit:=10; 3 : sulit:=9; end; for i:=1 to sulit do begin kesempatan:=sulit-1-i; if (i=sulit) then begin writeln; writeln (' **************************************'); writeln (' GAME OVER!!!!!!!! ...
Read more