ARRAY

INI PROGRAM PASCAL ARRAY

program array1;
Uses wincrt;
Var
  I         :Longint;
  Nm        :Array[1..100]Of String[25];
  Hk,Subt   :Array[1..100]Of Real;
  Lm        :Array[1..100]Of Integer;
  Tot       :Real;

Begin
  I:=1;
  While(I<=3) Do
      Begin
        clrscr;
        Writeln('Data Ke :',I);
        Writeln('===========');
        Write('Inputkan Nama Tamu :');Readln(Nm[I]);
        Write('Inputkan Lama Menginap :');Readln(Lm[I]);
        Write('Inputkan Harga Kamar :');Readln(Hk[I]);
        Subt[I] :=Lm[I] * Hk[I];
        Writeln;
        Tot :=Tot + Subt[I];
        I:=I +1;
      End;
  Writeln('--------------------------------------------------');
  Writeln('No            Nama   Lama        Harga   Sub      ');
  Writeln('              Tamu   Menginap    Kamar   Total    ');
  Writeln('--------------------------------------------------');
      For I:=1 To 3 Do
        Begin
          Writeln(I:3,Nm[I]:15,Lm[I]:10,Hk[I]:10:0,Subt[I]:8:0);
        End;
  Writeln('--------------------------------------------------');
  Writeln('Total :',Tot:12:0);
  readln;
End.

Anda baru saja membaca artikel yang berkategori dengan judul ARRAY. Anda bisa bookmark halaman ini dengan URL https://alifrusdiana.blogspot.com/2014/01/ini-program-pascal-array-program-array1.html. Terima kasih!

Ditulis oleh: Unknown - Rabu, 22 Januari 2014