contoh program looping piramida setengah kanan pascal

contoh kode dan program

uses wincrt;

var
m,n,i,j : integer;

begin

writeln('Masukkan Angka Untuk Gambar Segitiga : ');readln(n);

for i:=n downto 1 do
begin
for j:=i-1 downto 1 do
write(' ');

for m:=n-(i-1) downto 1 do
write('*');
writeln;
end;



end.


contoh program:

program pascal perkalian menggunakan looping

contoh kode looping perkalian:

uses wincrt;
var
 a,n,i,hasil:integer;
begin
clrscr;
write('masukan angka yag di kali :');readln(a);
write('total angka yang ingin dikali:');readln(n);
hasil:=0;
writeln;
writeln('hasil pengulangan');
writeln;
for i := 1 to n do
begin
hasil := hasil + a;
writeln(i,'x',a,'=',hasil);
end;
readln;
end.        

contoh hasil dari kode di atas:

Contoh program pascal looping menghitung pangkat:

Contoh program pascal looping pangkat:

uses wincrt;
var
i,x,y,hasil :integer ;
begin
clrscr;
write('nilai :');readln(x);
write('pangkat:');readln(y);
hasil:=1;
for i :=1 to y do
hasil:=hasil*x;
writeln('hasil : ',hasil);
readln;
end.

contoh hasil program:

cara membuat program data mahasiswa menggunakan looping

Pengertian Perulangan FOR DO dalam Pascal

Perulangan, atau looping dalam bahasa inggris, adalah konsep pemrograman dimana kita mengulang baris program beberapa kali. “Beberapa kali” disini bisa dikatakan tidak terbatas, selama komputer masih bisa mengolahnya.

---

Contoh Kode Program PASCAL untuk Perulangan FOR DO

Sebagai contoh pertama, saya ingin membuat data mahasiswa berikut kode program nya:

uses wincrt;
var
 nama,nim ,jurusan : string;
 i,n :byte;
begin
write('masukan jumlah data :');readln(n);
clrscr;
for i :=1 to n do
begin

writeln('selamat datang di data ke -',i,'');
write('masukan nama mahasiswa :');readln(nama);
write('masukan nim mahasiswa :');readln(nim);
write('masukan jurusan mahasiswa :');readln(jurusan);
end;
end.

Di bagian var, saya membuat sebuah variabel  nama,nim ,jurusan  dengan tipe data string.

inilah hasil dari kode di atas