TUGAS ALGORITMA

Raden Syaifudin 03.13 Algoritma , Delphi 7 , Semester 1 , Tugas Tidak ada komentar

CARA PERTAMA

1. Jalankan Program delphi 7

2. Klik file - New - Console Application

3. Masukkan Script & Nilai yang dibutuhkan, seperti dibawah ini (Teks yang berwarna biru)

program pertama;

{$APPTYPE CONSOLE}
uses
  SysUtils;
  var
  n:integer;
begin

   write('Masukkan Nilai = '); readln(n);
   if (n>=0) and (n<=25) then write('Nilai E');
   if (n>=26) and (n<=55) then write('Nilai D');
   if (n>=56) and (n<=70) then write('Nilai C');
   if (n>=71) and (n<=85) then write('Nilai B');
   if n>85 then write ('Nilai A');

   readln

end.

4. Jalankan Program dengan Klik menu Run, maka tampil kotak dialog seperti dibawah ini

5. Masukkan Nilai

CARA KEDUA

1. Jalankan Program delphi 7

2. Klik file - New - Console Application

3. Masukkan Script & Nilai yang dibutuhkan, seperti dibawah ini (Teks yang berwarna biru)

program kedua;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

  n:integer;

begin

write('Masukkan Nilai ='); readln(n);

  if n>85 then write('Nilai A') else

  if n>70 then write('Nilai B') else

  if n>55 then write('Nilai C') else

  if n>26 then write('Nilai D') else

  write('Nilai E');

  readln

end.

4. Jalankan Program dengan Klik menu Run, maka tampil kotak dialog seperti dibawah ini