[TUTORIAL] Program Hitung Keliling Segitiga | Turbo Pascal

Programming Tutorial

[TUTORIAL] Program Hitung Keliling Segitiga | Turbo Pascal

Unknown 15:18 Komentar

Setelah tutorial mencari Luas segitiga. Sekarang saya mau share tutorial turbo pascal mencari Keliling Segitiga dengan rumus = a+b+c.Untuk yang belum punya turbo pascal bisa di download DISINI

1. Tulis Source Code di Turbo Pascal

Source Code Di Tulis di Turbo Pascal

Source Code :

program hitung_kelilingsegitiga;
uses crt;
var a,b,c,keliling:integer;
begin
clrscr;
       writeln('=========================================================');
       writeln('Program Hitung Keliling Segitiga');
       writeln('=========================================================');
       writeln;
       write('Masukkan sisi A = ');
       readln(a);
       write('Masukkan sisi B = ');
       readln(b);
       write('Masukkan sisi C = ');
       readln(c);
       writeln;
       keliling:=a+b+c;
       writeln('Keliling  Segitiga = ',keliling);
       readln;
end.

2. Compile Source Code dengan menekan ALT+F9

Compile Berhasil

3. Jalankan Program yang telah dibuat CTRL+F9

Program berjalan dengan sempurna

Sekian tutorial Turbo Pascal sederhana dari saya

Jangan lupa Comment & Share

Baca selengkapnya

[TUTORIAL] Program Hitung Luas Segitiga | Turbo Pascal

Programming Tutorial

[TUTORIAL] Program Hitung Luas Segitiga | Turbo Pascal

Unknown 15:09 1 Komentar

Pada tutorial kali ini saya mau berbagi cara membuat program hitung luas segitiga sederhana. Program ini dapat menghitung luas segitiga yang memiliki rumus (Alas x Tinggi) / 2. Untuk yang belum punya turbo pascal bisa di download DISINI

1. Tulis Source Code di Turbo Pascal

Source Code Di Tulis di Turbo Pascal

Source Code :

program hitung_luassegitiga;
uses crt;
var
   alas,tinggi:integer;
   luas:real;
begin
clrscr;
       writeln('=========================================================');
       writeln('Program Hitung Luas Segitiga');
       writeln('=========================================================');
       writeln;
       write('Masukkan Alas = ');
       readln(alas);
       write('Masukkan Tinggi = ');
       readln(tinggi);
       writeln;
       luas:=(alas*tinggi) div 2;
       writeln('Luas Segitiga = ',luas:0:2);
       readln;
end.

2. Compile Source Code dengan menekan ALT+F9

Compile Berhasil

3. Jalankan Program yang telah dibuat CTRL+F9

Program berjalan dengan sempurna

Sekian tutorial Turbo Pascal sederhana dari saya

Jangan lupa Comment & Share

Baca selengkapnya

[TUTORIAL] Program Hitung Persegi Panjang | Turbo Pascal

Programming Tutorial

[TUTORIAL] Program Hitung Persegi Panjang | Turbo Pascal

Unknown 14:49 4 Komentar

Setelah Tutorial cara Menghitung Lingkaran & Persegi. Sekarang saya ingin membagi tutorial Hitung Persegi Panjang. Dalam program ini kalian bisa menghitung Luas dan Keliling Persegi Panjang. Untuk yang belum punya turbo pascal bisa di download DISINI

1. Tulis Source Code di Turbo Pascal

Source Code Di Tulis di Turbo Pascal

Source Code :

program hitungpersegipanjang;
uses crt;
var lebar,panjang,luas,keliling:integer;
begin
clrscr;
       writeln('=========================================================');
       writeln('Program Hitung Persegi Panjang');
       writeln('=========================================================');
       writeln;
       write('Masukkan Panjang = ');
       readln(panjang);
       write('Masukkan Lebar = ');
       readln(lebar);
       writeln;
       luas:=panjang*lebar;
       writeln('Luas Persegi Panjang = ',luas);
       keliling:=2*panjang+2*lebar;
       writeln('Keliling Persegi Panjang = ',keliling);
       readln;
end.

2. Compile Source Code dengan menekan ALT+F9

Compile Berhasil

3. Jalankan Program yang telah dibuat CTRL+F9

Program berjalan dengan sempurna

Sekian tutorial Turbo Pascal ketiga dari saya

Jangan lupa Comment & Share

Baca selengkapnya

[TUTORIAL] Program Hitung Lingkaran | Turbo Pascal

Programming Tutorial

[TUTORIAL] Program Hitung Lingkaran | Turbo Pascal

Unknown 16:07 Komentar

Setelah Tutorial cara Menghitung Persegi. Sekarang ini adalah tutorial Turbo Pascal kedua saya yaitu Tutorial Program Hitung Lingkaran dengan Turbo Pascal. Dalam program ini kalian bisa menghitung Luas dan Keliling suatu lingkaran. Untuk yang belum punya turbo pascal bisa di download DISINI

1. Tulis Source Code di Turbo Pascal

Source Code Di Tulis di Turbo Pascal

Source Code :

program hitunglingkaran;
uses crt;
var
   r:integer;
   keliling,luas:real;
const
   phi=3.14;
begin
clrscr;
       writeln('=======================================');
       writeln('Program Hitung Lingkaran');
       writeln('=======================================');
       writeln;
       write('Masukkan Jari-Jari Lingkaran = ');
       readln(r);
       luas:=phi*r*r;
       writeln;
       writeln('Luas Lingkaran = ',luas:0:2);
       keliling:=2*phi*r;
       writeln('Keliling Lingkaran = ',keliling:0:2);
       readln;
end.

2. Compile Source Code dengan menekan ALT+F9

Compile Berhasil

3. Jalankan Program yang telah dibuat CTRL+F9

Program berjalan dengan sempurna

Sekian tutorial sederhana dari saya

semoga bermanfaat bagi pembelajaran

Jangan lupa Like & Share ya

Baca selengkapnya

[TUTORIAL] Program Hitung Persegi | Turbo Pascal

Programming Tutorial

[TUTORIAL] Program Hitung Persegi | Turbo Pascal

Unknown 15:24 Komentar

Kesempatan kali ini saya mau berbagi kepada kalian, bagaimana cara membuat Program Hitung Persegi dengan Turbo Pascal. Di program ini kalian bisa menghitung Luas & Keliling Persegi. Untuk kalian yang belum memiliki program Turbo Pascal Bisa di download DISINI


1. Tuliskan Source Code seperti dibawah pada Turbo Pascal

Tulis Source Code di Turbo Pascal

Source Code :

program hitungpersegi;
uses wincrt;
var sisi,luas,keliling:integer;
begin
clrscr;
       writeln('=========================================================')
       writeln('Program Hitung Persegi')
       writeln('=========================================================')
       writeln;
       write('Masukkan Sisi Persegi = ');
       readln(sisi);
       luas:=sisi*sisi;
       writeln('Luas Persegi = ',luas);
       keliling:=4*sisi;
       writeln('Keliling Persegi = ',keliling);
       readln;
end.

2.  Compile hasil penulisan code diatas dengan menekan ALT+F9

Program Berhasil di Compile

3. Jalankan Program yang telah dibuat dengan Menekan CTRL+F9

Program Hitung Persegi berjalan lancar

Sekian Tutorial Sederhana dari saya.

Apabila ada kendala atau masalah silahkan comment dibawah.

dan jangan lupa share post ini agar lebih bermanfaat bagi orang lain

Baca selengkapnya