air terjun

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

 

Tersimpan Rapi di Dalam Harap

Dirimu

oleh : Heti Mahfuani

Terasa indah mengingatmu hari ini

Entah apa yang membuatnya indah

Apa karna ku mengingatmu dengan keindahan

Atau aq merasa indah merindukanmu

Yang jelas aku mengingatmu sangat indah

Walau telah aq lihat semua darimu

Dari segimu yang tak siap

Sampai segimu yang benar2 siap

                                                                                         

Yang tak kuheran

Aq tersenyum saat aku melihatmu

Tak rapih

Aneh sungguh

Bukannya aku tak segan melihatmu

Malah aku merasakan hal yang lain

Mungkinkah ini sebuah pertanda

Ada sebuah ketulusan dihatiku

Teruntuk dirimu

Ya aku pun tak tahu

Aku hanya berusaha menafsirkan saja

Rasa yang sedang kualami

Saat ini

Saaat kemarin

Saat aku melihatmu sedang tak berdaya

Tak kuasa rasanya hati ini melihatmu

Seakan aku tak rela melihatmu

Merintih kesakitan

Saat itu aku ingin berada disisimu

Tak ingin ku beranjak sedetikpun darimu

Yang ku ingin hanya satu melihatmu tersenyum kembali

Wahai kasih

Purwokerto 10 januari 2013

Bahasa Hati

Tersimpan

Ya Allah menyesakkan sekali harus  menahan rasa ini

rasa yang begitu dalam

menggelisahkan hatiku

yang tak mampu tuk ku ungkap

menjerit di batin tanpa suara

ya Allah maafkan aku

maafkan aku yang merindukannya

mungkin aku belum pernah meridukanMu seperti ini

angin bisikkan asa ku ini padanya

agar sedikit berkurang beban rinduku

walau aku tau itu tak akan sampai

tapi aku lebih senang jika kau dengarkan rintihku

Purwokerto,1 april 2013

PERCAKAPAN DIRI

Teman setiaku

Malam terimakasih kau slalu ada tiap ku lelah

Walau hanya gelap yang mampu kau beri

Tapi itu lebih kekal

Lebih setia

Dari pada harapku yang semu

Tuk dapatkan teman selain dirimu

Berjalan menelusuri lorong waktu

Malam….

Kau slslu temaniq berjalan

Berjalan dari mencari kabar

Trimakasih malam

Karna kau, aku lebih tau

Lebih tau akan jiwaku

Karna kau slalu dekat

denganq malam.

Malam

Dalam gelapmu

Aku menundukan hatiku

Aku berusaha kuat

Itu semua karna gelapmu

Menjelma mnjdi kekuatanku

Trimakasih malam

Karna kau beri aku gelap

Ketika pulang malam dari kampus 

sendirian