exclusivemails.net

Senin, 23 November 2009

Tugas Ekstra Pemrograman Kelas X

Bagi anak-anak SMA N 8 Denpasar kelas X 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.42

21 komentar:

  1. X8 28 I Nym Krisna Wijaya26 November 2009 pukul 03.44

    Tugas Pertama :
    Program Memasukkan;
    uses crt;
    var a,b : integer;
    begin;
    clrscr;
    writeln ('Memasukkan Bilangan I : '); readln (a);
    writeln ('Memasukkan Bilangan II : '); readln (b);
    writeln ('Hasil Penjumlahan : '); writeln (a+b);
    writeln ('Hasil Pengurangan : '); writeln (a-b);
    wrteln ('Hasil Perkalian : '); writeln (a*b);
    writeln ('Hasil Pembagian : '); writeln (a div b);
    writeln ('Terima Kasih');
    readln;
    end.
    Tugas Kedua :
    Program Persegi;
    uses crt;
    var a,b : integer;
    begin;
    clrscr;
    writeln ('Masukkan Bilangan Persegi Panjang');
    writeln ('Masukkan Panjang : '); readln (a);
    writeln ('Masukkan Lebar : '); readln (b);
    writeln ('Luas Persegi : '); writeln (a*b,' cm');
    writeln ('Keliling Persegi : '); writeln (2*(a+b), 'cm persegi');
    writeln ('Terima Kasih');
    readln;
    end.

    BalasHapus
  2. X6 07 Made Ayu Aristyana Dewi26 November 2009 pukul 16.43

    Tugas 1 :
    PROGRAM Operasi_Hitungan;
    USES crt;
    VAR a,b,c,d,e : integer;
    f : real;
    BEGIN
    clrscr;
    Write ('Masukkan Nilai a : ');
    Readln (a);
    Write ('Masukkan Nilai b : ');
    Readln (b);

    c := a+b;
    d := a-b;
    e := a*b;
    f := a/b;

    Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
    Readln;
    Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
    Readln;
    Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
    Readln;
    Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
    Readln;
    Writeln ('Terima Kasih');
    Readln;

    END.

    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    END.

    BalasHapus
  3. Anonim26 November 2009 pukul 20.52

    tugas pertama
    program penjumlahan_pengurangan_perkalian_pembagian;
    uses crt;
    var a,b,c,d,e:integer;
    f:real;
    begin
    clrscr;
    write('memasukan nilai a:');
    readln(a);
    write('memasukan nilai b:');
    readln(b);

    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;

    writeln('hasil penjumlahan ',a,'+',b,' adalah ',c);
    readln;
    writeln('hasil pengurangan ',a,'-',b,' adalah',d);
    readln;
    writeln('hasil perkalian ',a,'*',b,' adalah',e);
    readln;
    writeln('hasil pembagian ',a,'/',b,' adalah ',f:0:2);
    readln;

    writeln('terimakasih');
    readln;
    end.


    tugas kedua

    program pengukuran_bentuk;
    uses crt;
    var panjang,lebar,keliling,luas:real;
    begin

    clrscr;

    write('masukan nilai panjang :');
    readln(panjang);
    write('masukan nilai lebar :');
    readln(lebar);

    keliling:=(2*panjang)+(2*lebar);
    luas:=panjang*lebar;

    writeln ('keliling persegi adalah ',keliling:0:2,' cm');
    readln;
    writeln ('luas persegi adalah ',luas:0:2,' cm persegi');
    readln;
    writeln('terimakasih');
    readln;
    end.

    BalasHapus
  4. x6 42 ni wayan sutraeni rahayu26 November 2009 pukul 21.14

    edit: x6 42 ni wayan sutraeni rahayu

    BalasHapus
  5. Putu teguh kresna baskara ( X.1/46)26 November 2009 pukul 23.24

    tugas1 :
    PROGRAM Operasi_ Hitungan;
    USES crt;
    VAR a,b,c,d,e :integer;
    f : real;
    BEGIN
    clrscr;
    Write ('Masukkan nilai a : ');
    Readin (a);
    Write ('masukkan nilai b : ');
    Readin (b);

    c :=a+b;
    d :=a-b;
    e :=a*b;
    f :=a/b;

    Writein ('hasil penjumlahan',a,'+',b,' adalah ',c);
    readin;
    writein ('hasil pergurangan'.a,'-',b,'adalah',d);
    Readin;
    writein ('hasil perkalian',a,'*',b,'adalah',e);
    Readin:
    writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readin;
    Writein ('terima Kasih');
    readin;

    BalasHapus
  6. Putu teguh kresna baskara ( X.1/46)26 November 2009 pukul 23.31

    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;

    BalasHapus
  7. Putu teguh kresna baskara ( X.1/46)26 November 2009 pukul 23.52

    Tugas1 :
    PROGRAM Operasi_ Hitungan;
    USES crt;
    VAR a,b,c,d,e :intenger;
    f : real;
    clrscr;
    Writen ('masukkan nilai a :';
    readin (a);
    writan ('masukkan Nilai B :';
    Readin (b);

    c :=a+b;
    d :=a-b;
    e :=a*b;
    f :=a/b;

    Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
    readin;
    Writein ('hasil pengurangan',a,'-',b,'adalah',d);
    readin;
    Writein ('hasil perkalian',a,'*',b,'adalah',e);
    readin;
    Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readin;
    Writein ('Terima kasih');
    readin;

    End.

    BalasHapus
  8. Putu teguh kresna baskara ( X.1/46)26 November 2009 pukul 23.53

    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    END.

    BalasHapus
  9. Anonim27 November 2009 pukul 03.48

    mantab dah programna... kunjungi juga ya... http://andy-study.blogspot.com ,,sharing2 ilmu ya...

    BalasHapus
  10. Vafurika27 November 2009 pukul 16.41

    Ade karunia wiadnyani (x.2/01)
    tugas 1 :

    PROGRAM Operasi_ Hitungan;
    USES crt;
    VAR a,b,c,d,e :intenger;
    f : real;
    clrscr;
    Writen ('masukkan nilai a :';
    readin (a);
    writan ('masukkan Nilai B :';
    Readin (b);

    c :=a+b;
    d :=a-b;
    e :=a*b;
    f :=a/b;

    Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
    readin;
    Writein ('hasil pengurangan',a,'-',b,'adalah',d);
    readin;
    Writein ('hasil perkalian',a,'*',b,'adalah',e);
    readin;
    Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readin;
    Writein ('Terima kasih');
    readin;

    End.
    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Cr...
    Thursday, November 26, 2009 11:31 PM
    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;

    BalasHapus
  11. Anonim27 November 2009 pukul 16.47

    ade karunia wiadnyani(x.2/01)
    tugas 1:
    PROGRAM Operasi_ Hitungan;
    USES crt;
    VAR a,b,c,d,e :intenger;
    f : real;
    clrscr;
    Writen ('masukkan nilai a :';
    readin (a);
    writan ('masukkan Nilai B :';
    Readin (b);

    c :=a+b;
    d :=a-b;
    e :=a*b;
    f :=a/b;

    Writein ('hasil penjumlahan',a,'+',b,'adalah',c);
    readin;
    Writein ('hasil pengurangan',a,'-',b,'adalah',d);
    readin;
    Writein ('hasil perkalian',a,'*',b,'adalah',e);
    readin;
    Writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readin;
    Writein ('Terima kasih');
    readin;

    End.
    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Cr...
    Thursday, November 26, 2009 11:31 PM
    Tugas 2 :
    PROGRAM Pengukuran_Bangun_Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    tugas 1
    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;

    BalasHapus
  12. putu yoga artanaya27 November 2009 pukul 21.47

    putu yoga artanaya
    X1
    48

    tugas1 :
    PROGRAM Hitungan;
    USES crt;
    VAR a,b,c,d,e :integer;
    f : real;
    BEGIN
    clrscr;
    Write ('Masukkan nilai a : ');
    Readin (a);
    Write ('masukkan nilai b : ');
    Readin (b);

    c :=a+b;
    d :=a-b;
    e :=a*b;
    f :=a/b;

    Writein ('hasil penjumlahan',a,'+',b,' adalah ',c);
    readin;
    writein ('hasil pergurangan'.a,'-',b,'adalah',d);
    Readin;
    writein ('hasil perkalian',a,'*',b,'adalah',e);
    Readin:
    writein ('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readin;
    Writein ('terima Kasih');
    readin;
    end.


    Tugas 2 :
    PROGRAM Pengukuran;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    end.

    BalasHapus
  13. Adi Jayakusuma27 November 2009 pukul 23.32

    Adi Jayakusuma
    01
    X.1

    Tugas 1 :
    PROGRAM Hitungan_Bilangan;
    USES crt;
    VAR a,b,c,d,e : integer;
    f : real;
    BEGIN
    clrscr;
    Write ('Masukkan Nilai a : ');
    Readln (a);
    Write ('Masukkan Nilai b : ');
    Readln (b);

    c := a+b;
    d := a-b;
    e := a*b;
    f := a/b;

    Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
    Readln;
    Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
    Readln;
    Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
    Readln;
    Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    END.


    Tugas 2 :
    PROGRAM Pengukuran;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    End.

    BalasHapus
  14. I MADE PRASTA GUNADA X6 3428 November 2009 pukul 00.24

    i made prasta gunada x6 34
    tugas I
    program penghitungan;
    uses crt;
    var a,b,c,d,e:integer;
    f:real;
    begin
    clrscr;
    write('memasukan nilai I:');readln(a);
    write('memasukan nilai II:');readln(b);
    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;
    writeln('hasil penjumlahan',a,'+',b,'adalah',c);readln;
    writeln('hasil pengurangan',a,'-',b,'adalah'.d);readln;
    writeln('hasil perkalian',a,'*',b,'adalah',e); readln;
    writeln('hasil pembagiaan',a,'/',b,'adalah',f:0:2);readln;
    writeln('terima kasih');
    readln;
    end.

    Tugas II
    program pengukuran;
    uses crt;
    var panjang,lebar,keliling,luas:real;
    begin
    Clrscr;
    write('memasukan nilai panjang:'); readln(panjang);
    write('memasukan nilai lebar :'); readln(lebar);
    keliling:=(2*panjang)+(2*lebar);
    luas:=panjang*lebar;
    writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
    write('luas persegi adalah',luas:0:2,'cm persegi');
    readln;
    writeln('terima kasih');
    readln;
    end.

    BalasHapus
  15. NI KADEK DWI PURNAMA RATNA SARI28 November 2009 pukul 00.29

    NI KADEK DWI PURNAMA RATNA SARI
    X6
    18
    tugas I
    program pascal_penghitungan;
    uses crt;
    var a,b,c,d,e:integer;
    f:real;
    begin
    clrscr;
    write('memasukan nilai I:');readln(a);
    write('memasukan nilai II:');readln(b);
    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;
    writeln('hasil penjumlahan',a,'+',b,'adalah',c);readln;
    writeln('hasil pengurangan',a,'-',b,'adalah'.d);readln;
    writeln('hasil perkalian',a,'*',b,'adalah',e); readln;
    writeln('hasil pembagiaan',a,'/',b,'adalah',f:0:2);readln;
    writeln('terima kasih');
    readln;
    end.

    Tugas II
    program pengukuran_bangun_datar;
    uses crt;
    var panjang,lebar,keliling,luas:real;
    begin
    Clrscr;
    write('memasukan nilai panjang:'); readln(panjang);
    write('memasukan nilai lebar :'); readln(lebar);
    keliling:=(2*panjang)+(2*lebar);
    luas:=panjang*lebar;
    writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
    write('luas persegi adalah',luas:0:2,'cm persegi');
    readln;
    writeln('terima kasih');
    readln;
    end.

    BalasHapus
  16. dipta bagaskara X328 November 2009 pukul 18.18

    Tugas Pertama :
    Program Memasukkan;
    uses crt;
    var a,b : integer;
    begin;
    clrscr;
    writeln ('Memasukkan Bilangan I : '); readln (a);
    writeln ('Memasukkan Bilangan II : '); readln (b);
    writeln ('Hasil Penjumlahan : '); writeln (a+b);
    writeln ('Hasil Pengurangan : '); writeln (a-b);
    wrteln ('Hasil Perkalian : '); writeln (a*b);
    writeln ('Hasil Pembagian : '); writeln (a div b);
    writeln ('Terima Kasih');
    readln;
    end.
    Tugas Kedua :
    Program Persegi;
    uses crt;
    var a,b : integer;
    begin;
    clrscr;
    writeln ('Masukkan Bilangan Persegi Panjang');
    writeln ('Masukkan Panjang : '); readln (a);
    writeln ('Masukkan Lebar : '); readln (b);
    writeln ('Luas Persegi : '); writeln (a*b,' cm');
    writeln ('Keliling Persegi : '); writeln (2*(a+b), 'cm persegi');
    writeln ('Terima Kasih');
    readln;
    end.

    BalasHapus
  17. poundra28 November 2009 pukul 21.32

    GDE A PRABHAWATYA POUNDRA
    X3
    35

    Tugas 1:
    PROGRAM Operasi Hitungan;
    USES crt;
    VAR a,b,c,d,e : integer,
    f : real;
    BEGIN
    clrscr
    write('Masukan Nilai a:');
    readln (a);
    write('Masukan Nilai b:');
    readln (b);

    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;

    writeln('Hasil penjumlahan',a,'+',b,'adalah',c);
    readln;
    writeln('Hasil pengurangan',a,'-',b,'adalah',d);
    readln;
    writeln('Hasil perkalian',a,'*',b,'adalah',e);
    readln;
    writeln('Hasil pembagian',a,'/',b,'adalah'f:0:2);
    readln;
    wrteln('Terima Kaih');
    END.

    Tugas 2:
    PROGRAM Pengukuran Bangun Datar;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : Integer;
    BEGIN
    Clrscr;
    Write('Masukan Panjang Persegi:');
    readln(Panjang);
    Writeln('Masukan Lebar Persegi:');
    readln(Lebar);

    Keliling:=(2*Panjang)+(2*Lebar);
    Luas:=Panjang*Lebar;

    Writeln('Keliling Persegi Panjang:',2,'*',Panjang,'+',2,'*',Lebar,'adalah'Keliling,'cm');
    readln;
    Writeln(Luas Persegi Panjang:',Panjang,'*',Lebar,'adalah',Luas,'cm persegi');
    readln;
    writeln('Terima Kasih');
    readln;
    END.

    BalasHapus
  18. Anonim29 November 2009 pukul 00.52

    yogi aditya
    49
    X1
    PROGRAM Hitungan;
    USES crt;
    VAR a,b,c,d,e : integer;
    f : real;
    BEGIN
    clrscr;
    Write ('Masukkan Nilai a : ');
    Readln (a);
    Write ('Masukkan Nilai b : ');
    Readln (b);

    c := a+b;
    d := a-b;
    e := a*b;
    f := a/b;

    Writeln ('Hasil Penjumlahan ',a,' + ',b,' adalah ',c);
    Readln;
    Writeln ('Hasil Pengurangan ',a, ' - ' ,b, ' adalah ',d);
    Readln;
    Writeln ('Hasil Perkalian ',a, ' * ' ,b, ' adalah ',e);
    Readln;
    Writeln ('Hasil Pembagian ',a, ' / ' ,b, ' adalah ',f:0:2);
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    END.


    Tugas 2 :
    PROGRAM Pengukuran;
    USES Crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    Clrscr;
    Write ('Masukkan Panjang Persegi : ');
    Readln (Panjang);
    Write ('Masukkan Lebar Persegi : ');
    Readln (Lebar);

    Keliling := (2*Panjang) + (2*Lebar);
    Luas := Panjang * Lebar;

    Writeln ('Keliling Persegi : ',2,' * ',Panjang,' + ',2,' * ',Lebar,' adalah ',Keliling,' CM');
    Readln;
    Writeln ('Luas Persegi : ',Panjang,' * ',Lebar,' adalah ',Luas,' CM Persegi');
    Readln;
    Writeln ('Terima Kasih');
    Readln;
    End.

    BalasHapus
  19. I Wayan Herry Wiguna29 November 2009 pukul 00.54

    I Wayan Herry Wiguna
    X3
    27


    Tugas 1 :
    PROGRAM Operasi Hitungan;
    USES crt;
    VAR a,b,c,d,e : integer,
    f : real;
    BEGIN
    clrscr;
    write('Masukan Nilai a:');
    readln(a);
    write('Masukan Nilai b:');
    readln(b);


    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;


    writeln('Hasil penjumlahan',a,'+',b,'adalah',c);
    readln;
    writeln('Hasil pengurangan',a,'-',b,'adalah',d);
    readln;
    writeln('Hasil perkalian',a,'*',b,'adalah',e);
    readln;
    writeln('Hasil pembagian',a,'/',b,'adalah'f:0:2);
    readln;
    writeln('Terima Kasih');
    END.


    TUGAS 2:
    PROGRAM Pengukuran Bangun Datar;
    USES crt;
    VAR Panjang,Lebar,Keliling,Luas : integer;
    BEGIN
    clrscr;
    write('Masukan Panjang Persegi:');
    readln(Panjang);
    writeln(Masukan Lebar Persegi:');
    readln(Lebar);


    Keliling:=(2*Panjang)+(2*Lebar);
    Luas:=Panjang*Lebar;


    Writeln(Keliling Persegi Panjang:',2,'*',Panjang,'+',2,'*,'Lebar,'adalah'Keliling,'cm');
    readln;
    Writeln(Luas Persegi Panjang:',Panjang,'*',Lebar,'adalah',Luas,'cm persegi');
    readln;
    writeln('Terima Kasih');
    readln;
    END.

    BalasHapus
  20. irma dharmayanti_X6_2629 November 2009 pukul 17.48

    tugas I

    program penjumlahan_pengurangan_perkalian_pembagian;
    uses crt;
    var a,b,c,d,e:integer;
    f:real;
    begin
    clrscr;
    write('memasukkan nilai a :');
    readln(a);
    write('memasukkan nilai b :');
    readln(b);

    c:=a+b;
    d:=a-b;
    e:=a*b;
    f:=a/b;

    writeln('hasil penjumlahan',a,'+',b,'adalah',c);
    readln;
    writeln('hasil pengurangan',a,'-',b,'adalah',d);
    readln;
    writeln('hasil perkalian',a,'*',b,'adalah',e);
    readln;
    writeln('hasil pembagian',a,'/',b,'adalah',f:0:2);
    readln;

    writeln('terima kasih');
    readln;


    tugas II

    program pengukuran;
    uses crt;
    var panjang,lebar,keliling,luas:real;
    begin

    clrscr;

    write('masukkan nilai panjang:');
    readln('panjang');
    write('masukkan nilai lebar:');
    readln('lebar');

    keliling:=(2*panjang)+(2*lebar);
    luas:=panjang*lebar;

    writeln('keliling persegi adalah',keliling:0:2,'cm');
    readln;
    writeln('luas persegi adalah',luas:0:2,'cm persegi');
    readln;
    writeln('terima kasih');
    readln;

    BalasHapus
  21. kurnia philyanti 29 x68 Desember 2009 pukul 18.47

    kurnia philyanti x6 29
    tugas I
    program menghitung;
    uses crt;
    Var a,b,c,d,e:integer;
    F:real;
    Begin
    Clrscs;
    write('memasukkan nilai I:");readln(a);
    write("memasukkan nilai II:')readln(b);
    C:=a+b;
    D:=a-b;
    E:=a*b;
    F:=a/b;
    writeln('hasil penjumlahan ',a,'+',b,' adalah ',c); readln;
    writeln('hasil pengurangan ',a,'-',b,' adalah ',d); readln;
    writeln('hasil perkalian ',a,'*',b,' adalah ',e); readln;
    writeln('hasil pembagian ',a,'/',b,' adalah ',f:0:2); readln;
    writeln('terima kasih');
    readln;
    end.


    tugas II
    program mengukur;
    uses crt;
    var panjang,lebar,keliling,luas:real;
    begin
    clrscr;
    write('memasukkan nilai panjang :'); readln(panjang);
    write('memasukkan nilai lebar :'); readln(lebar);
    keliling:=(2*panjang)+(2*lebar);
    luas:=panjang*lebar;
    writeln('keliling persegi adalah',keliling:0:2,'cm');readln;
    write('luas persegi adalah',luas:0:2,' cm persegi');
    readln;
    writeln('terima kasih');
    readln;
    end.

    BalasHapus

Langganan: Posting Komentar (Atom)