tantangan pak bolot.

[Anta]

pak bolot sedang kebingungan karena anaknya menanyakan sebuah program untuk menampilkan tabel matematika penambahan dan perkalian seperti ini...

Code: [Select]

*  |  1 |  2 |  3 |  4 |  5 |
  1 |  1 |  2 |  3 |  4 |  5 |
  2 |  2 |  4 |  6 |  8 | 10 |
  3 |  3 |  6 |  9 | 12 | 15 |
  4 |  4 |  8 | 12 | 16 | 20 |
  5 |  5 | 10 | 15 | 20 | 25 |
dan

Code: [Select]

+  |  1 |  2 |  3 |  4 |  5 |  6 |
  1 |  2 |  3 |  4 |  5 |  6 |  7 |
  2 |  3 |  4 |  5 |  6 |  7 |  8 |
  3 |  4 |  5 |  6 |  7 |  8 |  9 |
  4 |  5 |  6 |  7 |  8 |  9 | 10 |
  5 |  6 |  7 |  8 |  9 | 10 | 11 |
  6 |  7 |  8 |  9 | 10 | 11 | 12 |
anaknya juga meminta agar ia dapat menginputkan nilai maksimalnya (dalam kasus penambahan nilai maksimal 6 dan dalam kasus perkalian nilai maksimal 5)...

tolongin pak bolot ya...


LEVEL : PEMULA SEKALI

[Dhanny]

wah ini sih bener" tantangan yg super mudah
hehehe
harusnya bisa dijawab cepet lha
kan dah pernah dibahas di kelas
hehe

[bobby hr'w'n]

nih gw jawab atuh....sory yah kalo gak rapih tow salah...hehehehe....masih belajar...

Code: [Select]

program ptabel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln(' *   ]    1   2   3   4   5');
  writeln('------------------------------');


  for i:=1 to 5 do
  begin
        write(i,']');
        for j:= 1 to 5 do
                write(i*j: 4);
        writeln;
  end;
  readln;
end.
yang kedua

Code: [Select]

program ptabel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln(' *   ]    1   2   3   4   5  6');
  writeln('------------------------------');


  for i:=1 to 6 do
  begin
        write(i,']');
        for j:= 1 to 6 do
                write(i+j: 4);
        writeln;
  end;
  readln;
end.

[Anta]

ada yang kurang... kan mintanya bisa dinamis tabelnya...
kalo masukin n = 5 keluarnya perkalian/penambahan dari 1 ampe 5, kalo masukin n = 6 perkalian/penambahan dari 1 sampe 6, dst

[Dhanny]

huaduh, bob
jgn disalin mutlak gt dong
yg dari penjelasan di kelas
wkkkkk

ada sedikit yg harus di modif tuh
jd jumlah datanya (angkanya) harus diinput
bukan ditembak lgs kaya gt
hehe

jadi maksudnya tuh
kl diminta tabel perkalian sampe 7,
yah datanya harus ampe 7 (7 x 7)
kl diminta ampe 10,
yah data di dalam tabelnya harus ampe 10 (10 x 10)
itu maksudnya dinamis tuh

[bobby hr'w'n]

wkwkwkwkwkwkwkwkwk..... tapi gak semuanya di salin mutlak pa,ada dikit modif nya,kan di kelas cuma perkalian ada pertambahannya tuh...wkwkwkwkwkwkwkwk...

oooo
jadi ada masukan nya dulu gitu??misal n=? dmasukin 5 jadi tabelnya jadi perkalian / pertambahan 5 gitu bkan??ntar di coba heula,


baru pulang dari kampus neh..wekekekkekekek...

[Dhanny]

oooo
jadi ada masukan nya dulu gitu??misal n=? dmasukin 5 jadi tabelnya jadi perkalian / pertambahan 5 gitu bkan??ntar di coba heula baru pulang..wekekekkekekek...

tul tuh

OOT dikit:
eh, itu kalimatnya,
kl maw,
bo, yah
dikasi titik, ato koma gt
jd ga pusing bacanya

kal u kan bisa diartiin,
u maw nyoba dl, trus kl dah bisa baru pulang

[bobby hr'w'n]

nih gw post lagi..tapi tampilannya super jelek neh  kan belajar,hehe..ada yang punya saran gak??gw dah pake :6 misal nya teh,supaya jadi lebih rapih gimna tuh??

nih

Code: [Select]

program ptabel_dinamis;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j:integer;
var n:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('untuk nilai n dari 1-7');
  writeln('========================');
  write('masukan nilai n  =');readln(n);
  writeln(' *   !    1   2   3   4   5  6  7');
  writeln('---------------------------------');


   if n=1 then
   for i:=1 to 3 do
   begin
        write(i,'!');
        for j:= 1 to 1 do
                write(i*j: 4);
        writeln;
        end

   else if n=2 then
   for i:=1 to 3 do
   begin
        write(i,'!');
        for j:= 1 to 2 do
                write(i*j: 4);
        writeln;
        end


  else if n=3 then
  for i:=1 to 3 do
  begin
        write(i,'!');
        for j:= 1 to 3 do
                write(i*j: 6);
                writeln
   end
   else if n=4 then
   for i:=1 to 3 do
  begin
        write(i,'!');
        for j:= 1 to 4 do
                write(i*j: 6);
        writeln;
        end
        else if n=5 then
   for i:=1 to 3 do
   begin
        write(i,'!');
        for j:= 1 to 5 do
                write(i*j: 6);
        writeln;
        end
        else if n=6 then
   for i:=1 to 3 do
   begin
        write(i,'!');
        for j:= 1 to 6 do
                write(i*j: 6);
        writeln;
        end
        else if n=7 then
   for i:=1 to 3 do
   begin
        write(i,'!');
        for j:= 1 to 7 do
                write(i*j: 6);
        writeln;
        end
        else writeln('eror euy lihat keterangan di atas!!');
  readln;
end.

[Anta]

akh, kurang dinamis!, masak cuma bisa 1-7... masih cuma 75 nilainya...
coba dibenarkan lagi dik...

[bobby hr'w'n]

maksimalnya ampe berapa k anta?tak hingga tow ada batas nya?

[Anta]

maksimal 20 lah.
tapi cara coding lu yang dibawah kalo di kopi paste lagi enggak efektif...
- program harus bisa membuat tabel otomatis dan bener bener otomatis

[Dhanny]

maksimalnya ampe berapa k anta?tak hingga tow ada batas nya?

harusnya sih bisa ga terbatas

jgn pake if kaya gt, bob
ga efektif

ok, sedikit petunjuk deh
soalnya g liat postingan u tll mirip ama yg di kelas
n u jd terjebak kaku disitu

Code: [Select]

  writeln(' *   !    1   2   3   4   5  6  7');
  writeln('---------------------------------');

perhatiin code yg itu
nah, baris pertamanya jg harus bisa dibuat dinamis
jd u bisa tidak bergantung ama si baris pertama itu
(alias :
    perintah for sudah digunakan sebelum perintah writeln tsb)
n harus dimodif dikit
hehe

tul, ga, bang Anta?

ayo nih yg laennya mana?

[bobby hr'w'n]

ok2 ntar gw rubah lagi,tapi kalkulus sudah menunggu,wwekekekekekekekke....

ooo berarti harus dinamis juga toh yang atas nya...hmmm...asik juga

[headscout]

Tabel perkalian

Code: [Select]

program pTabelperkalian;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a , b, i : integer;
    kali : real;
    n : integer;

begin
write('Masukan nilai n : ');readln(n);

begin
  begin
      //ultra-dynamic table stretching
      write('x  |  ');
      for i := 1 to n do
      write(i,'   |  ');
      writeln;
  end;

  begin
      //automated multiplier
  for a := 1 to n do
     begin
     write(a , '  |');
     for b := 1 to n do
       begin
       //multiplier process
       kali := a*b;
       write(kali:3:0, '   |');
       end;
       writeln;
     end;
  end;
end;

readln; 

end.


Tabel penjumlahan

Code: [Select]

program pTabelPenjumlahan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a , b, i : integer;
    jumlah : real;
    n : integer;

begin
write('Masukan nilai n : ');readln(n);

begin
  begin
      //ultra-dynamic table stretching
      write('+  |  ');
      for i := 1 to n do
      write(i,'   |  ');
      writeln;
  end;

  begin
      //automated adder
  for a := 1 to n do
     begin
     write(a , '  |');
     for b := 1 to n do
       begin
       //adder process
       jumlah := a+b;
       write(kali:3:0, '   |');
       end;
       writeln;
     end;
  end;
end;

readln; 

end.


Bugs-fixed : Tidak ada batas maximum dalam pemasukan nilai di tabel ini (dynamic table stretching).
Bugs         : [TAMPILAN] perkalian dan penjumlahan mulai dari 10 x 10 dan 10 + 10 semakin maju tabelnya.

[bobby hr'w'n]

wih bagus do gw gak kepikiran si n itu,wkwkwkwkwkwwk...iya yah tinggal 1 to n ajah dia bakal otomatis liat si n,  ..mantaph...nih gw betulin lagi yang waktu itu...

Code: [Select]

program ptabel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,n,j:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('masukan nilai n  =');readln(n);
  for i := 1 to n do
  write(i:4);
  writeln;
  writeln('------------------------------');



  for i:=1 to n do
  begin
        write(i,'!');
        for j:= 1 to n do
                write(i*j: 4);
        writeln;
  end;
  readln;
end.