12 Koding Jitu Konversi Suhu di Pascal

Salam Pascal Mania !

Mengenai pemrograman pascal tentang membuat suhu, mimin kira pasti sobat Pascal Mania udah hafal betul kalo macam-macam pengukuran skala suhu ada 4 :

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
  1. Celcius
  2. Reamur
  3. Fahrenheit
  4. Kelvin
Dari keempat satuan suhu tersebut, mimin punya sintax nih buat ngitung semua di pascal. 

Untuk para master, saya mohon maaf apabila kurang berkenan.

variabel yang saya gunakan adalah sebagai berikut gan :
  1. cel (Celcius)
  2. fah (Fahrenheit)
  3. rea (Reamur)
  4. kel (Kelvin)
Berikut sintax-sintax nya

Ini program Fahrenheit Ke Celcius

uses crt ;
var  
    cel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Fahrenheit : ');
    readln(fah);
    cel := (fah - 32) + 18;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini program Fahrenheit ke Kelvin

uses crt;
var
    fah, kel : real;
begin
clrscr;
    write('Masukan Nilai Fahrenheit : ');
    readln(fah);
    kel := (fah+459.67)+1.8;
    writeln('Hasil Konversi Ke Kelvin : ',kel:2:2);
    readln;
end.

Ini Program Fahrenheit Ke Reamur

uses crt ;
var
    rea, fah : real;
begin
    clrscr;
    write('Masukan Derajat Fahrenheit : ');
    readln(fah);
    rea:=fah+459.67;
   writeln('Hasil Konversi Ke Celcius : ',rea:2:2);
    readln;
end.

Ini Program Celcius ke Fahrenheit

uses crt ;
var   
    cel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    fah := (1.8*cel)+32;
 writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Ini Program Celcius Ke Kelvin

uses crt ;
var
    cel, kel: real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    kel:=c+273.15;
    writeln('Hasil Konversi Ke kelvin : ',kel:2:2);
    readln;
end.

Ini Program Celcius Ke Reamur

uses crt ;
var
      cel, rea: real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    rea:=1.8*(cel+273.15);
 writeln('Hasil Konversi Ke Reamur : ',rea:2:2);
    readln;
end.

Ini program Kelvin ke Celcius

uses crt ;
var
    kel , cel: real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    cel:= kel-273.15;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini Program Kelvin ke Fahrenheit

uses crt ;
var  
    kel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    fah:=(1.8*kel)-459.67;
writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Ini Program Kelvin ke Reamur

uses crt ;
var
    kel , rea: real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    rea:=1.8*kel;
    writeln('Hasil Konversi Ke Kelvin : ',rea:2:2);
    readln;
end.

Ini program Reamur ke Celcius

uses crt ;
var
    rea , cel: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    cel:=(rea+1.8)-273.15;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini program Reamur Ke Kelvin

uses crt ;
var    
    rea , kel: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    kel:=rea+1.8;
    writeln('Hasil Konversi Ke Kelvin : ',kel:2:2);
    readln;
end.

Ini Program Reamur ke Fahrenheit

uses crt ;
var
    rea , fah: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    fah:=rea-459.67;
 writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Mimin janji, nanti disempurnakan kembali agar lebih kompleks tentang program diatas atau dimodifikasi dengan menggunakan fungsi if di pascal. Biar tambah kece gitu 😁

Nih salah satu outputnya gan,



Makanya pantengin terus yah, artikel-artikel mimin. Semoga bermanfaat, dan thanks telah berkunjung. Komentar saja disini nanti mimin kunjung balik blog agan-agan.

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label:

Program Hitung Luas Lingkaran di Pascal

Salam Pascal Mania !

Kali ini mimin mau nge-share bagaimana script menghitung luas lingkaran.

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
Lingkaran mempunyai tiga variabel dalam bahasa pemrograman pascal yang saya gunakan, pertama deklarasi variabel phi yang bernilai 3.14 atau 22/7. Kedua, deklarasi variabel jari-jari (r) dan terakhir adalah luas.

Sehingga rumus matematis yang kita dapatkan adalah luas = Π x r².

Adapun skrip nya sebagai berikut, monggo di copas mawon yo :

var
    phi  : real;
    r    : real;
    luas : real;
begin
    write('Masukan jari-jari : ');
    readln(r);
    phi:=3.14;
    luas:=phi * r * r;
writeln('Luasnya : ',luas:2:2);
    readln;
end.

Untuk lebih memahami skrip di atas, bolehlah mimin kasih tau perbarisnya :

  1. Baris pertama menjelaskan pemanggilan fungsi variabel
  2. Deklarasi variabel phi bertipe data real (desimal)
  3. Deklarasi variabel r sebagai jari-jari yang bertipe data real
  4. Deklarasi variabel luas sebagai tipe data real (wajib real karena pecahan)
  5. Mulai 
  6. Inputan jari-jari 
  7. Disimpan inputan tadi di variabel r
  8. Menentukan bahwa nilai phi adalah 3.14
  9. Ini menjelaskan tentang proses perhitungan
  10. Mencetak nilai luas
  11. Dibaca
  12. Selesai

Kalau sudah memahami semua, apabila program tersebut di compile hasilnya kek gini :

Demikian hasilnya, semoga bermanfaat. Makasih telah berkunjung

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label:

Program Pascal Cetak n Kali Nama Kita

Salam Pascal Mania !

Halo berjumpa lagi bersama mimin, oh iya pada kesempatan kali ini mimin mau nge-share gimana sih caranya mencetak nama anda sebagai inputan, kemudian input berapa banyak percetakan nama tersebut.

Disini terdapat tiga variabel, yang saya gunakan. Pertama i , n , dan nama. Serta variabel yang mimin gunakan bertipe data satu sebagai string dan lainya sebagai integer.

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Berikut script yang digunakan :
var
i,n  : integer;
nama : string;
begin
write('Masukan Nama Anda : ');
readln(nama);
write('Berapa Kali Cetak nama anda : ');
readln(n);
for i:= 1 to n do
    begin
        writeln(nama);
    end;
readln;
end.

Penjelasan tiap barisnya sebagai berikut :

  1. Var (Memanggil fungsi variabel)
  2. Deklarasi variabel i bertipe data integer untuk fungsi looping (for), serta n bertipe data integer untuk penyimpanan input banyak kali percetakan nama
  3. Mulai program utama
  4. Ini script inputan nama
  5. Disimpan di variabel nama
  6. Ini untuk inputan n kali percetakan nama
  7. Disimpan di variabel n
  8. Fungsi looping, mulailah variabel i yang bernilai awal satu sampai n untuk melakukan...
  9. Mulai
  10. Cetak nama ke bawah
  11. Akhiri looping
  12. Dibaca
  13. Selesai
Untuk output nya setelah penulisan sintax kode diatas sebagai berikut :


Demikian program sederhana for sebagai bagian dari salah satu sintax looping yang ada di pascal. Semoga bermanfaat, makasih sudah mampir.


Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label:

Program Pascal Pengulangan (Repeat) Login

Salam Pascal Mania !

Kali ini admin mau nge-share membuat program looping sebuah output login dimana program ini mempunyai dua variabel yaitu username dan password.

Fungsi looping disini yaitu apabila kita memasukan username dan passwordnya salah maka program akan terus berjalan sampai username dan passwordnya benar maka program tersebut berhenti.

Pada listing program di bawah ini admin contohkan, fungsi looping pakai Repeat..until sebuah program yang diset username dan passwordnya adalah 'saya' selain itu program akan terus menanyakan inputan yang sesuai tak terbatas.

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Ini dia sintaxnya, untuk sahabat pascal mania :

uses crt;
var username : string;
password : string;
begin
clrscr;
repeat
   write('Masukan Username = ');              
   readln(username);
   write('Masukan Password = ');
   readln(password);
until (username='saya') and (password='saya');
end.

Penjelasan sintax diatas, mempunyai makna tiap barisnya sebagai berikut :

  1. Fungsi pengguna
  2. Fungsi variabel
  3. Deklarasi variabel username dengan tipe data string
  4. Deklarasi variabel password dengan tipe data string
  5. Memulai menulis program utama
  6. Memanggil fungsi pembersih layar saat program di compile secara otomatis
  7. Ulangilah berikut (secara terus menerus)
  8. Inputan username 
  9. Dimasukan di variabel username
  10. Inputan password
  11. Dimasukan di variabel password
  12. Pengulangan berhenti sampai username berisi saya dan password juga saya
  13. Dibaca
  14. Selesai

Apabila script tersebut telah diketik maka ketika di compile hasilnya seperti ini :


Demikian penjelasan beserta program sintax nya, semoga bermanfaat. Terima-kasih telah mengunjungi artikel ini

Salam Pascal Mania !


Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
Label:

Program Hitung Rata n Kali Ulangan di Pascal

Salam Pascal Mania !

Kali ini admin mau kasih script pada Bahasa Pemrogramman Pascal mengenai Looping. Kita tau Looping bermakna pengulangan sebuah kondisi sampai pada pemberhentian yang kita set sebelumnya. Pada Pascal terdapat tiga yang sering digunakan yaitu For, While, dan Repeat. Masing-masing tersebut mempunyai kegunaan yang hampir mirip yang pada intinya tentang pengulangan kondisi.

Script yang akan kita bahas tentang for berikut menjelaskan bagaimana menghitung n (inputan bebas) kali ulangan kemudian mencari rata-rata nya. Berikut kodingnya semoga bermanfaat bagi sobat Pascal mania

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Uses crt;
Var
n : integer;
i,b : integer;
jum : integer;
rata : real;
Begin
Clrscr;
jum:=0;
Write('Masukan Banyak Ulangan : ');
Readln(n);
For i:= 1 to n do
Begin
     Write('Ulangan Ke-',i,' : ');
     readln(b);
     jum:= jum + b;
End;
rata:= jum/n;
Writeln('Rata nya = ',rata:2:1);
Readln;
End.

Penjelasan tiap barisnya sebagai berikut :

  1. Fungsi Pengguna
  2. Deklarasi variabel n sebagai penyimpan banyaknya ulangan
  3. Deklarasi variabel i, dan b sebagai looping (pengulangan) dengan tipe data integer
  4. Deklarasi variabel jum untuk jumlah dengan tipe data integer
  5. Deklarasi variabel rata dengan tipe data real (desimal) karena nanti hasilnya bisa pake koma-komaan 
  6. Mulai
  7. Panggil fungsi penghapus layar apabila program dijalankan kembali
  8. Nilai variabel jum bernilai awal 0 (Nol)
  9. Inputan banyaknya n kali ulangan
  10. Disimpan nilainya di variabel n
  11. Ulangilah variabel i yang awalnya 1 sampai pada nilai variabel n (tadi)
  12. Mulai
  13. Inputan untuk ngisi tiap nilai ulangan kemudian disimpan di variabel b
  14. ini bagian proses penjumlahan dengan variabel jum yang awalnya 0 + perulangan jumlah pada nilai variabel b
  15. Tahap looping selesai
  16. Ini rumus/script untuk menghitung ratanya
  17. Tampilan output nanti terisi otomatis disini dari proses perhitungan rata tadi 
  18. Dibaca
  19. Selesai
Berikut outputnya setelah di compile 


Demikian penjelasannya, untuk agan atau sobat pascal mania yang kurang paham boleh komentar di artikel ini. Saya sangat senang, apalagi dikritik. Terimakasih banyak

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label:

Program Pascal Hitung Luas Persegi Panjang

Salam Pascal Mania !

Kali ini admin mau kasih source kode mengenai bagaimana cara menghitung luas bangun datar seperti persegi panjang. Kita semua tau persegi panjang mempunyai rumus yang bagus yakni Panjang dikali Lebar atau yang kita tau L=PxL. Dari bagian-bagian rumus tadi dalam pemrograman pascal kita anggap variabel.

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman


Var
p,l : integer;
luas : integer;
begin
write('Masukan panjang : ');
readln(p);
write('Masukan lebar : ');
readln(l);
luas:= p * l;
writeln('Luasnya adalah : ',luas);
readln;
end.


Adapun penjelasan Sintax (Perbaris) nya sebagai berikut :

  1. Memanggil Fungsi Variabel
  2. Deklarasi variabel panjang dan lebar
  3. Deklarasi variabrl luas
  4. Mulai coding
  5. Inputan panjang
  6. Disimpan di variabel p
  7. Inputan lebar
  8. Disimpan di variabel l
  9. Rumus/proses perhitungan
  10. Menampilkan hasil perhitungan
  11. Dibaca
  12. Selesai
Setelah script tadi dibuat, maka outputnya sebagai berikut :


Demikian program pascal persegi panjang yang sudah admin rangkum semoga bermanfaat untuk semuanya. 


Salam Pascal Mania ! 😂😂


Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
Label:

Program Pascal Hitung Luas Persegi


Salam Pascal Mania ! 

 Oh iya mimin kali ini mau kasih source kode pascal untuk menghitung luas persegi. 

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Kita pasti udah hafal bener dikepala rumus matematis menghitung luas bangun datar layaknya persegi. Bahkan saking hafalnya kita semua sampe lupa hehehe 😁😁

Kita wajib sepakat kalo rumus matematisnya itu adalah luas(L) = Sisi x Sisi (S²) maka untuk dipascalnya misalkan kita gunakan Variable 'Luas' untuk menngidentifikasikan Luas dan 'Sisi' untuk mengidentifikasikan Sisi. Biar agan gak keliru maksudnya begitu. 

Source Kodenya sebagai berikut gan :
Var
Sisi, Luas : integer;
begin
write('Masukan Sisi : ');
readln(Sisi);
Luas:= Sisi * Sisi;
writeln('Luasnya adalah = ', Luas);
readln;
end.

Penjelasannya (Perbaris) :

BARIS1 Karena kita membuat program yang berupa perhitungan matematis, otomatis akan ada penyimpan nilai sementara atau yang kita sebut dengan Variable ya gan, nah untuk itu 'Var' pada baris pertama berguna untuk memanggil fungsi Variabel yang ada di pascal.
BARIS2 itu kita tulis apa saja variablenya, kalau hitung persegi kan cuma dua (Luas dan Sisi) maka deklarasi variablenya kita tulis (langsung) bertipe data Integer. Maka menjadi Sisi, Luas : Integer;
BARIS3 Mulai penulisa program
BARIS4 Ini perintah untuk inputan Sisi
BARIS5 Nanti nilai inputan nya disimpan di baris ini
BARIS6 Kalau sudah disimpan maka nanti diproses/dihitung pada rumus ini
BARIS7 Kemudian hasilnya ditampilkan disini
BARIS8 Dibaca
BARIS9 Selesai
Dan, berikut hasil Screenshoot untuk outputnya setelah di Compile jadi kek gini 
  • Outputan

Semoga bisa membantu untuk Sobat Pascal Mania 😂 Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman.


Label:
Langganan: Komentar (Atom)