Belajar Pascal 8 (SMP Islam Taufiqurrahman )

-

PASCAL KE 8

Mencari Keliling Lingkaran.

Lingkaran dapat dicari luas dan kelilingnya. Untuk mencari luas dan keliling lingkaran rumusnya tidak jauh berbeda. Luas lingkaran rumusnya adalah phi x r x r. sedangkan keliling lingkaran rumusnya adalah 2 x phi x r.

Luas Lingkaran (L), keliling lingkaran (K), phi (22/7 atau 3.14), jari-jari lingkaran (r).
K = 2 x phi x r
L = phi x r x r

untuk menuliskan coding dalam bahasa pemrograman pascal tercantum dibawah ini :










 





outpunya jika r=2 adalah

























Komentar

  1. Anonim13 November 2022 pukul 19.34

    program persegipanjang;
    uses crt;
    var panjang,lebar,luas: real ;
    begin
    CLRSCR ;
    WRITE (' MASUKAN NILAI panjang =') ; READLN (panjang);
    WRITE (' MASUKAN NILAI lebar =') ; READLN (lebar);
    luas:=panjang*lebar;
    WRITELN ('HASILNYA ADALAH =',luas:0:0);
    READLN;
    END.

    BalasHapus
  2. Anonim13 November 2022 pukul 19.36

    M.syawaludin kelas 83 hari Senin tanggal 14-11-2022

    BalasHapus
  3. Anonim13 November 2022 pukul 19.42

    Program persamaan
    User crt
    Var x.a.b;real
    begin
    Cirscr
    Write(.masuk angkaA)
    READIN (A)
    WRITE(MASUK ANGKA (B)
    READIN(B)
    X:=A/B
    WEITEIN (HASILNYA;X:0:0)
    READIN
    END

    BalasHapus
  4. Anonim13 November 2022 pukul 21.03

    program kelilinglingkaran;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin

    clrscr;

    write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);

    readln;

    end.

    BalasHapus
  5. Anonim13 November 2022 pukul 21.05

    M Raffi Suhaimi 9³ tugas pascal;
    program kelilinglingkaran;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin

    clrscr;

    write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);

    readln;

    end.

    BalasHapus
  6. Anonim13 November 2022 pukul 21.32

    Safitri Oktaviani 93
    pascal;
    program kelilinglingkaran;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin

    clrscr;

    write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);

    readln;

    end.

    BalasHapus
  7. Anonim14 November 2022 pukul 18.26

    Ok

    BalasHapus
  8. Anonim14 November 2022 pukul 18.41

    program zalika_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  9. Anonim14 November 2022 pukul 18.42

    program kirania_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  10. Anonim14 November 2022 pukul 18.44

    program zaskiaa_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  11. Anonim14 November 2022 pukul 18.44

    Silvia Damayanti 91
    program Silvia_luaskl;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?'); readln (r); luas := phi;
    writeln ('keliling lingkaran adalah luas:0:2');
    readln;
    end.

    BalasHapus
  12. Anonim14 November 2022 pukul 18.45

    program Yuna_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  13. Anonim14 November 2022 pukul 18.45

    Santika 91
    program santika_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  14. Anonim14 November 2022 pukul 18.48

    Nirmala 91
    program nirmala91lk;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?'); readln (r); luas := phi;
    writeln('keliling lingkaran adalah luas':0:2);
    readln;
    end.

    BalasHapus
  15. Dika anime 9114 November 2022 pukul 18.48

    program AndhikaLuaslingkaran;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  16. Anonim14 November 2022 pukul 18.49

    program putri_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  17. Anonim14 November 2022 pukul 18.49

    program fathir_ramadhan91;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin

    clrscr;

    write ('brp jari² keliling lingkaran?');readln

    (r); luas := phi*r*r ; writeln
    ('keliling lingkaran adalah', luas:0:2);

    readln;

    end.

    BalasHapus
  18. Anonim14 November 2022 pukul 18.50

    Nurul Hikmah 91
    Tugas Pascal:
    program kelilinglingkaran;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?'); readin (r); luas := phi rr; writeln('keliling lingkaran adalah luas:0:2);
    readln;
    end.

    BalasHapus
  19. Anonim14 November 2022 pukul 18.50

    Mergian Saputri 91
    program Silvia_luaskl;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?'); readln (r); luas := phi;
    writeln ('keliling lingkaran adalah luas:0:2');
    readln;
    end.

    BalasHapus
  20. Anonim14 November 2022 pukul 18.50

    Marwah Nurfazriani 91
    program marwah_luasling; var r:Integer; luas:Real;

    uses crt;

    const phi=3.14;

    begin

    clrscr, WriteLn('brp jari jari luas lingkaran?'); readln(r); WriteLn('luas lingkaran adalah',luas :0:2);

    luas:=phi*r*r;

    readin; end.

    BalasHapus
  21. Anonim14 November 2022 pukul 18.51

    Mergian Saputri 91
    program Mergian_luaskl;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?'); readln (r); luas := phi;
    writeln ('keliling lingkaran adalah luas:0:2');
    readln;
    end.

    BalasHapus
  22. Deden x Reno14 November 2022 pukul 18.52

    program Deden91_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  23. Muhammad Faiq Tian0514 November 2022 pukul 18.53

    Muhammad Faiq Tian 91
    program faiq_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end

    BalasHapus
  24. Anonim14 November 2022 pukul 18.55

    Destiyani 91
    program desti_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  25. arya14 November 2022 pukul 18.57

    raffi arya 91
    program arya91_luasling;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin

    clrscr;

    write ('brp jari² keliling lingkaran?');readln

    (r); luas := phi*r*r ; writeln
    ('keliling lingkaran adalah', luas:0:2);

    readln;

    end.

    BalasHapus
  26. Fauzan nasuha14 November 2022 pukul 18.59

    fauzan nasuha 91
    program luasling;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;
    begin
    clrscr;
    write ('brp jari² keliling lingkaran?');readln
    (r); luas := phi*r*r ; writeln
    ('keliling lingkaran adalah', luas:0:2);
    readln;
    end.

    BalasHapus
  27. Anonim14 November 2022 pukul 19.04

    program Ghea_luaskl;
    uses crt;
    var r:integer;luas:real;
    const phi=3.14;
    begin
    clrscr;
    Write('brp jari2 keliling lingkaran');readln(r);
    luas:=phi*r*r;
    writeln('keliling lingkaran adalah;luas:0:2);
    readln;
    End.

    BalasHapus
  28. Anonim14 November 2022 pukul 19.04

    Vidia Suciawati 91
    program vidia_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;
    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  29. Anonim14 November 2022 pukul 19.06

    Ledyva 91

    program Ledyva_luasling;
    uses crt;
    var r:integer; luas:real;
    const phi= 3.14;

    begin
    clrscr;
    write ('brp jari2 keliling lingkaran?'); readln (r); luas := phi;
    writeln('keliling lingkaran adalah luas':0:2);
    readin;

    end.

    BalasHapus
  30. Anonim14 November 2022 pukul 19.09

    Annisa Safitri 91
    program annisa_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  31. Anonim14 November 2022 pukul 19.10

    Sindi Aulia Putri
    program (nama lu)_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  32. Anonim14 November 2022 pukul 19.14

    program (Fitri oktaviani)_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  33. Anonim14 November 2022 pukul 19.30

    Reyna Tri Astuti 91
    program Reyna_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  34. Anonim14 November 2022 pukul 19.32

    MEI SELLA SAFITRI91
    program MEI_luaslingkrn;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus
  35. Anonim14 November 2022 pukul 19.33

    Mei sella Safitri 91
    program Mei_luasling;
    uses crt;
    var r:Integer; luas:Real;
    const phi=3.14;

    begin
    clrscr;
    WriteLn('brp jari jari luas lingkaran?'); readln(r);
    luas:=phi*r*r;
    WriteLn('luas lingkaran adalah',luas :0:2);
    readln;
    end.

    BalasHapus

Posting Komentar

Postingan populer dari blog ini

Belajar Pascal 1 ( SMP ISLAM TAUFIQURRAHMAN )

-
Gambar
BELAJAR PASCAL ( SMP ISLAM TAUFIQURRAHMAN ) Bahasa pemrograman Pascal merupakan bahasa pemrograman yang dapat di kompail ( Compile ) artinya bahasa pemrograman pascal dapat di cek atau diperiksa apakah dalam penulisan program (coding) ada yang salah, jika ada yang salah ada ditunjukkan posisi kolom dan baris, Jika bahasa pemrograman tersebut betul atau benar dapat ditunjukkan dengan pesan compile success (kompile sukses). Pascal termasuk salah-satu bahasa tingkat tinggi (Hight Level Language) selain Fortran, Cobol, dll. Untuk penulisan bahasa pemrograman pascal menggunakan tanda titikkoma (;) pada akhir perintah. Namun ada perintah tertentu yang tidak perlu menggunakan tanda titikkoma. Untuk membahas lebih lanjut perintah bahasa pemrograman Pascal dapat dipelajari lebih lanjut pada contoh yang akan diberikan. Bahasa Pemrograman Pascal dapat diinstal di PC/Laptop/Notebook dengan men-download dari google misalnya Free Pascal IDE (FPC)   atau yang lainnya.  Bahasa Pemrograman Pascal juga
Read more »

Belajar Pascal 7 (TUGAS KELAS 8-9)

-
Gambar
TUGAS PASCAL KELAS 83 KELAS 93 KELAS 91 KELAS 92 1. Buatlah bahasa pemrograman pascal (coding) untuk mencari luas keliling lingkaran dengan bilangan konstanta PHI = 3.14 adapun type data untuk jari-jari (r) bilangan integer, untuk luas bilangan real, dan untuk PHI adalah const. (TUGAS KELAS 9) 2. Buat bahsa pemrograman pascal (coding) untuk mencari luas persegi panjang  dengan field yaitu Luas, panjang, dan lebar. Type data (jenis data) adalah real. (TUGAS KELAS 8) Tugas diketik didalam kolom komentar dibawah. Cantumkan nama lengkap, kelas, dan hari KBM. https://smp-islam-taufiqurrahman.blogspot.com/
Read more »

Bahasa C++

-
Gambar
Mengenal bahasa pemrograman C++ (part 1) Bahasa pemrograman C++ merupakan bahasa pengembangan dari bahasa C, bahasa pemrograman C++ adalah bahasa yang ditambahi fitur baru, salah-satunya object Oriented.  Ape bedanya bahasa pemrograman C dengan bahasa pemrograman C++ ?   Bahasa pemrograman C++ merupakan OOP (Object Oriented Programming) artinya bahasa pemrograman C++ mempunyai data & fungsi yang disatukan dalam kelas dan objek untuk memecahkan suatu permasalahan. Ketika ingin mengubah fungsi tidak perlu mengubah keseluruhan program, jadi pengubahan program akan fleksible. Sedangkan bahasa pemrograman C bersifat prosedural, data dan fungsi terpisah sehingga harus dibaca satu per satu oleh compiler. Jika ingin mengubah fungsi, maka seluruh program akan dirubah. Bahasa pemrograman C++ merupakan pengembangan dari bahasa pemrograman C, artinya ibunya bahasa C++ adalah Bahasa pemrograman C, Selanjutnya dari bahasa pemrograman C++ lahirlah bahasa pemrograman Java. Kesimpulannya adalah ibu
Read more »