Oktober 2012

Sabtu, 27 Oktober 2012

TUGAS ALGORITMA 2 FLOWCHART

Senangnya berbagi Ilmu meskipun hanya segelintir Cara Membuat Program Penentu Grade Nilai Menggunakan Percabangan Case_Of, Silahkan simak langkah-langkah dibawah ini. jangan lupa siapkan segelas teh hangat he,.,.10 rbx

1. Seperti biasa, buka Program Delphi 7

2. Jangan Lupa buat Lembar kerja Baru

3. Kemudian Masukkan Script seperti dibawah ini

program tugas2;

{$APPTYPE CONSOLE}
uses
SysUtils;
var
n : integer;
grade,ket : string;
begin
write('Masukkan Nilai Anda = '); readln(n);
case n of
0..25 :
begin
grade :='E';
ket :='Gagal';
end;
26..55 :
begin
grade :='D';
ket :='Kurang';
end;
56..70 :
begin
grade :='C';
ket :='Cukup';
end;
71..85 :
begin
grade :='B';
ket :='Baik';
end;
else
grade :='A';
ket :='Sangat Baik';
end;
writeln('Grade = ',grade);
writeln('Keterangan = ',ket);
readln
end.

4. Seteleh itu Jalankan Program dengan menekan tombol F9 atau Klik menu RUN, maka akan tampil kotak dialog seperti dibawah ini.

5. Masukkan Nilai Anda

6. Abra kadabraa.. Nilai Anda Sangat Memuaskan. Selesai.

* sebagai gambaran Flowchart dari Program diatas, lihat gambar dibawah ini

Sabtu, 20 Oktober 2012

TUGAS ALGORITMA

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