exclusivemails.net

Senin, 23 November 2009

Tugas Ekstra Pemrograman Kelas XI

Bagi anak-anak SMA N 8 Denpasar kelas XI yang ikut ekstra bahasa pemrograman silakan upload source code tugasnya di blog ini dengan cara memberikan comment pada tulisan ini...

Upload terakhir tgl 30 november 2009....
ingat nama lengkap, kelas dan nomor absen....
Diposting oleh Openk di 16.48

15 komentar:

  1. dwii27 November 2009 pukul 22.45

    {NI MADE DWI PURWATI
    XI IPA 6 / 04 }
    program tugas1;
    uses crt;
    var
    a,b,c: integer;

    begin
    clrscr;
    textcolor(magenta+blink);writeln('=======PROGRAM PENGURUTAN ANGKA=======');writeln;
    textcolor(white);write('masukkan angka pertama: ');readln(a);
    write('masukkan angka kedua: ');readln(b);
    write('masukkan angka ketiga: ');readln(c);

    begin
    clrscr;
    writeln('.....JADI HASILNYA..... ');writeln;
    IF (a > b) and (b > c) THEN
    begin
    writeln('bilangan yang terbesar adalah ',a);
    writeln('bilangan selanjutnya adalah ',b);
    writeln('bilangan yang terkecil adalah ',c);
    end;

    IF (a > c) and (c > b) THEN
    begin
    writeln('bilangan yang terbesar adalah ',a);
    writeln('bilangan selanjutnya adalah ',c);
    writeln('bilangan yang terkecil adalah ',b);
    end;

    IF (b > a) and (a > c) THEN
    begin
    writeln('bilangan yang terbesar adalah ',b);
    writeln('bilangan selanjutnya adalah ',a);
    writeln('bilangan yang terkecil adalah ',c);
    end;

    IF (b > c) and (c > a) THEN
    begin
    writeln('bilangan yang terbesar adalah ',b);
    writeln('bilangan selanjutnya adalah ',c);
    writeln('bilangan yang terkecil adalah ',a);
    end;

    IF (c > b) and (b > a) THEN
    begin
    writeln('bilangan yang terbesar adalah ',c);
    writeln('bilangan selanjutnya adalah ',b);
    writeln('bilangan yang terkecil adalah ',a);
    end

    ELSE IF (c > a) and (a> b) THEN
    begin
    writeln('bilangan yang terbesar adalah ',c);
    writeln('bilangan selanjutnya adalah ',a);
    writeln('bilangan yang terkecil adalah ',b);
    end;
    readln;
    end;

    end.


    {NI MADE DWI PURWATI
    XI IPA 6 / 04}
    program tugas2;
    uses crt;
    var
    x: integer;

    begin
    clrscr;
    textcolor(green+blink);writeln('PROGRAM MENENTUKAN APAKAH BILANGAN TERSEBUT POSITIF, NEGATIF ATAU NOL');writeln;
    textcolor(green);write('masukkan bilangan: ');readln(x);
    IF x<0 THEN
    begin
    writeln('bilangan yang anda masukkan adalah bilangan negatif');
    end
    ELSE IF x=0 THEN
    begin
    writeln('bilangan yang anda masukkan adalah nol');
    end
    ELSE IF x>0 THEN
    begin
    writeln('bilangan yang anda masukkan adalah bilangan positif');
    end;
    readln;
    end.

    BalasHapus
  2. dwii27 November 2009 pukul 22.46

    maav kag panjang lebar gtuu ,
    abiss itu cra termudah yg dpikiran dwik.. hehe
    okok ;)

    BalasHapus
  3. Anonim27 November 2009 pukul 23.48

    program tugas1;
    {Nama :Cok Istri Indraswari Pemayun
    Kelas :XI IPA 5
    No :22}
    uses crt;
    var
    a:integer;
    begin
    clrscr;
    textcolor(red+blink);writeln('Selamat Datang & Bergabung Bersama Kami');
    textcolor(yellow);writeln('Tentukan nilai yang anda masukan positif,negatif atau nol');
    textcolor(green);writeln('Masukan bilangan anda:');readln(a);
    if a=0 then
    begin
    textcolor(red+blink);writeln('Bilangan anda adalah nol');readln;
    end;
    if a<0 then
    begin
    textcolor(yellow+blink);writeln('Bilangan anda adalah bilangan negatif');readln;
    end;
    if a>0 then
    begin
    textcolor(white+blink);writeln('Bilangan anda adalah bilangan positif');readln;
    end;
    end.

    BalasHapus
  4. Anonim28 November 2009 pukul 00.01

    kak kok susa dia coment!!!!????

    BalasHapus
  5. Anonim28 November 2009 pukul 00.37

    { Nama : Ni Wayan Ina Sukma Dewi
    Kelas : XI IPA 6
    No : 11 }


    PROGRAM Test;
    USES crt;
    VAR
    i : Real;
    Begin
    ClrScr;
    Writeln ('Masukkan angka anda!');
    Readln(i);

    IF i < 0 THEN
    Begin
    Writeln ('Angka yang anda masukkan adalah bilangan negatif!');
    Readln;
    End

    Else
    IF i > 0 THEN
    Begin
    Writeln ('Angka yang anda masukkan adalah bilangan positif!');
    Readln;
    End

    Else
    IF i = 0 THEN
    Begin
    Writeln ('Angka yang anda masukkan adalah nol!');
    Readln;
    End;
    End.

    BalasHapus
  6. Anonim28 November 2009 pukul 00.50

    {Nama : Ni Wayan Ina Sukma Dewi
    Kelas : XI IPA 6
    No : 11 }


    PROGRAM Urut;
    USES crt;
    VAR
    i,j,k : integer;
    Begin
    ClrScr;
    Writeln ('Masukkan 3 angka secara acak!');
    Writeln ('Masukkan angka pertama!');
    Readln(i);
    Writeln ('Masukkan angka kedua!');
    Readln(j);
    Writeln ('Masukkan angka ketiga!');
    Readln(k);


    IF i > j THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',i:0:0);
    Writeln ('Angka kedua adalah ',j:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',k:0:0);
    Readln;
    End

    Else
    IF j > k THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',i:0:0);
    Writeln ('Angka kedua adalah ',j:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',k:0:0);
    Readln;
    End;


    IF j > i THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',j:0:0);
    Writeln ('Angka kedua adalah ',i:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',k:0:0);
    Readln;
    End

    Else
    IF i > k THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',j:0:0);
    Writeln ('Angka kedua adalah ',i:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',k:0:0);
    Readln;
    End;


    IF k > i THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',k:0:0);
    Writeln ('Angka kedua adalah ',i:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',j:0:0);
    Readln;
    End

    Else
    IF i > j THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',k:0:0);
    Writeln ('Angka kedua adalah ',i:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',j:0:0);
    Readln;
    End;


    IF i > k THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',i:0:0);
    Writeln ('Angka kedua adalah ',k:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',j:0:0);
    Readln;
    End

    Else
    IF k > j THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',i:0:0);
    Writeln ('Angka kedua adalah ',k:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',j:0:0);
    Readln;
    End;


    IF k > j THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',k:0:0);
    Writeln ('Angka kedua adalah ',j:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',i:0:0);
    Readln;
    End

    Else
    IF j > i THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',k:0:0);
    Writeln ('Angka kedua adalah ',j:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',i:0:0);
    Readln;
    End;


    IF j > k THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',j:0:0);
    Writeln ('Angka kedua adalah ',k:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',i:0:0);
    Readln;
    End

    Else
    IF k > i THEN
    Begin
    ClrScr;
    Writeln ('Angka yang nilainya terbesar adalah ',j:0:0);
    Writeln ('Angka kedua adalah ',k:0:0);
    Writeln ('Angka yang nilainya terkecil adalah ',i:0:0);
    Readln;
    End;
    End.

    BalasHapus
  7. Anonim28 November 2009 pukul 01.12

    program tugas2;
    {Nama :Cok Istri Indraswari Pemayun
    Kelas :XI IPA 5
    No :22}
    uses crt;
    var
    a,b,c:real;
    begin
    clrscr;
    textcolor(white);writeln('Selamat Datang');readln;
    textcolor(red);writeln('urutkan nilai-nilai anda dari besar ke kecil');readln;
    textcolor(yellow+blink);write('masukan nilai pertama:');read(a);
    textcolor(red+blink);write('masukan nilai kedua:'); read(b);
    textcolor(green+blink);write('masukan nilai ketiga:');read(c);
    if (a>b) and (b>c) then

    BalasHapus
  8. Anonim28 November 2009 pukul 01.14

    {lanjutan na kak... alna gmw kkrim dy kl smw nna}
    begin
    textcolor(white);writeln('jadi urutan nilai anda adalah');readln;
    writeln(a:0:1);read;
    writeln(b:0:1);read;
    writeln(c:0:1);read;
    end;

    BalasHapus
  9. ako Cok_is28 November 2009 pukul 01.25

    kak nie. . .cok is tugas na yang agi satu tak kirim di fb na kakak lwat mssage. . .tolong dilihat . . .
    alna tak kerem" ke blog na kakak ga isa". . ..
    trims. . .

    BalasHapus
  10. aNiep28 November 2009 pukul 06.17

    PROGRAM bilangan;
    { Nama : Hanifah Jawas
    Kelas : XI IPA 6
    Nomor : 09}
    USES Crt;
    VAR a : integer;

    BEGIN
    Clrscr;
    textcolor(magenta); WriteLn ('---Program bilangan---');
    WriteLn;
    Write ('Masukkan sebuah bilangan : ');
    ReadLn (a);

    IF a > 0 THEN
    WriteLn ('Bilangan anda adalah bilangan positif');
    IF a = 0 THEN
    WriteLn ('Bilangan anda adalah 0');
    IF a < 0 THEN
    WriteLn ('Bilangan anda adalah bilangan negatif');
    ReadLn;
    END.

    BalasHapus
  11. aNiep28 November 2009 pukul 06.27

    PROGRAM tugbilangan;
    { Nama : Hanifah Jawas
    Kelas : XI IPA 6
    Nomor : 09}
    USES Crt;
    VAR a,b,c : integer;

    BEGIN
    Clrscr;
    textcolor (red+blink); WriteLn ('---PROGRAM MENGURUTKAN BILANGAN---');
    writeLn;
    textcolor (cyan); Write ('Masukkan angka pertama : '); ReadLn (a);
    textcolor (yellow); Write ('Masukkan angka kedua : '); ReadLn (b);
    textcolor (green); Write ('Masukkan angka ketiga : '); ReadLn (c);
    WriteLn;
    textcolor (white); Write ('Urutan bilangan anda adalah : ');

    IF (a>=b) AND (a>=c) THEN
    IF (b>=c) THEN
    WriteLn (a,' ',b,' ',c)
    ELSE
    WriteLn (a,' ',c,' ',b)
    ELSE IF (b>=a) AND (b>=c) THEN
    IF (a>=c) THEN
    WriteLn (b,' ',a,' ',c)
    ELSE
    WriteLn (b,' ',c,' ',a)
    ELSE IF (c>=a) AND (c>=b) THEN
    IF (a>=b) THEN
    WriteLn (c,' ',a,' ',b)
    ELSE
    WriteLn (c,' ',b,' ',a);
    ReadLn;
    END.

    BalasHapus
  12. Anonim29 November 2009 pukul 01.26

    {Ni Putu Lisa Eka Pratiwi/
    XI IPA 6/17}

    program jenisbilangan;
    uses crt;
    var x:integer;

    begin
    clrscr;
    Writeln ('Menentukan jenis bilangan');
    Write ('Masukkan bilangan : ');
    Readln (x);
    If x>0 then
    Writeln ('Bilangan tersebut adalah bilangan positif')
    Else
    If x<0 then
    Writeln ('Bilangan tersebut adalah bilangan negatif')
    Else
    writeln ('Bilangan tersebut adalah nol');
    Readln;
    End.


    {Ni Putu Lisa Eka Pratiwi/
    XI IPA 6/17}

    Program urutanbilangan;
    Uses crt;
    Var a,b,c,x,y,z:integer;

    Begin
    clrscr;
    Writeln ('mengurutkan 3 buah bilangan');
    Write ('masukkan bilangan pertama : ');
    Readln (a);
    Write ('masukkan bilangan kedua : ');
    Readln (b);
    Write ('masukkan bilangan ketiga : ');
    Readln (c);

    If (a<=b) and (a<=c) then
    x:=a
    Else if (b<=a) and (b<=c) then
    x:=b
    Else if (c<=a) and (c<=b) then
    x:=c;
    Writeln ('bilangan terkecil : ',x);

    If (a>=c) and (a<=b) then
    y:=a
    Else if (b>=c) and (b>=c) then
    y:=b
    Else if (c>=a) and (c>=b) then
    y:=c;
    Writeln ('bilangan terbesar kedua : ',y);

    If (a>=b) and (a>=c) then
    z:=a
    Else if (b>=a) and (b>=c) then
    z:=b
    Else if (c>=a) and (c>=b) then
    z:=c;
    Writeln ('bilangan terbesar : ',z);
    Readln;
    End.

    BalasHapus
  13. I Wayan Adi Pranata29 November 2009 pukul 04.03

    {Nama : I Wayan Adi Pranata
    Kelas : XI IPA 6
    Nomor : 01 }
    Program Comp;
    Uses crt;
    Var
    a: integer;
    Begin
    Clrscr;
    Writeln('===== Program Pengecekan Bilangan Bulat =====');
    Writeln;
    textcolor(red+blink);Write('Masukkan nilai bilangan yang ingin di cek: ');readln(a);
    If a < 0 Then
    Begin
    textcolor(blue);Writeln('Bilangan ', a ,' adalah Bilangan Negatif!!');
    End
    Else if a = 0 Then
    Begin
    textcolor(green);Writeln('Bilangan tersebut adalah 0 !!');
    End
    Else if a > 0 then
    Begin
    textcolor(yellow);Writeln('Bilangan ', a ,' adalah bilangan Positif!!');
    End;
    readln;
    Writeln('Program pengecekan sudah selesai!');
    end.



    program aneh;
    {Nama : I Wayan Adi Pranata
    Kelas : XI IPA 6
    Absen : 01 }
    uses crt;
    var
    x,y,z : integer;

    begin
    clrscr;
    textcolor(blue+blink);writeln('=======PROGRAM PENGURUTAN ANGKA=======');writeln;
    textcolor(yellow);write('masukkan angka pertama: ');readln(x);
    write('masukkan angka kedua: ');readln(y);
    write('masukkan angka ketiga: ');readln(z);

    begin
    clrscr;
    writeln('+++SETELAH DIURUTKAN MAKA+++ ');
    writeln('Data dari besar ke kecil adalah');writeln;
    IF (x > y) and (y > z) THEN
    begin
    writeln('bilangan yang terbesar adalah ',x);
    writeln('bilangan selanjutnya adalah ',y);
    writeln('bilangan yang terkecil adalah ',z);
    end;

    IF (x > z) and (z > y) THEN
    begin
    writeln('bilangan yang terbesar adalah ',x);
    writeln('bilangan selanjutnya adalah ',z);
    writeln('bilangan yang terkecil adalah ',y);
    end;

    IF (y > x) and (x > z) THEN
    begin
    writeln('bilangan yang terbesar adalah ',y);
    writeln('bilangan selanjutnya adalah ',x);
    writeln('bilangan yang terkecil adalah ',z);
    end;

    IF (y > z) and (z > x) THEN
    begin
    writeln('bilangan yang terbesar adalah ',y);
    writeln('bilangan selanjutnya adalah ',z);
    writeln('bilangan yang terkecil adalah ',x);
    end;

    IF (z > y) and (y > x) THEN
    begin
    writeln('bilangan yang terbesar adalah ',z);
    writeln('bilangan selanjutnya adalah ',y);
    writeln('bilangan yang terkecil adalah ',x);
    end

    ELSE IF (z > x) and (x > y) THEN
    begin
    writeln('bilangan yang terbesar adalah ',z);
    writeln('bilangan selanjutnya adalah ',x);
    writeln('bilangan yang terkecil adalah ',y);
    end;
    readln;
    end;

    end.

    BalasHapus
  14. Anonim29 November 2009 pukul 19.52

    ///////////////////////////////////////
    //Nama : Dewa Ayu Prapti Widi Pramerti/
    //Kelas : XI 6 /
    //No : 27 /
    ///////////////////////////////////////
    //=====================================
    //Tugas I
    //=====================================
    program sorting;
    uses crt;
    var x :array [1..100] of integer;
    i,j,datax,n,min,kelompok,temp,tempatMin:integer;
    begin
    clrscr;
    write('Masukkan jumlah bilangan yang akan anda urut :');
    read(n);

    for i:=1 to n do
    begin
    write('Bilangan ke - ',i,' : ');
    readln(x[i]);
    end;

    for kelompok:=1 to n do
    begin
    min:=x[kelompok];
    for i:=kelompok to n do
    begin
    if (x[i]<=min) then
    begin
    min:=x[i];
    tempatMin:=i
    end;
    end;

    temp:=x[kelompok];
    x[kelompok]:=x[tempatMin];
    x[tempatMin]:=temp;
    end;

    write('Data setelah diurut adalah : ');
    for i:=1 to n do
    begin
    write(x[i],' ');
    end;
    readln;
    end.

    ////////////////////////////////////////////
    // Tugas II
    ///////////////////////////////////////////
    program posneg;
    var
    n:integer;
    jn:string;
    begin
    write('Masukkan sebuah bilangan bulat :');
    readln(n);
    if n=0 then
    jn:='nol'
    else if n>0 then
    jn:='positif'
    else
    jn:='negatif';
    writeln('Nilai yang anda masukkan adalah bilangan ',jn);
    readln;
    end.

    BalasHapus
  15. Anonim9 Desember 2009 pukul 19.12

    {widiari XI IPA 6 33}
    program lat2;
    uses crt;
    var x,y,z,a:integer;

    begin
    clrscr;
    textcolor(red);
    write('masukkan nilai pertama:');
    readln(x);
    write('masukkan nilai kedua:');
    readln(y);
    z:=x DIV y;
    a:=x MOD y;
    writeln(x, ' dibagi', y,' adalah ', z,' sisanya ',a);
    readln;
    end.

    BalasHapus

Langganan: Posting Komentar (Atom)