Turbo Pascal

Turbo Pascal dengan Rumus IF dan Else

Contoh sederhana Turbo Pascal dengan Rumus IF dan Else :

Input :

Nama Barang (NB)

Banyak Barang (BB)

Harga Barang (HB)

Rumus :

Jumlah Bayar (JB) = BB * HB

Jika Jumlah Bayar > 100.000 Maka diskon 10 %

Jika Jumlah Bayar < 100.000 Maka Tidak Dapat Diskon

Bayar Akhir (BA)  = JB-(10%*JB)

Algoritmanya

uses wincrt;

var NB         :string;

    BB,HB,JB,BA:real;

begin

    writeln('------by. Habibu------');

    writeln;

    write('Nama Barang   = '); readln(NB);

    write('Banyak Barang = '); readln(BB);

    write('Harga Barang  = '); readln(HB);

JB:=BB*HB;

writeln('Jumlah Bayar  = ',JB:9:2);

if JB>100000 Then

BA:=JB-(0.1*JB)

Else

BA:=JB;

write('Bayar Akhir   =',BA:10:2);

end.

Selamat mencoba, Smoga Berhasil.

rumus mencari luas empat persegi pangjang
program mwncari_luas_empat_persegipanjang ;
(* program membaca luas empat persegi panjang *)

user wincrt ;
        var
        pamjang, lebar, luas :integer;

        begin
        (* membaca harga panjang dan lebar*)
        writen ('panjang: ');
        readln (panjang)
        write ('lebar =');
        readln (lebar);
     
        luas : =panjang*lebar

        writenl ('luas =' ,luas);

end

rumus mencari volume kubus
program mwncari_volume_kubus ;

user wincrt ;

      var
      sisi, volume=integer;

     begin
     write ('sisi= ');
     readln (sisi);

     volume ('volume =' , volume);

end

Rumus Menghitung Luas Segitiga;
uses crt;
var a,t,ls :integer;
begin
clrscr;
write (‘alas=’); readln(a);
write (‘tinggi=’); readln(t);
ls :=a*t;
writeln (‘Luas Segitiga Adalah=’, ls);
readln;
end.
Special Thank’s For Yasohati Sarumaha S.kom

membuat rumus luas segitiga dengan turbo pascal 7,1

1.jika kita belum memasukkan angkanya

lets start

program luas_segitiga;

var

       L,a,t :real;

begin

       write('a=');

       readln(a);

       write('t=');

       readln(t);

       L;1/2*a*t;

       writeln(L);

end.

setelah itu di compile untuk membuktikan apakah program yang kita buat tidak error.setelah itu klik run dan masukkan nilai ke dalam nilai a dan t yang ditanya.setelah itu klik debug->out put,maka akan keluar nilai luas segitiga nya berapa.

2.untuk angka yang sudah kita ketahui sebelumnya

lets start

program luas_segitiga;

var

       L,a,t :real;

begin

        a:=3;

        b:=6;

       writeln('a=',a);

       writeln('t=',t);

       L;1/2*a*t;

       writeln('L=',L);

end.

lanjutkan cara pada no 1 diatas.tp kekurangannya ini cuma bisa untuk angka yang telah kita tentukan sebelumnya..

semoga membantu!!!:):):)

1.      Luas Lingkaran

Program Menghitung_Luas_Lingkaran;

Uses Windos,Wincrt;

Var

K,r:real;

Ch:char;

Begin

Clrscr;

Writeln (‘Masukkan nilai (r) =   ‘);

Readln(r);

Writeln;

L:=pi*r*r;

Writeln (‘Luas Lingkaran adalah’,K:10:2,’cm’);

Ch:=Readkey;

End.

2.     Volum Kerucut

Program Menghitung_Volum_Bangun_Kerucut;

Uses Windos,Wincrt;

Var

V,r,t:real;

Ch:char;

Begin

Clrscr;

Writeln  (‘Masukkan nilai (r)=   ‘);

Readln(r);

Writeln (‘Masukkan nilai (t)=   ‘);

Readln(t);

Writeln;

V:=1/3*pi*r*r*t;

Writeln (‘Volum kerucut adalah’,V:10:2,’cm3’);

Ch:=Readkey;

End.

3.     Sisi Miring Segitiga Siku-Siku

Program Menghitung_Sisi_Miring_Segitiga_Siku_Siku;

Uses Windos,Wincrt;

Var

a,b,c:real;

Ch:char;

Begin

Clrscr;

Writeln  (‘Masukkan nilai (a)=   ‘);

Readln(a);

Writeln (‘Masukkan nilai (b)=   ‘);

Readln(b);

C:=Sqrt ((a*a)+(b*b));

Writeln (‘Panjang sisi miring segitiga adalah ‘,C:10:2,’cm’);

Ch:=Readkey;

End.

4.     Keliling lingkaran

Program Menghitung_Bangun_Lingkaran;

Uses Windos,Wincrt;

Var

K,r:real;

Ch:char;

Begin

Clrscr;

Writeln (‘Masukkan nilai (r)=   ‘);

Readln(r);

K:=2*pi*r;

Writeln (‘Keliling lingkaran adalah’,K:10:2,’cm’);

Ch:=Readkey;

End.

5.    Volume Tabung

Program Menghitung_Volume_Tabung;

Uses Windos,Wincrt;

Var

V,r,t:real;

Ch:char;

Begin

Clrscr;

Writeln (‘Masukkan nilai (r)=   ‘);

Readln(r);

Writeln (‘Masukkan nilai (t)=   ‘);

Readln(t);

V:=pi*r*r*t;

Writeln (‘Volume tabung adalah’,V:10:2,’cm3’);

Ch:=Readkey;

End.

6.     Volume Bola

Program Menghitung_Volume_Bola;

Uses Windos,Wincrt;

Var

V,r:real;

Ch:char;

Begin

Clrscr;

Writeln (‘Masukkan nilai (r)=   ‘);

Readln(r);

V:=4/3*pi*r*r*r;

Writeln (‘Volume bola adalah’,V:10:2,’cm3’);

Ch:=Readkey;

End.

7.     Keliling Persegi Panjang

Program Menghitung_Keliling_Persegi_Panjang;

Uses Windos,Wincrt;

Var

K,a,b:real;

Ch:char;

Begin

Clrscr;

Writeln (‘Masukkan nilai (a)=   ‘);

Readln(a);

Writeln (‘Masukkan nilai (b)=   ‘);

Readln(b);

K:=(2*a)+(2*b);

Writeln (‘Keliling persegi panjang adalah’, K:10:2,’cm’);

Ch:=Readkey;

End.

RUMUS PERHITUNGAN MATEMATIKA DENGAN MENGGUNAKAN TURBO PASCAL

Luas Layang-Layang

program menghitung_luas_layang_layang;

uses windos, wincrt;

Layang-Layang

var

a,b,L:real;                                                                                  

ch:char;

begin

clrscr;

Writeln ('program ini dibuat oleh : Winda Lestiani');

writeln ('masukan panjang (a)=   ');

Readln (a);

writeln ('masukan panjang (b)=   ');

Readln (b);

Writeln;

L:=(a*b)/2;

Writeln ('luas layang layang=',L:10:2,'cm2');

ch:=Readkey;

end.

Luas Lingkaran

program menghitung_luas_lingkaran;

uses windos,wincrt;

Lingkaran

var

l,r:real;

ch:char;

begin

clrscr;

Writeln ('program ini dibuat oleh : Winda Lestiani');

writeln ('masukkan nilai r:...');

readln (r);

l:=pi*r*r;

writeln ('hasil perhitungan luas lingkaran=',l:10:2,'cm2');

ch:=readkey

end.

Sisi Miring Segitiga Siku-siku

program menghitung_panjang_sisi_miring_segitiga_siku_siku;

uses windos,wincrt;

var

c,a,b:real;

ch:char;

Segitiga Siku-siku

begin

clrscr;

writeln ('program ini dibuat oleh:Winda Lestiani');

writeln ('masukkan nilai a...');

readln (a);

writeln ('masukkan nilai b...');

readln (b);

c:=sqrt ((a*a)+(b*b));

writeln ('hasil perhitungan panjang sisi miring segitiga siku-siku=',c:10:2,'cm2');

ch:=readkey

end.

Volume Kerucut

program menghitung_volume_kerucut;

uses windos, wincrt;

var        

v,r,t:real;

Kerucut

ch:char;

begin

clrscr;

Writeln ('program ini dibuat oleh :Winda Lestiani');

writeln ('masukan panjang (r)=   ');

Readln (r);

writeln ('masukan nilai (t)=   ');

Readln (t);

v:=1/3*pi*sqr(r);

Writeln ('volume kerucut=',v:10:2,'cm2');

ch:=Readkey;

end.