tugas pbo 3 klik disini
Postingan
GAME KU
- Dapatkan link
- X
- Aplikasi Lainnya
game educatiaon 45 game yang dibuat untuk anak sd kelas satu ini sangat menarik game ini seperti kuis online akan tetapi dibuat dengan menggunakan unsur permainan. sehingga game ini sangat menarik. game ini menggunakan dua cra pembuatan yaitu dengan flash flayer dan power point, jadi ini bsa dimainkan dengan dua mode sehingga dapt menyesuaikan kemampuan usernya akan tetapi game ini masih dalam pengembnangan sehingga masih ada kekurangan oleh karena itu mohon kritik dan saran pembaca untuk kami agar dapat berkembang lebih baik game education 45 download klik disini
menu kalkulator
- Dapatkan link
- X
- Aplikasi Lainnya
program menu_kalkulator; {membuat menu kalkulator} uses wincrt; var pilih, A, B : longint; begin clrscr; writeln ('Menu Kalkulator'); writeln ('1. Penjumlahan'); writeln ('2. Pengurangan'); writeln ('3. Perkalian'); writeln ('4. Pembagian'); write ('Pilih (1 sampai 4) = '); read (pilih); case pilih of 1 : writeln ('Anda memilih penjumlahan'); 2 : writeln ('Anda memilih pengurangan'); 3 : writeln ('Anda memilih perkalian'); 4 : writeln ('Anda memilih pembagian'); else writeln ('Silakan coba lagi, Nomor yang anda pilih tidak ada dalam pilihan diatas'); end; write ('Masukkan nilai = '); ...
bubble pas
- Dapatkan link
- X
- Aplikasi Lainnya
uses wincrt; const max=100; var data:array [0..max] of integer; i,j,n:integer; procedure input; begin write('Masukkan banyak data yang anda inginkan = ');readln(n); for j:=1 to n do begin write('Data[',j,'] = '); readln(data[j]); end; end; procedure tukar(var a,b:integer); var temp:integer; begin temp:=a; a:=b; b:=temp; end; procedure bubble_sort_ascending; begin for i:=1 to n-1do for j:=1 to n-i do if data[j]>data[j+1] then tukar(data[j],data[j+1]); end; procedure bubble_sort_descending; begin for i:=1 to n-1do ...