NAMA : YUSRINA FITRIA
NIM : 1201252
1.
Program Persamaan Fungsi Kuadrat
|
Program
Persamaan_Fungsi_Kuadrat;
Uses
crt;
Var
a,b,c
: integer;
x,y
: real;
Begin
{bagian masukkan)
clrscr;
writeln(‘Menghitung nilai dari Persamaan
f(x) = ax^2 + bx+ c’);
writeln(‘ ‘);
write(‘Masukkan nilai koefisien dari x^2
! ‘); readln(a);
write(‘Masukkan nilai koefisien dari x !
‘); readln(b);
write(‘Masukkan nilai konstanta ! ‘);
readln(c);
write(‘Masukkan nilai dari variabel x !
‘); readln(x);
{bagian proses}
y:=(a*sqr(x)+(b*x)+c));
{bagian keluaran)
clrscr;
writeln(‘Untuk Persamaan f(x)= ax^2 + bx
+c’);
writeln(‘ ‘);
writeln(‘Nilai a = ‘,a,‘ Nilai b = ‘,b,’
Nilai c = ‘,c,’ Nilai x = ‘,x:0:0);
writeln(‘Maka Nilai f(x) adalah
‘,y:0:0);
readln;
End.
|
2.
Program Diskon Belanja
|
Program Diskon_Belanja;
Uses crt;
Var
kode : string;
harga,diskon,bayar : real;
Begin
{bagian masukkan}
clrscr;
write(‘Masukkan Kode Barang : ‘); readln(kode);
write(‘Masukkan Harga Barang : ‘);
readln(harga);
{bagian proses}
diskon:=((5/100)*harga);
bayar:=harga-diskon;
{bagian keluaran}
clrscr;
writeln(‘Kode Barang : ‘,kode);
writeln(‘Harga Barang : Rp ‘,harga:0:0);
writeln(‘Diskon : Rp ‘,diskon:0:0);
writeln(‘Pembayaran : Rp ‘,bayar:0:0);
readln;
End.
|
3.
Program Menghitung Luas Segitiga
|
Program Luas_Segitiga;
Uses crt;
Var
a,b
: integer;
rad,c,L
: real;
Begin
{bagian masukkan}
clrscr;
write(‘Masukkan Panjang Sisi
Pertama : ‘); readln(a);
write(‘Masukkan Panjang Sisi Kedua : ‘); readln(b);
write(‘Masukkan Besar Sudut antara Kedua
Sisi : ‘); readln(c);
{bagian proses}
rad:=c*pi/180;
L:=(a*b*sin(rad))/2;
{bagian keluaran}
clrscr;
writeln(‘Panjang Sisi Pertama : ‘,a);
writeln(‘Panjang Sisi Kedua : ‘,b);
writeln(‘Sudut antara Kedua Sisi :
‘,c:0:0);
writeln(‘Luas Segitiga : ‘,L:0:2);
readln;
End.
|
Tidak ada komentar:
Posting Komentar