adamrezky050

yang download klik sini ya

tugas pbo 3 klik disini

PBO KELAS B MATERI DOWNLOAD

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

ironman3

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 = ');                read (A);                write ('Masukkan nilai kedua = ');                read (B);                                case pilih of                1 : writeln ('Hasil = ' ,A + B);                2 : writeln ('Hasil =

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           for j:=1 to n-i do               if data[j]<data[j+1] then                  tukar(data[j],data[j+1]);   end; procedure option; var pilih:byte; begin      repeat            write('Pilih (Ascending=1)/(Descending=2)/(Exit=3) = ');            readln(pilih);            if pil

Uses winCrt; Type      Point =  ^Rec;      Rec   =  record                   isi : char;                   next: Point;               end;      queue = record                   Head : Point;                   Tail : Point;              end; var      Q   : queue;      i,k : byte;        { i = tinggi_stack } Procedure GambarPipa; Var y  : byte;  begin      GotoXY(39,8);write('\       /');      For y:=1 to 10 do       begin            GotoXY(40,y+8);write('³');            GotoXY(46,y+8);write('³');       end;      GotoXY(40,19);write('À³   ³Ù');      GotoXY(61,21);write('\');      GotoXY(61,23);write('/');  end; Function Empty: boolean;  begin      if Q.Head = nil then          Empty:= True  else          Empty:= False;  end; Function Full: boolean;  begin      if i = 10 then          Full:= True else          Full:= False;  end; Procedure Enqueue;

uses wincrt; const max=50; var mbA,mkA,mbB,mkB,a,b,c:integer;     matrix1,matrix2,matrix3:array[1..max,1..max]of integer; begin      writeln('perkalian matrix');      repeat      write('masukkan jumlah baris matrixA : ');readln(mbA);      write('masukkan jumlah kolom matrixA : ');readln(mkA);      write('masukkan jumlah baris matrixB : ');readln(mbB);      write('masukkan jumlah kolom matrixB : ');readln(mkB);      if mkA<>mbB then      writeln('masukan anda salah');      until mkA=mbB;      for a:=1 to mbA do      begin       for b:=1 to mkA do       begin        write('A[',a,',',b,']','=');        readln(matrix1[a,b]);       end;      end;      for a:=1 to mbB do      begin       for b:=1 to mkB do       begin        write('B[',a,',',b,']','=');        readln(matrix2[a,b]);       end;      end;      for a:=1 to mbA do      begin