Pemrograman Pascal

selamat datang diblog saya.saya ingin berbagi ilmu tentang bahasa pemrograman pascal mengenai Looping while-do...

 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.

semoga bermanfaat..jangan lupa untuk berkunjung kembali dan memberi komentar..

selamat datang diblog saya.saya ingin berbagi ilmu tentang bahasa pemrograman Pascal mengenai Program Pengurangan 3 While Do.Contoh Program Pengurangan 3 while-do pascal.

 uses crt;

 var a: integer;

 begin

 clrscr;

 a:=15;

 repeat

 writeln(a);

 a:= a-3;

 until a<3;

 readln;

 end.

semoga bermanfaat..jangan lupa untuk berkunjung kembali dan memberi komentar..

selamat datang diblog saya.saya ingin berbagi ilmu tentang bahasa pemrograman pascal mengenai program Increment menggunakan while-do.Contoh program Increment menggunakan while-do.

 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.

semoga bermanfaat..jangan lupa untuk berkunjung kembali dan memberi komentar..

selamat datang diblog saya.saya ingin berbagi ilmu tentang bahasa pemrograman pascal mengenai program segitiga piramid menaik menggunakan while – do.Contoh program segitiga piramid menaik menggunakan while – do.

 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.

semoga bermanfaat..jangan lupa untuk berkunjung kembali dan memberi komentar..