pemograman komputer

TUGAS PRATIKUM

PEMOGRAMAN KOMPUTER

MENGGUNAKAN TURBO PASCAL

Dosen: Muhammad Nur Khoirun, S.T.

ACHMAD SUTRISNO

NIM : 1210621008

PROGRAM STUDI

PRAKTEK PEMOGRAMAN KOMPUTER

FAKULTA TEKNIK ELEKTRO

UNIVERSITAS MUHAMMADIYAH JEMBER

2013

program membuat_identitas;

        uses wincrt;

        begin

             writeln('                    UNIVERSITAS MUHAMMADIYAH JEMBER                      ');

             writeln('                        FAKULTAS TEKNIK ELEKTRO                          ');

             writeln('_________________________________________________________________________');

             writeln;

             writeln;

             writeln('  Nama              : Achmad Sutrisno');

             writeln('  NIM               : 1210621008');

             writeln('  Mata Kuliah       : Praktek Pemograman Komputer');

             readln;

        end.

program Menghitung_Volume_Balok;

        uses wincrt;

        var lebar,tinggi,panjang,volume:integer;

        begin

             write('Masukkan panjang = ');readln(panjang);

             write('Masukkan lebar   = ');readln(lebar);

             write('Masukkan tinggi  = ');readln(tinggi);

             volume:=panjang*lebar*tinggi;

             write('Jadi,volume balok Volum = p x l x t adalah ');

             write(volume);

        end.

program Luas_Bujur_Sangkar;

        uses wincrt;

        var S:integer;

            L:integer;

        begin

             write(' Masukkan sisi bujur sangkar = ');

             readln(S);

             L:=S*S;

             write(' Luas Bujur sangkar = ',L);

        end.

program Persamaan_Kuadarat;

        uses wincrt;

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

        begin

             writeln('           PROGRAM MENCARI  NILAI X');

             writeln('            PADA PERSAMAAN KUADRAT  ');

             writeln('           _________________________');

             writeln;

             write('masukkan nilai a =');read(a);

             write('masukkan nilai b =');read(b);

             write('masukkan nilai c =');read(c);

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

             x2:=(b+(sqrt(b*b)-(4*a*c)))/(2*a);

             writeln;

             writeln('Dari data diatas dapat ditentukan');

             writeln('nilai x1 & x2 sebagai berikut :');

             writeln;

             readln;

             writeln('nilai x1 =',x1:4:2);

             writeln('nilai x2 =',x2:4:2);

             writeln;

             writeln('S  E  L  E  S  A  I');

             readln;

        end.