Program Baca Berpasangan dengan Looping (Latihan Turbo Pascal)

By ·
Looping pada pascal menggunakan beberapa perintah seperti :
for...to.. do;
For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;
while..do;
dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pada postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until).

Berikut ini adalah program Baca Berpasangan dengan Looping pada Turbo Pascal:

begin

  Uses WinCrt;
Var
  X,Y,Rx,Ry,Jx,Jy : real;
  Nx,Ny,i : integer;
Begin
  ClrScr;
  Write('Masukkan Banyaknya X :');Readln(Nx);
  Write('Masukkan Banyaknya Y :');Readln(Ny);
    If Nx = Ny then
       For i:=1 to Nx Do
       begin
         Write('Data X ke-',i,' = ');Readln(X);
         Write('Data Y ke-',i,' = ');Readln(Y);
         Jx:=Jx+X;
         Jy:=Jy+Y;
       end
         else if Nx > Ny then
           begin
           For i:=1 to Ny Do
              begin
                 Write('Data X ke-',i,' = ');Readln(X);
                 Write('Data Y ke-',i,' = ');Readln(Y);
                 Jx:=Jx+X;
                 Jy:=Jy+Y;
              end;
           i:=Ny+1;
           Repeat
              Write('Data X ke-',i,' = ');Readln(X);
              Jx:=Jx+X;
              i:=i+1;
           until i>Nx;
           end
              else if Nx < Ny then
                 begin
                 For i:=1 to Nx Do
                    begin
                       Write('Data X ke-',i,' = ');Readln(X);
                       Write('Data Y ke-',i,' = ');Readln(Y);
                       Jx:=Jx+X;
                       Jy:=Jy+Y;
                    end;
                 i:=Nx+1;
              Repeat
            Write('Data Y ke-',i,' = ');Readln(Y);
            Jy:=Jy+Y;
            i:=i+1;
            until i>Ny;
          end;
    Rx:=Jx/Nx;
    Ry:=Jy/Ny;
    writeln('Rata-rata dari data X = ',Rx:6:2);
    writeln('Rata-rata dari data Y = ',Ry:6:2); 

end.
Hasil dari Script Code diatas adalah sebagai berikut.
Preview Program Baca Berpasangan dengan
Looping

GUSTI SUNARTO
Manajemen Infomatika

2 komentar: