Membuat Kalkulator Dengan Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Membuat Kalkulator Dengan Turbo Pascal
sebenarnya ada beberapa cara untuk Membuat Kalkulator Dengan Turbo Pascal namun kali ini saya akan menggunakan IF dan Case untuk memilih operasi apa yang dijalankan,apakah operasi tambah, pengurangan, pembagian atau perkalian

Sebelum memulainya ada baiknya anda membaca postingan saya sebelumnya yaitu Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal

Jika anda sudah mengerti cara penggunaan  Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal maka langsung saja

Cara pertama
Membuat Kalkulator Dengan Turbo Pascal dengan Statement IF

1. Buka turbo pascal yang anda miliki

2. ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

Penjelasan :

write('Masukan Bilangan Pertama : ');readln(bil1);
write('Masukan Bilangan Kedua : ');readln(bil2);
write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

Mengisi variable bil1, bil2, dan op sesuai dengan yang kita inputkan

if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

Melakukan pemilihan operasi hitung, jika + maka akan melakukan operasi penjumlahan, jika - maka akan melakukan operasi pengurangan jika * maka akan melakukan opearasi pengurangan, jika / maka akan melakukan operasi pembagian jika tidka diantara ke empat itu maka akan muncul text bertuliskan tidak termasuk dalam operasi perhitungan

Cara kedua
Membuat Kalkulator Dengan Turbo Pascal dengan Statement Case

1. Buka program turbo pascal yang anda miliki

2, Ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 case op of
  '+':
  begin
   jumlah:=bil1+bil2;
  end;

  '-':
  begin
   jumlah:=bil1-bil2;
  end;

  '*':
  begin
   jumlah:=bil1*bil2;
  end;

  '/':
  begin
   jumlah:=bil1/bil2;
  end;

 else
  begin
   writeln(op,' tidak termasuk dalam operais perhitungan');
  end;
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

 

Sekian dulu dari saya.

Read More

Perulangan Repeat Until di Turbo Pascal

Pada postingan kali ini saya akan membahas Perulangan Repeat Until di Turbo Pascal
Sebenarnya perulangan ini hampir sama dengan Perulangan While do di Turbo Pascal namun ada beberapa perbedaan antara repeat dan while,jika repeat iya akan menjalankan perintah yang akan diulang lalu mengeceknya, jika nilainya benar/true maka perulangan tersebut akan berhenti,namun jika masih salah/false maka akan terus melakukan perulangan sampai nilai itu benar/true

Contoh Perulangan Repeat Until di Turbo Pascal

1. Buka turbo  pascal yang anda punya

2. Ketikan script dibawah ini

program repeat_until;
uses crt;
var
 i,jumlah:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');

 i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;
 
 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Penjelasan :

var
 i,jumlah:integer;

Mendeklarasikan variable i dan jumlah sebagai integer

i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;

Mengisi variable i dengan 1, lalu mengisi variable jumlah sesuai dengan jumlah yang kita inputkan
lalu melakukan perulangan sampai isi dari variable i lebih dari variable jumlah

Itulah penjelasan singkat dari saya
semoga berhasil

Read More

Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Menghitung Jumlah Nilai Dengan Array di Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal

Apa itu Array ?
Array adalah sekumpulan variable yang memiliki tipe data yang sama  dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan index integer untuk menentukan urutan elemen-elemennya dimana elemen pertama di mulai dari nol (0)

Setelah anda mengetahui apa itu array sekarang saya akan langsung memberi tahu cara Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

1. Buka program Turbo Pascal yang anda punya\

2. Masukan script dibawah ini

script

program jumlah_array;
uses crt;
var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;
begin
 clrscr;
 writeln('===================');
 writeln('Tutorial Koding');
 writeln('===================');
 writeln('');
 write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;
 
 for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;
 
 writeln('Jumlah Seluruh Nilai :',jumlah);
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Penjelasan :

var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;

Digunakan untuk mendekarasikan Variable

write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;

Digunakan untuk menampung banyak data yang diinputkan

for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;

Melakukan perulangan sebanyak jumlah data yang diinputkan
lalu mengisi variable jumlah dengan penjumlahan dari data nilai yang diinputkan


Semoga berhasil
Semoga bermanfaat dan jangan lupa berikan komentar untuk postingan ini.

Read More

Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

Pada postingan kali ini saya akan membahasa tentang cara Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Statemetn IF di Turbo Pascal dan Perulangan For do di Turbo Pasca karna untuk menghitung huruf vocal dan kosonan dengan turbo pascal kita memerlukan 2 statement itu


1. Buka program turbo pascal yang anda miliki

2. Ketikan script dibawah ini

program vokal_konsonan;
uses crt;
var
 vokal,konsonan,len,i:integer;
 kata:string;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

 for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;
 
 writeln('Jumlah Huruf Vokal : ',vokal);
 writeln('Jumlah Huruf Konsonan : ',konsonan);
 readln;
end.

Jika dijalankan akan seperti gambar di bawah ini

Penjelasan :

var
 vokal,konsonan,len,i:integer;
 kata:string;

Digunakan untuk mendeklarasikan variable

write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

Digunakan untuk mengisi variable kata dengan kata yang kita inputkan
length digunakan untuk mengetahui panjang karakter dari kata yang kita inputkan
konsonan:=0 dan vokal:=0 digunakan untuk mengisi variabel dengan 0

for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;

Melakukan perulangan untuk mendapatkan jumlah huruf vokal dan konsonan

writeln('Jumlah Huruf Vokal : ',vokal);
writeln('Jumlah Huruf Konsonan : ',konsonan);

Digunakan untuk menampilkan jumlah huruf vokal dan konsonan yang ditemukan

Semoga berhasil
Semoga bermanfaat dan jangan lupa untuk memberikan komentar pada postingan ini.

Read More

Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan While do di Turbo Pascal
kali ini saya akan memposting tentang Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal
Sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal karena untuk mencari bilangan genap ganjil dan prima ini saya akan menggunakan perulangan For

Oke langsung saja yang pertama

Mencari Bilangan Genap di Turbo Pascal

program bil_genap;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);

 write('Bilangan Genap Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 0) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 0 maka akan dimunculkan sebagai bilangan genap

Mencari Bilangan Ganjil di Turbo Pascal

program bil_ganjil;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 
 write('Bilangan Ganjil Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 1) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 1 maka akan dimunculkan sebagai bilangan ganjil

Mencari Bilangan Prima di Turbo Pascal

program bil_prima;
uses crt;
var
 bil1,bil2,a,b:integer;
begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Bilangan Pertama : ');
 write('Masukan Bilangan Kedua : ');
 
 write('Bilangan Prima Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  a:=0;
  for b:=1 to bil1 do
  begin
   if (bil1 mod b = 0) then
   begin
    a:=1+1;
   end;
  end;
 if (a=2) then
 begin
  write(bil1,' ');
 end;
 end;

 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Semoga Berhasil
Semoga bermanfaat, jangan lupa berikan komentar pada postingan ini.

Read More

Perulangan While do di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan For do di Turbo Pascal.
Kali ini saya akan memposting tentang Perulangan While do di Turbo Pascal.
Perulangan While do digunakan untuk melakukan proses perulangan statement terus menerus selama expresi pada while do bernilai True atau belum terpenuhi

Contoh Perulangan While do

program while_do;
uses crt;
var
	bil,x:integer;
begin
	clrscr;
	writeln('=================');
	writeln('Tutorial Koding');
	writeln('==================');
	write('Masukan sebuah bilangan : ');readln(bil);
	
	x:=1;
	while x <= bil do
	begin
		writeln('Tutorial Koding ',x);
		x:=x+1;
	end;
	
	readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Pada gambar di atas akan melakukan perulangan dari x samapi x kurang atua sama dengan bilangan yang ditentukan

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini

Read More

Perulangan For do di Turbo Pascal

Setelah sebelumnya saya memposting tentang Statement Case di Turbo Pascal 

Kali ini saya akan memposting tentang Perulangna For do di Turbo Pascal. Perulangan For do digunakan untuk mengulangi statement berulang kali sejumlah yang anda tentukan,

ada 3 bentuk perulangan for do yaitu

• For - do positif
• For - do negatif
• For - do tersarang

For - do positif adalah perulangan yang di mulai dari perhitungan kecil ke perhitungan besar

Contoh perulangan For - do positif

program for_do_positif;
uses crt;
var
 bil,x:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');

 writeln('');
 write('Masukan sebuah bilangan : ');readln(bil);
 
 for x:=1 to bil do
  begin
  writeln('Tutorial Kodng ',x);
  end;

 readln;
end.

Maka jika di jalankan akan seperti gambar di bawah ini

Pada gambar diatas akan melakukan perulangan dari 1 sampai dengan jumlah bilangan yang ditentukan

For - do negatif adalah kebalikan dari For - do positif yaitu perulangan yang di mulai dari perhitungan besar ke perhitungan kecil

Contoh Perulangan For - do Negatif

program for_do_negatif;
uses crt;
var
 bil:integer;
begin
 clrscr;
 writeln('================');
 writeln('Tutorial Koding');
 writeln('================');
 writeln('');
 write('Masukan sebuah bilangan : ');readln(bil);

 for bil:=bil downto 1 do
  begin
  writeln('Tutorial Koding ',bil);
  end;

 readln;
end.

Maka jika di jalankan akan seperti gambar di bawah ini

Pada gambar diatas akan melakukan perulangan dari jumlah bilangan yang di tentukan sampai 1

For - do tersarang adalah perulangan yang ada di dalam perulangan lainnya. perulangan yang paling dalam akan di proses terlebih dahulu sampai selesai, setelah itu perulangan yang lebih di luar akan bertambah atau berkurang dan memproses lagi perulangan yang paling dalam

Contoh perulangan For - do tersarang

program for_do_tersarang;
uses crt;
var
 i,j:integer;
begin
 clrscr;
 writeln('================');
 writeln('Tutorial Koding');
 writeln('================');
 writeln('');
 
 for i:=1 to 5 do
 begin
  for j:=1 to 5 do
  begin
   write(i,j,' ');
  end;
 writeln('');
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Pada gambar diatas akan melakukan perulangan i lalu melakukan perulangan j sampai selesai lalu setelah perulangan j selesai maka akan meneruskan  perulangan i sampai selesai, begitu juga seterusnya.

Semoga berhasil
Semoga bermanfaat, jangan lupa berikan komentar anda pada postingan ini

Read More