Pascal membuat segitiga piramid menaik dengan while-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai segitiga piramid menaik menggunakan while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

var x,i,j:integer;
  begin
  write(‘Masukkan Nilai 1-10: ‘);
  readln(x);
  i:=1;
  j:=1;
  while (i<=x) and (x<=10) do
  begin
  j:=1;
  while(j<=i) do
  begin
  while (j<=i)do
  begin
  write(i);
  j:=j+1;
  end;
  end;
  i:=i+1;
  writeln;
 end;
  readln;
  end.

Read More

Pascal Increment While-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai increment while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

var x,a,b,c:integer;
 begin
 x:=0;
 write(‘Masukkan batas awal ‘);
 read(a);
 write(‘Masukkan batas akhir ‘);
 read(b);
 write(‘Masukkan increment ‘);
 read(c);
 while (a<=b) do
 begin
 x:=x+a;
 writeln(‘Nilai a ‘,a);
 a:=a+c;
 end;
 writeln(‘Jumlahnya ‘,x);
 readln;
 readln;
 end.

Read More

Pascal Pengurangan 3 While-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai pengurangan 3 while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

uses crt;
 var a: integer;
 begin
 clrscr;
 a:=15;
 repeat
 writeln(a);
 a:= a-3;
 until a<3;
 readln;
 end.

Read More

Pascal Looping while-do

 Selamat datang temen-temen yang sudah mau meluangkan waktunya berkunjung diblog ini. Disini saya akan membahas tentang pemrograman menggunakan pascal, mengenai looping while-do. enggak usah lama-lama langsung saja ketkp. Seperti inilah scrip untuk pascal selamat mencobanya.

uses crt;
 var i, n, jumlah: integer;
 begin
 clrscr;
 writeln('menjumlahkan deret 1+2+3+..+n');
 writeln;
 write('masukkan nilai n: ');readln(n);
                jumlah:=0;
                i:=1;
 while i<=n do
 begin
 jumlah:=jumlah+i;
 i:=i+1;
 end;
 write('deret dari 1 sampai : ',n,' = ',jumlah);
 readln;
 end.

Read More