Tugas, Kelas 1, Jurusan Rekayasa perangkat lunak

Tugas 1. Simpan pada di drive D,folder PASCAL dengan nama file NAMA KALIAN,
atau pada flshdish :

{ Program: Tabel hasil perkalian,Create by : diah afrianti rahayu putri suripto }

uses crt;
Var
X,Y,Z      : integer;

Begin
  WriteLn('       TABEL  PERKALIAN       ');
  WriteLn('==============================');
  WriteLn('|   X   |    Y   |   Hasil   |');
  WriteLn('==============================');

   X := 10;
    Repeat  {awal perulangan X}
     Y := 10;
      Repeat {awal perulangan Y}
        Z = X*Y;
          WriteLn(X:5, Y:9, Z:10);
        Y := Y+1;
      Until Y > 13; {akhir perulangan Y}
        X := X+1;
     Until X > 13; {akhir perulangan X}

  WriteLn('=============================');
  WriteLn;
  WriteLn('Tekan Enter untuk Keluar');
  ReadLn;
 End.

Pada contoh program diatas, perulangan repeat-until digunakan untuk membuat sebuah tabel perkalian antara X dan Y, dimana nilai awal untuk X dan Y adalah 10, dan akan bertambah 1 setiap kali terjadi perulangan ( X := X+1 dan Y := Y+1 ) sampai nilai akhir yang ditentukan yaitu 13. Perulangan akan terjadi sebelum melebihi nilai akhir yang ditentukan ( 13 ). Jadi Perintah UNTIL bila kita terjemahkan adalah : Sebelum melebihi . Lihat hasil jalannya program seperti dibawah ini.

SELAMAT MENGERJAKAN :)