tantangan pak bolot.

[headscout]

Sip, Bob... Program nya dah makin efisien... Makan memory nya jadi makin kecil... Tapi tetep euy kalau masukin 10 tampilan nya kurang sreg... Kenapa, ya? >.<
Bugs-Fixed : Program Efficiency
Bugs         : tampilan bergeser di n = 10

[Anta]

Yah kalo gw yang nilai dapat nilai 90 dah buat dodo...
5 point berkurang gara gara indentasinya acak-acakan, kalo gw jadi dosen c pasti gw kurangin 15 point buat indentasi yang acak acakan (indentasi acak acakan = bunuh diri)...

ni yang lebih dinamis dan lebih optimal:

Code: [Select]

program pTabelPenjumlahan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x , y, n : integer;

begin
   write('Masukan nilai n : ');readln(n);
   for y := -1 to n do
   begin
    for x := 0 to n do
    begin
       if (y = -1) and (x = 0) then
          write('+  ||')
       else if (y = -1) then
          write(x:3,' |')
       else if (y = 0) then
          write('-----')
       else if (x = 0) then
          write(y:3,'||')
       else
          write(x+y:3,' |');
    end;
    writeln;
   end;
   readln;
end.


kesalahan si dodo, yang jadi ga ngestrech

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:3,' |  '); // <--- salah
      writeln;
  end;

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

readln; 

end.


[bobby hr'w'n]

wah hebat do,tinggal jawab yang ke dua neh.. btw nge strech tuh apa k ? apa ada eror nya??

kalo tabel penjumlahannya sih emang ada eror nya tadi gw coba ada yang tak terdefenisi,gara2 si 'kali' itu..

nah ngomong2 soal strech apa tuh?hehehehe..gak ngerti

[Anta]

ngestretch tuh nyamain panjang si tabelnya.
yang pake gini lho writeln('lebar si angka = 5 |',angka:5,'|');

oh gw blm ngasih nilai si bobby yak, hehehe bobby 80 aja dhe.. ga dinamis plus copy paste

[bobby hr'w'n]

wekekekekekek...lagian si dodo yang nemuin yang dinamis,gw mah gak kepikiran,tinggal nurutin..hehehehe... maklum masih belajar,jarang latihan sih..baru latihan pas dikasih soal ini ajah 

[headscout]

Wah... dikirain for (integer) ngga bisa pake angka minus. Soalnya selama ini pake for tanpa angka minus... Hoho... Oke, thanks K Anta... ^.^

[Dhanny]

sedikit ditambahin deh
do, kl maw rapi pake program u tuh
bisa ditambahin perintah gotoXY
(jgn lupa console.pas nya) hehe

buat for, kan deklarasi variabel pencacahnya : integer
n kita tahu bahwa integer bisa minus
jadi buat pencacah jelas bisa pake minus

coba liat diktat g yg buat anak UNPAR
rasanya g upload jg da
nama filenya : jadi_edit.doc

[headscout]

sedikit ditambahin deh
do, kl maw rapi pake program u tuh
bisa ditambahin perintah gotoXY
(jgn lupa console.pas nya) hehe

buat for, kan deklarasi variabel pencacahnya : integer
n kita tahu bahwa integer bisa minus
jadi buat pencacah jelas bisa pake minus

coba liat diktat g yg buat anak UNPAR
rasanya g upload jg da
nama filenya : jadi_edit.doc

Oke... thanks banyak, Pa... Nanti saya download di Download Station nya... ^_^ Sekalian nyari-nyari, pengen tahu tentang ekstensi .pas...

[awan]

iseng yang rapih...

Code: [Select]

program PTabelJumlah;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i,j,n,x,hias : integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln;
  writeln(' Program Tabel Penjumlahan');
  write(' Mau Berapa Baris? ');readln(n);
  writeln;

  write('     ');
  for i := 1 to n do
    write(i:5);
  writeln;
  write(' ');

  hias := n*5 + 5;
  for i := 1 to hias do
  write('-');
  writeln;

  for i := 1 to n do
  begin
    write(' ',i:2,'| ');

      for j := 1 to n do
      begin
        x := i + j;
        write(x:5);
      end;
      writeln;

  end;

  readln;
end.