TUGAS PENGANTAR LOGIKA ALGORITMA

Jawaban nomor 4

{bil kelipatan 3 utk 1 s/d 20= 3, 6, 9, 12, 15, 18}

uses crt;

var a,i:byte;

begin

   clrscr;

   a:=3;

   for i:=1 to 6 do

   begin

   write(a:3);

   a:=a+3;

   end;

   readln;

end.

Jawaban nomor 5

{bil ganjil dari angka 1-100}

uses crt;

var a,i:byte;

begin

     clrscr;

     a:=1;

     for i:=1 to 50 do

     begin

     write(a:3);

     a:=a+2;

     end;

     readln;

end.

Jawaban nomor 6

{bilangan genap 1-50}

uses crt;

var a,i:byte;

begin

     clrscr;

     a:=2;

     for i:=1 to 25 do

     begin

     write(a:4);

     a:=a+2;

     end;

     readln;

end.

Jawaban nomor 9

USES CRT;

VAR ANGKA,SISABAGI:BYTE;

    LAGI:CHAR;

BEGIN

    CLRSCR;

    LAGI:='Y';

    WHILE LAGI='Y' DO

    BEGIN

    CLRSCR;

    WRITE('MASUKKAN SEBUAH BILANGAN: ');READ(ANGKA);

    WRITELN;

    WRITE('BILANGAN YANG ANDA INPUT TERDETEKSI SEBAGAI BILANGAN ');

     SISABAGI:=ANGKA MOD 2;

     IF SISABAGI=0 THEN

     WRITELN('GENAP')

     ELSE WRITELN('GANJIL');

     READLN;

    WRITELN;

    WRITE('INGIN COBALAGI [Y/T]: ');READ(LAGI);

    READLN;

    END;

    WRITELN;

    WRITELN('TERIMAKASIH SUDAH MENCOBA');

    READLN;

END.

Jawaban nomor 10

USES CRT;

VAR SATU,DUA:INTEGER;

BEGIN

     CLRSCR;

     WRITE('BILANGAN 1: ');READ(SATU);

     WRITE('BILANGAN 2: ');READ(DUA);

     WRITE('HASIL PENJUMLAHAN: ');

     WRITELN(SATU+DUA);READLN;

     WRITE('HASIL PENGURANGAN: ');

     WRITELN(SATU-DUA);

     WRITE('HASIL PERKALIAN: ');

     WRITELN(SATU*DUA);

     WRITE('HASIL PEMBAGIAN: ');

     WRITE(SATU DIV DUA);

     READLN;

END.

Jawaban nomor 11

USES CRT;

VAR PI,R:LONGINT;

BEGIN

    CLRSCR;

    WRITE('JARI-JARI LINGKARAN: ');READ(R);

    WRITELN;

    WRITE('LUAS LINGKARAN: ');

    READLN;

    WRITE(R*R*22 DIV 7);

    READLN;

END.

Jawaban nomor 12

Ø  Tentukan  nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10,  lebar sisi dalam (lT): lT= 5.

Ø  Hitung  luas total, L_Total= pL x lL

Ø  Hitung  luas tengah, L_Tengah= pT x lT

Ø  hasil luas yang diarsir, L_Arsir= L_Total-L_Tengah

uses crt;

var pL, lL, pT, lT, L_total, L_tengah: integer;

begin

     clrscr;

      pL:=18;  lL:=12;  pT:=10;  lT:=5;

      L_total:= pL*lL;

      L_tengah:= pL*lL;

     writeln('Luas total     = ', L_total);

     writeln('Luas tengah    = ', L_tengah);

     writeln('Luas yg diarsir= ', L_total-L_tengah);

     readln;

end.

Jawaban no 13. A

uses crt;  

var i, j: byte;  

begin  

  clrscr;   

  for i:= 1 to 4 do  

   begin  

     for j:= 1 to 4 do  

     write(j:4); writeln(#10);  

   end;  

  readln;  

end.  

uses crt;

var i, j: byte;

begin

  clrscr;

  for i:= 1 to 4 do

   begin

     for j:= 1 to 4 do

     write(j:4); writeln(#10);

   end;

  readln;

end.

jawaban nomor 13. B

uses crt;  

var A, i, j: byte;  

begin  

  clrscr;  

  A:=2;  

  for i:= 1 to 3 do  

   begin  

     for j:= 1 to 3 do  

     write(A:4);  

     A:=A-1;  

     writeln(#10);  

   end;  

   readln  

end.  

uses crt;

var A, i, j: byte;

begin

  clrscr;

  A:=2;

  for i:= 1 to 3 do

   begin

     for j:= 1 to 3 do

     write(A:4);

     A:=A-1;

     writeln(#10);

   end;

   readln

end.

jawaban nomor 13. C

uses crt;  

var i, j: byte;  

begin  

  clrscr;  

  for i:= 1 to 3 do  

   begin  

     for j:= 3 downto 1 do  

     write(j:4);  

     writeln(#10);  

   end;  

  readln  

end.  

uses crt;

var i, j: byte;

begin

  clrscr;

  for i:= 1 to 3 do

   begin

     for j:= 3 downto 1 do

     write(j:4);

     writeln(#10);

   end;

  readln

end.

Jawaban nomor 13. D

uses crt;  

var i, j: byte;  

begin  

  clrscr;  

  for i:= 1 to 4 do  

   begin  

     for j:= 1 to i do  

     write(j:4);  

     writeln(#10);  

   end;  

  readln  

end.  

uses crt;

var i, j: byte;

begin

  clrscr;

  for i:= 1 to 4 do

   begin

     for j:= 1 to i do

     write(j:4);

     writeln(#10);

   end;

  readln

end.

Jawaban nomor 13. E

uses crt;  

var i, j: byte;  

begin  

  clrscr;  

  for i:= 1 to 4 do  

   begin  

     for j:= 4 downto i do  

     write(j:4);  

     writeln(#10);  

   end;  

   readln  

end.  

uses crt;

var i, j: byte;

begin

  clrscr;

  for i:= 1 to 4 do

   begin

     for j:= 4 downto i do

     write(j:4);

     writeln(#10);

   end;

   readln

end.

Jawaban 13. F

uses crt;  

var A, i, j: byte;  

begin  

A:=1;  

for i:= 1 to 4 do  

begin  

for j:=1 to i do  

begin  

write(A:4);  

A:=A+2;  

end;  

writeln(#10);  

end;  

Jawaban Nomor 14

uses crt;  

var x: array[1..5] of integer;  

n,min,temp,i,j: integer;  

begin  

clrscr;  

writeln('Program pengurutan bilangan');  

writeln('____________________________');  

writeln;  

for n:=1 to 5 do  

begin  

write('Input bilangan ',n,': ');readln(x[n]);  

end;  

Jawaban nomor 15

USES CRT;

VAR UMUR,LAHIR:BYTE;

BEGIN

   CLRSCR;

   WRITE('NAMA          : ');READLN;

   WRITE('NIM           : ');READLN;

   WRITE('PRODI         : ');READLN;

   WRITE('TAHUN LAHIR   : ');READ(LAHIR);

   READLN;

   WRITELN;

   UMUR:=2010-LAHIR;

   WRITE('UMUR          : ',UMUR);

   WRITELN;

   WRITE('KETERANGANN   : ');

   IF UMUR<=5 THEN

   WRITE('BALITA')

   ELSE IF UMUR<=13 THEN

   WRITE('ANAK-ANAK')

   ELSE IF UMUR<=25 THEN

   WRITE('REMAJA')

   ELSE IF UMUR<=40 THEN

   WRITE('DEWASA')

   ELSE WRITE('SO TUA NGANA SAYANG');

   READLN;

END.

TUGAS 1

ANALISIS MEMASAK MIE PAKE TELUR

Langkah pertama datang ke warung tujuan untuk membeli mie dan telur secukupnya, berilah uang sebagai alat tukar. setelah mie dan telur suadah di berikan kpd kita dan uang telah kita berikan. kita langsung pulang ke rumah, setelah sampai langsung datang kedapur sedaikan periuk atau belanga untuk memasak. bukalah bungkus mie tumpahkan keperiuk tapi sebelumnya nyalakan kompor leatakan periuk di atasnya, kemudian baru tumpahkan mie beserta air secukupnya, setelah itu pecahkan telur, isinya langsung di tumpahkan ke periuk tadi yang sebelumnya berisi mie. setelah itu di aduk-aduk selama 5 atau 10 menit sampai tercampur. setelah dirasa cukup matang atau sudah masak angkatlah periuk dan isinya langsung di tumpahkan ke mangkok yang berukuran secukupnya . setelah semuanya tersalin  kemangkok maka langkah selanjunya masukan bumbu mie sesuai slera, tapi jangan sampai lupa mematikan kompor nanti bisa bahaya. setelah bumbu tercampur langsung di aduk-aduk sampai rata. setelah diaduk maka berarti mie yang bercampur telur telah siap saji. jika mie telah siap saji maka dengan demikian selesailah sudah analisis memeseak mie pakai telur

Tugas 2

ANALISIS MENGISI VOUCER KE HP GENGGAM

            Langkah pertama datang ke konter untuk membeli voucer . setelah itu kita berikan uang seagai alat tukar. kemudian ambil voucer langsung baca tulisan yang tertera pada voucer tsb.dlam tulisan itu ada perintah untuk menggosok kotak hitam,maka gosoklah sesuai parintah.setelah di gosok, dalam kotak hitam itu terdapat eberapa digit nomor.                                                                                                                                   Kemudian hubungilah nomor layanan pengisian pulsa sesuai dengan operator. setelah terhubung ikuti patunjuk , dalam petunjuk itu berupa perintah isi perintah itu adalah anda di harapkan untuk menekan atau memesukan beberapa digit nomor dari kotak yang anda gosok sebelumya. dengan perintah itu maka teknlalah tombol hp anda sesuai nomor yang tampil dari kotak yang annda gosok .setelah menekan dan memasukan nomor tunggulah beberapa saat.

            Setelah anda menunggu beberapa saat maka anda akan mendapatkan kiriman sms dari operator anda bahwa anda telah berhasil  mangisi pulsa ke telpon genggam anda. setelah anda mendapatkan kiriman sms tadi maka berarti telpon genggam anda sudah terisi pulsa. dengan demikian analisis pengsian voucer yang berisi pulsa ke telpon genggam telah selesai.

tugas 3

ANALISIS MEMBUAT PAKAIAN

           Langkah pertama adalah datang ke pasar atau toko kain lalu membeli lembaran kain yang belum jadi (kain permeter). setelah itu kembali kerumah dan langsung mengabil perlalatan lainya seperti gunting , meteran , benang , jarum , pokokny semua paralatan yang di butuhkan.

           Setelah semuanya telah tersedia , langkaah selanjutnya adalah merencanakan bentuk atau model kain yang sesuai dengan keinginan. setelah rancanganya jadi langsung ambil gunting dan lembaran kain tsb di gunting-gunting sesusai rancangan yang telah di buat sebelumnya. setelah selesai di gunting-gunting langsung di jahit sesuai rancangan. 

          Setelah dijahit-jahit atau semua bagian bagianya telah tesambung dengan bagian-bagianya langsung di setrika dan di berikan pewngi. setelah di berikan pewangi maka selesailah sudah analisis membuat kain.