Monday, January 7, 2019

ASD 9

ASD 9a
program OnOff;
Var
   angka: integer;
begin
     Write('Ketik angka 1 atau 0: '); readln(angka);
     If angka = 1 then
        Writeln('Nyala')
        else
            Writeln('Mati');

Readln;
end.

===

ASD 9b
program OnOff;
Var
   a: string;
begin
     Write('Ketik "L" atau "BL": '); readln(a);
     If a = 'l' then
        Writeln('Lulus')
        else
            Writeln('Belum Lulus');

Readln;
end.

===

ASD 9c
program struktur_if_then_else_nested;
uses crt;
var
  angka:integer;
begin
  clrscr;
  write('Masukkan sebuah angka: ');
  readln(angka);
  if (angka mod 2 = 0) and (angka > 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan genap dan besar dari 10');
    end
  else
  if (angka mod 2 = 0) and (angka < 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan genap dan kecil dari 10');
    end
  else
  if (angka mod 2 <> 0) and (angka > 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan ganjil dan besar dari 10');
    end
  else
  if (angka mod 2 <> 0) and (angka < 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan ganjil dan kecil dari 10');
    end;     
  readln;
end.

===
ASD 9d
program struktur_if_then_else_nested;
uses crt;
var
  angka:integer;
begin
  clrscr;
  write('Masukkan sebuah angka: ');
  readln(angka);
  if (angka mod 2 = 0) then
    begin
      write('Angka yang anda masukkan merupakan bilangan genap ');
      if (angka > 10) then
        begin
          writeln('dan besar dari 10');
        end
      else
        begin
          writeln('dan kecil dari 10');
        end;
    end
  else
    begin
      write('Angka yang anda masukkan merupakan bilangan ganjil ');
     if (angka > 10) then
        begin
          writeln('dan besar dari 10');
        end
      else
        begin
          writeln('dan kecil dari 10');
        end;
    end;   
  readln;
end.

====

ASD 9e
program OnOff;
Var
   s,r: string;
begin
     Writeln('STRUKTUR DASAR ALGORITMA');
     Writeln('');

     Write('Ketik "s", "r" atau "sel": '); readln(s,r);
     If s = 's' then
        Writeln('sequence')
        else
        If s = 'r' then
            Writeln('repetition')
            else
                Writeln('selection');

Readln;
end.
Bitcoin Offers:
Free Bitcoin, Double Bitcoin, Bitcoin Investment, Bitcoin Trading



"Bitcoin and Forex are high risk business. We must join them smartly."

No comments:

Post a Comment