TUGAS 1: PROGRAM AKAR-AKAR PERSAMAAN KUADRAT

program akar2persamaankuadrat;


uses WinCrt;

var

a,b,c,d,x1,x2:real;

Nama:string[25];

begin

ClrScr;

Writeln('Program Menghitung Akar-Akar Persamaan Kuadrat');

write('Masukkan Nama Anda:');

readln(Nama);

Writeln('Selamat Datang Dalam Program Menghitung Akar-Akar Persamaan Kuadrat,' ,nama);

Writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat tersebut adalah imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

end.

-------------------------------------------------------------------------------------------------

TUGAS 2: PROGRAM CASE OF, IF, WHILE..do.., dan REPEAT

program casePilih;

uses WinCrt;

var

a,b,c,d,x1,x2:real;

var n,jumlah,akar:integer;

var pilih:char;

begin

clrScr;

writeln('PROGRAM AKAR-AKAR PERSAMAAN KUADRAT');

write('Pilih salah satu Akar-Akar Persamaan Kuadrat [I=imaginer][B=real berbeda][R=real][S=rael sama]: ');readln(pilih);

case pilih of

'I' :writeln('d<0');

'B':writeln('d>0');

'R' :writeln('d>=0');

'S':writeln('d=0');

else

write('Baca dengan Cermat!');

end;

begin

Writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat disebut imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat disebut real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat disebut real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat disebut real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

begin

writeln('Menghitung Jumlah Deret Akar 1+2+3+...+n');

write('n=');

readln(n);

akar:=1;

jumlah:=0;

while akar <=n do

begin

jumlah:=jumlah+akar;

akar:=akar+2

end;

writeln;

write('Jumlah Deret Akar=',jumlah:5);

readln;

end;

begin

writeln('Menghitung Jumlah Deret Akar 1+2+3+...+n');

write('n=');

readln(n);

akar:=0;

jumlah:=0;

repeat

begin

jumlah:=jumlah+akar;

akar:=akar+1

end;

until akar=n+3;

writeln;

write('Jumlah Deret Akar=',jumlah:5);

readln;

end;

end

end.

----------------------------------------------------------------------------------------------------------------------------------------------------

Tugas 3: PROGRAM  PROCEDURE DAN REPEAT

program menuOke;

uses wincrt;

var tanya,pilih:char;

var

a,b,c,d,x1,x2:real;

procedure kali;

var a,b,hasil:integer;

begin

writeln('OPERASI PERKALIAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

writeln('Hasil Akar Persamaan Kuadrat Adalah');

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat Tersebut adalah imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

writeln('OPERASI PERKALIAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('=========================');

writeln('Masukkan Akar Ke-1:');

readln(a);

writeln('Masukkan Akar Ke-2:');

readln(b);

hasil:=a*b;

writeln('Hasil kali',a,' dengan ',b,' adalah',hasil);

end;

procedure bagi;

var a,b:integer;

var hasil:real;

begin

writeln('OPERASI PEMBAGIAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

writeln('Hasil Akar Persamaan Kuadrat Adalah');

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat tersebut adalah imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

writeln('OPERASI PEMBAGIAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('=========================');

writeln('Masukkan Akar Ke-1:');

readln(a);

writeln('Masukkan Akar Ke-2:');

readln(b);

hasil:=a/b;

writeln('Hasil bagi',a,' dengan ',b,' adalah',hasil);

end;

procedure pangkat;

var a,b,i:integer;

var hasil:longint;

begin

writeln('OPERASI PERPANGKATAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

writeln('Hasil Akar Persamaan Kuadrat Adalah');

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat tersebut adalah imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

hasil:=1;

writeln('OPERASI PERPANGKATAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('========================');

writeln('Masukkan Akar Ke-1:');

readln(a);

writeln('Masukkan Akar Ke-2');

readln(b);

for i:=1 to b do

begin

hasil:=hasil*a;

end;

writeln('Hasil',a,' pangkat ',b,' adalah',hasil);

end;

procedure akar;

var a,b:integer;

var hasil:real;

begin

writeln('OPERASI PENGAKARAN PERSAMAAN KUADRAT');

writeln('Masukkan Persamaan Kuadrat(ax^2+bx+c):');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

writeln('Hasil Akar Persamaan Kuadrat Adalah');

d:=(b*b)-(4*a*c);

if d<0 then writeln ('Akar-Akarnya Persamaan Kuadrat tersebut adalah imaginer');

if d>0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real berbeda');

if d>=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real');

if d=0 then writeln ('Akar-Akar Persamaan Kuadrat Tersebut adalah real sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:6:1);

writeln('x2=',x2:6:1);

end;

readln;

writeln('OPERASI PENGAKARAN PERSAMAAN KUADRAT');

writeln('=============');

writeln('Masukkan Akar yang Dipilih:');

readln(a);

hasil:=sqrt(a);

writeln('Hasil akar',a,'adalah',hasil:2:1);

end;

begin

repeat

clrscr;

writeln('=========================');

writeln('Program Operasi Akar-Akar Persamaan Kuadrat:');

writeln('===================');

writeln('1.Perkalian Akar Persamaan Kuadrat');

writeln('2.Pembagian Akar Persamaan kuadrat');

writeln('3.Perpangkatan Akar Persamaan Kuadrat');

writeln('4.Pengakaran Akar Persamaan Kuadrat');

writeln('=========================');

write('Masukkan Program Pilihan Anda:');

readln(pilih);

case pilih of

'1':kali;

'2':bagi;

'3':pangkat;

'4':akar;

else

writeln('Silahkan Pilih Sesuai Menu yang Ada');

writeln;

end;

write('Apakah Anda Ingin Tetap Menggunakan Program Persamaan Kuadrat Ini?[TEKAN y/n]: ');readln(tanya);

until (tanya='n')or(tanya='N');

clrscr;

writeln('TERIMA KASIH ANDA TELAH MEMAKAI PROGRAM PERSAMAAN KUADRAT KAMI');

writeln('tikhelenistik@gmail.com');

writeln('bye..bye..');

end.

-------------------------------------------------------------------------------------------------

TUGAS4: PROGRAM FUNCTION, PROCEDURE, DAN ARRAY

program funcDanproc;

uses wincrt;

var x :array [1..2]  of string; z:integer;

var a,b,c,d,x1,x2:real;

nama:string[25];

var akar:integer;

var input:real;

procedure bintang_garis;

begin

writeln('==*==*==*=*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==');

end;

function siqt(var r:real):real;

begin

siqt:=sqrt(r)*sqrt(r)*r*sqr(r)*r*r*r*sqrt(r)*sqrt(r)*r*sqr(r)*r*r

end;

procedure inputan(var s:real);

begin

bintang_garis;

writeln('Hasil pangkat tiga belas dari',input,'adalah',siqt(input):2:0);

bintang_garis;

end;

function siqt1(var p:integer):integer;

begin

siqt1:=p*p*p*p*p*p*p*p*p*p*p*p*p;

end;

begin;

begin

clrScr;

writeln('==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==');

writeln('SELAMAT DATANG DALAM PEMBAHASAN AKAR-AKAR PERSAMAAN KUADRAT');

writeln('==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==*==');

writeln('Silahkan Masukkan Persamaan Kuadrat(ax^2+bx+c):');

writeln('Ingat Harus Bilangan Real!!!');

write('nilai a');

read(a);

write('nilai b');

read(b);

write('nilai c');

read(c);

if d<0 then writeln ('Imaginer');

if d>0 then writeln ('Real Berbeda');

if d>=0 then writeln ('Real');

if d=0 then writeln ('Real Sama');

begin

x1:=(-b+(sqrt(d)))/(2*a);

x2:=(-b-(sqrt(d)))/(2*a);

writeln('x1=',x1:4:1);

writeln('x2=',x2:4:1);

end;

readln;

writeln('==========================================================');

writeln('==*==*==*==*==*==*');

writeln('PROGRAM PANGKAT 13');

writeln('==*==*==*==*==*==*');

write('Silahkan Masukkan Hasil Akar yang Anda Ingin Pangkatkan:');

readln(akar);

writeln('Hasil Pangkat Tiga Belas dari',akar,'Adalah',siqt1(akar));

begin

writeln('==*==*==*==*==*==*');

writeln('PROGRAM PANGKAT 13 DENGAN PROCEDURE BINTANG_GARIS');

writeln('==*==*==*==*==*==*');

writeln('Silahkan Masukkan Akar yang Anda Ingin Dipangkatkan:');

writeln('Ingat Harus Bilangan Real!!!');

readln(input);

inputan(input);

begin

for z:= 1 to 2 do begin

write('akar',z,';'); readln(x[z]);

end;

writeln;write('output akar:'); for z:= 1 to 2 do

write(x[z],'');

end;

end

end

end. 
About these ads