laporan praktikum Alprog

LAPORAN PRAKTIKUM 3

MODIFIKASI PROGRAM PENCABANGAN TANPA GOTO

UNTUK MENGHITUNG AKAR-AKAR PERSAMAAN KUADRAT

Disusun untuk Memenuhi Salah Satu Tugas Praktikum Mata Kuliah

Algoritma dan  Pemrograman  yang Dibimbing oleh Bapak Lukmanul Akhsani. M,Pd.

 

                                                                                                                                                                                                                               

OLEH: HETI MAHFUANI

NIM: (1101060137)

KELAS: II C

PROGRAM STUDI PENDIDIKAN MATEMATIKA

FAKULTAS KEGURUAN DAN ILMU PENDIDIKAN

UNIVERSITAS MUHAMMADIYAH PURWOKETRO

2012

TUGAS 4-2

Modifikasi PROG0405 agar dihitung juga akar-akar komplek

            Bagian real = -b/2a

            Bagian complex = ±sqrt (-diskr)/2a

Simpandengannama PROG0406. Serta buatkan pula algoritmadan flowchart untuk program tersebut!

PROGRAM prog0405;

VAR  a,b,c      :    REAL;                    {Koef. pers. kuadrat}

           diskr      :    REAL;                    {diskriminan}

           x1,x2     :    REAL;                    {akar-akar pers. kuadrat}

BEGIN

         WRITELN  (‘Masukkan3 bilangan real, koefisien pers. kuadrat :’);

         READLN (a,b,c);

         diskr := b*b – 4*a*c;

        

         IF diskr<  0

         THEN

                    {Kasusdiskr<  0}

                    WRITELN (‘Tidakadaakar real’)

                   

              ELSE

                    {Kasusdiskr³ 0; Ada akar real}

                    BEGIN

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

                        x2  :=  (-b + sqrt (diskr)) / (a+a);

                        WRITELN (‘Akar-akarpersamaankuadrat :  ‘,x1,x2);

                    END;

END.

                            

Jalankan program tersebut dengan memilih menu RUN sub menu RUN atau dengan menekan tombol Ctrl-F9 pada keyboard.Maka akan muncul seperti gambar di bawah ini.

Contoh 1

Masukkan 3 bilangan real missal 1,2,1 lalu tekan tombol enter pada keyboard.

Sehingga akan muncul seperti gambar di bawah ini

jadi dapat diketahui diskriminan=0,dan akar-akar persamaan kuadrat real kembar.

Contoh 2

Masukkan 3 bilangan real misal 1,2,3, lalu tekan tombol enter pada keyboard.

Sehingga akan muncul seperti gambar di bawah ini;

jadi dapat diketahui diskriminan <0 akar-akar="" dan="" imajiner="" kompleks="" kuadrat="" persamaan="" span="">

Flowchart Program 0406

Penyelesaian

Ketik program 0405 dan modifikasi pada program turbo pascal seperti gambar di bawah ini