TUGAS PETRUK : FAKULTAS N JURUSAN NO.5 (ALGORITMA - PASCAL - HASIL )

• ALGORITMA

algoritma fakultas
deklarasi
   pilihan : interger
deskripsi
begin
   read (pilihan)
   case pilihan of
   1 : begin
       write('semua jurusan di fakultas dakwah')
       end;
   2 : begin
       write('semua jurusan di fakultas tarbiyah')
       end;
   3 : begin
       write('semua jurusan di fakultas syariah')
       end;
   4 : begin
       write('semua jurusan di fakultas ussluddin')
       end;
   5 : begin
       write('semua jurusan di fakultas sains dan teknologi')
       end;
   6 : begin
       write('semua jurusan di fakultas ekonomi')
       end;
   7 : begin
       write('semua jurusan di fakultas psisikologi')
       end;
   6 : begin
       write('semua jurusan di fakultas peternakan')
       end;
end.

• PASCAL

program uin_suska;
uses wincrt;
var
      pil : integer;
begin
writeln('      ----------------------------------------------------- ');
writeln('                           WELCOME TO                       ');
writeln('       UNIVERSITAS ISLAM NEGERI SULTAN SYARIF QASYIM RIAU   ');
writeln('      ----------------------------------------------------- ');
writeln;
writeln('           1. FAKULTAS DAKWAH DAN KOMUNIKASI   ');
writeln('           2. FAKULTAS TARBIYAH DAN KEGURUAN   ');
writeln('           3. FAKULTAS SYARIAH                 ');
writeln('           4. FAKULTAS USHULUDDIN              ');
writeln('           5. FAKULTAS SAINS DAN TEKNOLOGI     ');
writeln('           6. FAKULTAS EKONOMI DAN ILMU SOSIAL ');
writeln('           7. FAKULTAS PSIKOLOGI               ');
writeln('           8. FAKULTAS PERTANIAN DAN PETERNAKAN');
writeln;
writeln('      ----------------------------------------------------- ');
writeln;
write  ('               PILIHAN ANDA = ');read(pil);
writeln;
writeln('      ---------------------------------------------------- ');

case pil of
1:begin
writeln('        SELAMAT DATANG DI FAKULTAS DAKWAH DAN KOMUNIKASI   ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

2:begin
writeln('        SELAMAT DATANG DI FAKULTAS TARBIYAH DAN KEGURUAN   ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

3:begin
writeln('        SELAMAT DATANG DI SYARIAH                          ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

4:begin
writeln('        SELAMAT DATANG DI FAKULTAS USHULUDDIN   ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

5:begin
writeln('        SELAMAT DATANG DI FAKULTAS SAINS DAN TEKNOLOGI ');
writeln;
writeln('             1.JURUSAN TEKNIK INFORMATIKA   ');
writeln('             2.JURUSAN TEKNIK INDUSTRI      ');
writeln('             3.JURUSAN TEKNIK ELEKTRO       ');
writeln('             2.JURUSAN SISTEM INFORMASI     ');
writeln('             3.JURUSAN MATEMATIKA TERAPAN   ');
writeln;
writeln('         TERIMAH KASIH     ');    
end;

6:begin
writeln('        SELAMAT DATANG DI FAKULTAS EKONOMI  ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

7:begin
writeln('        SELAMAT DATANG DI FAKULTAS PSIKOLOGI  ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;

8:begin
writeln('        SELAMAT DATANG DI FAKULTAS PERTANIAN DAN PETERNAKAN  ');
writeln;
writeln('             1.JURUSAN ......................   ');
writeln('             2.JURUSAN ......................   ');
end;
else
writeln('           MOHON MAAF PILIHAN TIDAK TERSEDIA ');
end;
writeln('      ---------------------------------------------------- ');
end.

• HASIL

---

Artikel Terkait: