tugas program

USES CRT ;

VAR PIL : BYTE;
PROCEDURE INPUT ;
BEGIN
              WRITELN     ('BAGIAN INPUT');
  END;
      PROCEDURE OUTPUT;
  BEGIN

              WRITELN   ('BAGIAN OUTPUT');
    END;
  BEGIN
            CLRSCR;
            PIL :=3;
            REPEAT ;
            WRITELN('MENU');
            WRITELN('1 INPUT DATA');
            WRITELN('2 OUTPUT DATA');
            WRITELN('KEMENU');
            WRITELN('PILIH');
            READLN(PIL);
            CASE PIL OF
            1: INPUT;
            2: OUTPUT;
    END;
  READLN;
    UNTIL (PIL =3)
END.

            KODE             :ARRAY[1..10] OF STRING[3] ;
            JUMLAH         :ARRAY[1..10] OF BYTE ;
            HARGA           :LONGINT ;
            NAMA            :STRING[20] ;
            TOTAL            :LONGINT ;
            I                       :BYTE ;
  BEGIN
         FOR I :=1 TO 10 DO
     BEGIN
            TEXTCOLOR (7 ) : TEXETBACKGROUND (9 );

            CLRSCR ;

            GOTOXY(30,5); WRITE('KODE :');READLN(KODE[I]) ;
            GOTOXY(30,6); WRITE('JUMLAH :');READLN(JUMLAH[I]);
     END ;
            CLRSCR;
            GOTOXY(10,3); WRITE('-------------------------------------------------------------');
            GOTOXY(10,4); WRITE('NO,  KODE,   NAMA,   HARGA,   JUMLAH,   TOTAL  ');
            GOTOXY(10,5); WRITE('-------------------------------------------------------------');
     END;

          FOR I  :=1 TO 10 DO
  BEGIN
      IF KODE[I]='001' THEN
      NAMA :='TV';HARGA :=’1000000’ ;
    END
     ELSE IF KODE[I]='002' THEN
     NAMA :='DVD';  HARGA :=’650000’ ;
    END ;
  BEGIN

            GOTOXY(10,5+I); WRITE(I=2,KODE[I]);
            GOTOXY(10,5+I); WRITE(NAMA);
            GOTOXY(10,5+I); WRITE(HARGA:9, JUMLAH[I]:3);
            TOTAL:=HARGA*JUMLAH[I] ;
            GOTOXY(45,5+I); WRITE(TOTAL:8);
   END;
            GOTOXY(10,6+I); WRITE('---------------------------------------');
        READLN ;
END.

Algoritma (Komputer) 

Apa Itu Algoritma?

•Definisi

–Urutan langkah-langkah untuk memecahkan masalah

–Kamus Besar Bahasa Indonesia:
Algoritma adalah urutan logis pengambilan putusan untuk pemecahan masalah

•Algoritma dibutuhkan untuk memerintah komputer mengambil langkah-langkah tertentu dalam menyelesaikan masalah

 Penulisan Algoritma

•Dalam bahasa natural (Bahasa Indonesia, Bahasa Inggris, dan bahasa manusia lainnya)

–Tapi sering membingungkan (ambiguous)

•Menggunakan flow chart (diagram alir)

–Bagus secara visual akan tetapi repot kalau algoritmanya panjang

•Menggunakan pseudo-code

–Sudah lebih dekat ke bahasa pemrograman, namun sulit dimengerti oleh orang yang tidak mengerti pemrograman

Contoh 

•Requirement

–Buat sebuah algoritma untuk memilih bilangan terbesar dari 3 buah bilangan 

–Nantinya ini bisa digeneralisir menjadi n buah bilangan

 Algoritma Dalam Bahasa Natural

1.Ambil bilangan pertama dan set maks sama dengan bilangan pertama

2.Ambil bilangan kedua dan bandingkan dengan maks

3.Apa bila bilangan kedua lebih besar dari maks, set maks sama dengan bilangan kedua

4.Ambil blangan ketiga dan bandingan dengan maks

5.Apabila bilangan ketiga lebih besar dari maks, set maks sama dengan bilangan ketiga

6.Variabel maks berisi bilangan terbesar. Tayangkan hasilnya

Aspek Penting dari Algoritma

1.Finiteness

•Algoritma harus berhenti after a finite number of steps

2.Definiteness

•Setiap langkah harus didefinisikan secara tepat, tidak boleh membingungkan (ambiguous)

3.Input

•Sebuah algoritma memiliki nol atau lebih input yang diberikan kepada algoritma sebelum dijalankan

4.Output

•Sebuah algoritma memiliki satu atau lebih output, yang biasanya bergantung kepada input

5.Effectiveness

•Setiap algoritma diharapkan miliki sifat efektif

 

google