Selasa, 30 September 2014

TUGAS 8

 Tugas 8


INPUT(M, N, P)
IF (P < 20) THEN
   M ß M * 2
ELSE
  IF (N < 30) THEN
     N ß N * 3
  ELSE
    IF (M < 40)  THEN
       P ß P * 4
    ELSE
       M ß 0
    ENDIF
  ENDIF
ENDIF
OUTPUT(M, N, P)
Tentukan OUTPUT yang dihasilkan, jika nilai awal yang diINPUTkan untuk M = 40, N = 30, dan P = 20.? M:0,n:30,P:20
Bahasa Pascal:
uses crt;
Var
        M:Integer;
        N:Integer;
        P:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai M: ');
        READLN(M);
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        WRITELN('Masukan Nilai P: ');
        READLN(P);
        If (P<20) Then M := M * 2
        Else
                If(N<30) Then N:= N * 3
                Else
                        If(M<40) Then P:= P*4
                        Else
                                M:= 0;
        WRITELN('Nilai Akhir M: ',M);
        WRITELN('Nilai Akhir N: ',N);
        WRITELN('Nilai Akhir P: ',P);
        READLN();

TUGAS 7

 Tugas 7


     KAMUS
    N, R, B : integer
  BEGIN ALGORITMA
    INPUT(N); INPUT(B)
    IF (N < 80) THEN
       R ß B + 4 * 2 + N / 4 – B + 1
    ELSE IF (N < 70) THEN
       R ß B + 5 * 3 + N / 4 – B + 2
    ELSE IF (N < 60) THEN
       R ß B + 6 * 4 + N / 4 – B + 3
    ELSE
       IF (N < 40) THEN
          R ß B + 7 * 5 + N / 4 – B + 4
       ELSE
          R ß B + 8 * 6 + N / 4 – B + 5
       ENDIF
    ENDIF
    OUTPUT(R)
  END ALGORITMA

 Berapa nilai R yang dihasilkan, apabila nilai B = 3 dan N = 60 ? 9
Bahasa Pascal:
uses crt;
Var
        N:Integer;
        R:Integer;
        B:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        WRITELN('Masukan Nilai B: ');
        READLN(B);
        If (N<80) Then R:= B + 4*2+N div 4-B+1
        Else If (N<70) Then R := B+ 5*3 + N div 4 - B + 2
        Else if (N<60) Then R := B + 6 * 4 + N div 4 - B + 3
        Else
                If(N<40) Then R := B+ 7 * 5 + N div 4 - B + 4
                Else R:= B+8 * 6 + N div 4 - B + 5;
        WRITELN('Nilai R: ',R);
        READLN();
End.

TUGAS 6

 Tugas 6


INPUT(N)
IF (N > 50) THEN
    IF ( N > 75) THEN
      N ß N – 25
    ENDIF     
ELSE
   N ß N + 10
ENDIF
OUTPUT(N)
Berapa nilai akhir N, apabila N awalnya diINPUT dengan nilai 85 ? 60
Bahasa Pascal:
uses crt;
var
        N:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        If ( N>50) Then
                If(N>75) Then N:= N - 25
        Else
                N:= N + 10;
        WRITELN('Nilai Akhir N: ',n);
        READLN();
End.

TUGAS 5

 Tugas 5

Perhatikan algoritma berikut.
KAMUS
   A, B, C : integer
BEGIN ALGORITMA
   INPUT(A,B,C)
   IF (A > B)  THEN
       IF  (A > C) THEN
           OUTPUT(A)
       ELSE
           OUTPUT(C)
       ENDIF
   ELSE
     IF (B > C) THEN
         OUTPUT(B)
     ELSE
         OUTPUT(C)
     ENDIF
   ENDIF
END ALGORITMA

Apa OUTPUT yang dihasilkan, apabila nilai-nilai yang diINPUTkan ,  A = 3,  B = 6 dan C  = 4 ? 6
Bahasa Pascal:
uses crt;
var
        A:Integer;
        B:integer;
        C:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai A: ');
        READLN(a);
        WRITELN('Masukan Nilai B: ');
        READLN(B);
        WRITELN('Masukan Nilai C: ');
        READLN(C);

        If (A>b) Then
                If (a > c) Then WRITELN(A)
                Else
                        WRITELN(C)
        Else
                If (B>C) Then WRITELN(B)
                Else
                        WRITELN(C);
        READLN();
End.

TUGAS 4

 Tugas 4

Perhatikan algoritma berikut ini.
KAMUS
  A, B : integer
  C : Boolean
BEGIN ALGORITMA
  A ß 0 ; B ß 2
  A ß B ; B ß A + A
  C ß ((A > B) AND (A <> 2))
  OUTPUT (C)
END ALGORITMA

Berapa nilai C ? False
Dalam Bahasa Pascal:
uses crt;
Var
        A:Integer;
        B:Integer;
        C:Boolean;
BEGIN
        CLRSCR;
        A:= 0;
        B:= 2;
        A:= B;
        B:= a + a;
        C:= (a>b) and (a=2);
        WRITELN('Nilai C: ',c);
        READLN();
End.

TUGAS 3

 Tugas 3


    Perhatikan penggalan algoritma dibawah ini:

Algoritma
     …….
     IF (a = 10 and b = 5) THEN
          c <-- 156
     ELSE
          c <-- 165
     END IF
   
Jika ternyata variabel  a  diberikan INPUT 5, maka nilai variabel  c  adalah?165
Bahasa Pascal:
uses crt;
Var
        A:Integer;
        B:Integer;
        C:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai A: ');
        READLN(a);
        WRITELN('Masukan Nilai B: ');
        READLN(b);
        If (a=10) and (B=5) Then C:= 156
        Else
                C:= 165;
        WRITELN('Nilai C adalah ',c);
        READLN();
End.165

TUGAS 2

 Tugas 2


    1.Perhatikan penggalan algoritma berikut ini.

A ß 4 ; B ß 3  
X ß A
X ß B mod X
B ß A
B ß X + B
OUTPUT(A, X, B)

Berapakah nilai A, X dan B ? A:4,B:7,X:3
Bahasa Pascal:
uses crt;
Var
        A:Integer;
        B:Integer;
        X:Integer;
BEGIN
        CLRSCR;
        a:= 4;
        B:= 3;
        X:=A;
        X:= B mod X;
        B:= a;
        B:= x + b;
        WRITELN('Nilai A: ',a);
        WRITELN('Nilai B: ',b);
        WRITELN('Nilai X: ',X);
        READLN();
END.

TUGAS

 Tugas 1


   1. Perhatikan algoritma berikut ini.

KAMUS
     A, B, C, T : integer
BEGIN ALGORITMA
    T ß 0
    INPUT(A)
    T ß T + A
    INPUT(B)
    T ß T + B
    INPUT(C)
    T ß T + C
    OUTPUT(T)
END ALGORITMA

Berapakah nilai T, jika nilai A,B,C berturut-turut diINPUTkan dengan nilai 7, 5 dan 2 ? 14
Bahasa pascal:
uses crt;
var
        A:Integer;
        B:Integer;
        C:Integer;
        T:Integer;
BEGIN
        CLRSCR;
        T:=0;
        WRITELN('Masukan Nilai A: ');
        READLN(a);
        T:= T + A;
        WRITELN('Masukan Nilai B: ');
        READLN(b);
        T:= T + B;
        WRITELN('Masukan Nilai C: ');
        READLN(c);
        T:= T + C;
        WRITELN('Nilai Akhir T Adalah ',T);
        READLN();

Rabu, 24 September 2014

ini adalah First

uses crt;

Var
        A : integer;
        B : Integer;
BEGIN
        CLRSCR;
        WRITELN(' Input First Number: ');
        READLN(A);
        WRITELN(' Input First Number: ');
        READLN(b);

        If( a< 10) Then WRITELN('A Smaller than 10,but greater than B')
        Else If ( A<B) Then WRITELN('A Smaller Than 10 and B')
        Else
                WRITELN('A Smaller Than 10,and equal with B');
        READLN();
End.

ini adalah Algoritma 1

uses crt;

Var
        A : integer;
        B : Integer;
BEGIN
        CLRSCR;
        WRITELN(' Input First Number: ');
        READLN(A);
        WRITELN(' Input First Number: ');
        READLN(b);
        If(a < 0) Then
                BEGIN;
                If ( b<0) Then WRITELN('Kalimat Satu')
                Else
                        WRITELN('Kalimat Kedua')
                END;
        ReadlN();
ENd.

ini adalah Diskon

uses crt;
var
        Jenis:string;
        Harga:Real;
        HargaDiskon:Real;
        Hargaakhir:real;
BEGIN
        CLRSCR;
        WRITELN('Masukan Jenis Barang: ');
        READLN(Jenis);
        WRITELN('Masukan Harga Barang: ');
        READLN(Harga);
        Case Jenis of
        'a': hargadiskon := 0.1*harga;
        'b': hargadiskon := 0.15*harga;
        'c': Hargadiskon := 0.2*harga;
        End;
        HargaAkhir:=harga- hargadiskon;
        WRITELN('Harga Barang Setelah Didiskon: ',hargaakhir);
        READLN();
ENd.

ini adalah Kordinat 2

uses crt;

var
        x:Integer;
        y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai x: ');
        READLN(x);
        WRITELN('Masukan Nilai y: ');
        READLN(y);
        if(x>=0) and (y>=0) Then WRITELN('Kaudran1')
        Else
                If(x>=0) and (y<=0) THEN WRITELN('Kuadran4')
                Else
                        If(x<=0) and (y>=0) THEN WRITELN('Kuadran2')
                        Else
                                If(x<=0) and (y<=0) THEN WRITELN('Kuadran3');
        If (x=25) then
                Begin;
                WRITELN('Ini Sepuluh');
                y:= y + 16;
                End;
        x := 15;
        if ( x < 20) Then
                Begin;
                WRITELN('X Kurang dari DuaPuluh');
                y := 16;
                End;
        WRITELN('Angka x dan y: ',x,y);

        READLN();
End.

ini adalah Kordinat 1

uses crt;

var
        x:Integer;
        y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai x: ');
        READLN(x);
        WRITELN('Masukan Nilai y: ');
        READLN(y);
        if(x>=0) and (y>=0) Then WRITELN('Kaudran1')
        Else
                If(x>=0) and (y<=0) THEN WRITELN('Kuadran4')
                Else
                        If(x<=0) and (y>=0) THEN WRITELN('Kuadran2')
                        Else
                                If(x<=0) and (y<=0) THEN WRITELN('Kuadran3');
        If (x=25) then
                Begin;
                WRITELN('Ini Sepuluh');
                y:= y + 16;
                End;
        x := 15;
        if ( x < 20) Then
                Begin;
                WRITELN('X Kurang dari DuaPuluh');
                y := 16;
                End;
        WRITELN('Angka x dan y: ',x,y);

        READLN();
End.

ini adalah Hari

Uses crt;

Var
        hari: Integer;
Begin
        CLRSCR;
        WRITELN('Masukan Nomor Hari: ');
        READLN(Hari);

        If ( Hari = 1) Then WRITELN('Senin')
        Else If (Hari = 2) Then WRITELN('Selasa')
        Else If (hari = 3) Then WRITELN('Rabu')
        ELse If (Hari = 4) Then WRITELN('Kamis')
        Else If (hari = 5) Then WRITELN('Jumat')
        ELSE if (Hari = 6) Then WRITELN('Sabtu')
        Else if (Hari = 7) Then WRITELN('Minggu');
        READLN();
End.

ini adalah Grade

uses crt;
Var
        Grade : String;
Begin
        CLRSCR;
        WRITELN('Masukan Nilai: ');
        READLN(Grade);
        Case grade of
        'a': WRITELN ('Excellent');
        'b,c': WRITELN('Weel Done');
        'D': WRITELN('You Passed');
        Else
                WRITELN('You Really Did Not Study Right!');
        End;
        READLN();
End.

ini adalah Gaji

uses crt;
Var
        Golongan:Integer;
        JamKerja:real;
        Gaji:real;
BEGIN
        CLRSCR;
        WRITELN('Masukan Golongan: ');
        READLN(Golongan);
        WRITELN('Masukan Jumlah Jam Kerja: ');
        READLN(JamKerja);
        If (JamKerja <= 40) Then
        Case Golongan of
        1: gaji := jamKerja * 3000;
        2: Gaji := JamKerja * 3500;
        3: Gaji := Jamkerja * 4000;
        4: Gaji := JamKerja * 5000;
        end;
        If(Jamkerja>40) Then
        Case Golongan Of
        1: Gaji :=(40 *3000) + (40-JamKerja)*3000*1.5;
        2: Gaji :=(40*3500) + ((40-Jamkerja)*3500*1.5);
        3: Gaji :=(40*4000) + ((40-jamkerja)*4000*1.5);
        4: Gaji :=(40*5000) + ((40-jamkerja)*5000*1.5);
        END;
        WRITELN('Gaji Karyawan: ',Gaji);
        READLN();
ENd.

Senin, 15 September 2014

apa yang ingin saya lakukan untuk masa sekarang dan masa depan?

untuk masa sekarang saya ingin melakukan belajar dengan giat untuk mencapai suatu keinginan yang besar di masa depan nanti .

untuk masa depan saya ingin melakukan program program yang ada dipikiran saya , ya selain itu saya ingin menjadi master of computer engineering .

jika saya menjadi computer engineering saya ingin menguasai hal-hal apa saja?

saya ingin menguasai semua tentang computer engineering. untuk menjadi master dari computer engineering.