Matkul Komp, Tugas ke-8

Assalamu'alaikum ...

Selamat bertemu kembali,  kali ini aku akan menyelsaikan tugas komputer cara membuat RUNNING TEXT  menggunakan turbo pascal (TPW)
 Yon akan membagi ilmu tentang cara membuat primbon menggunakan Turbo Pascal (TPW). Berikut filenya dapat Anda download disini.semoga bermafaat.

 Terima kasih

Wassalamu'alaikum .

Tugas Ke-7, Matkul Komputer

Assalamu’alaikum . . .

Menghitung Nilai Variabel X dan Y dengan Matrik atau Determinan Menggunakan Bahasa Pemograman Pascal

Hay,  bertemu lagi dengan yon. Seperti biasa, ini adalah tugas mata kuliah Komputer dan kali ini yon akan memaparkan bagaimana cara menghitung nilai variabel X dan Y dengan matrik atau determinan menggunakan TPW (Turbo Pascal).

1.     Sekarang yon akan membuat programnya supaya dapat dibaca oleh komputer dari baris teratas hingga baris terakhir. Programnya sebagai berikut :

uses wincrt;

var

a,b,c,p,q,r,n,x,y:real;

begin

writeln('      Menghitung Nilai Variabel X dan Y dengan Matrik atau Determinan');

writeln('                                  Tugas Ke-7');

writeln('                             yontus andra');

writeln('                            145500160 / 2014 - D');

writeln('  -------------------------------------------------------------------------');

writeln;

writeln(' Persamaan Pertama : aX + bY = c ');

write(' Berapakah Nilai Koefisien a = ');readln(a);

write(' Berapakah Nilai Koefisien b = ');readln(b);

write(' Berapakah Nilai Koefisien c = ');readln(c);

writeln(' Persamaan Kedua : aX + bY = c ');

write(' Berapakah Nilai Koefisien a = ');readln(p);

write(' Berapakah Nilai Koefisien b = ');readln(q);

write(' Berapakah Nilai Koefisien c = ');readln(r);

writeln;

writeln(' Maka, Ke-2 Persamaan : ');

writeln( a:0:0,'X + ',b:0:0,'Y = ',c:0:0);

writeln( p:0:0,'X + ',q:0:0,'Y = ',r:0:0);

writeln;

writeln(' Jadi,');

n:= p/a;

y:= ( c*n-r)/(b*n-q);

x:= ( c-b*y)/a;

writeln(' Nilai Variabel X = ',x:0:2);

writeln(' Nilai Variabel Y = ',y:0:2);

readln;

donewincrt;

end.

2.     Masukkan kode-kode diatas ke TPW. Untuk mengetahui hasilnya, coba Anda pilih Run atau tekan (ctrl+f9).

3.     Setelah Anda tekan enter, hasilnya akan muncul seperti berikut :

Misal, Anda ingin menuliskan persamaan pertama dengan angka-angka berikut,

Berapa Nilai Koefisien a =      { isikan 3 }

Berapa Nilai Koefisien b =      { isikan -2 }

Berapa Nilai Koefisien c =      { isikan 6 }, maka hasilnya :

Misal, Anda ingin menuliskan persamaan kedua dengan angka-angka berikut,

Berapa Nilai Koefisien a =      { isikan 2 }

Berapa Nilai Koefisien b =      { isikan 5 }

Berapa Nilai Koefisien c =      { isikan 23 }, maka hasilnya :


 

4.     Setelah langkah diatas telah Anda laksanakan, Anda hanya perlu menekan enter untuk mengetahui hasil akhirnya yaitu mengetahui nilai dari variabel X dan Y, dan hasilnya adalah

Finish !

Yeah . . .

Udah dulu ya, ilmu yang bisa yon  bagikan. Semoga bermanfaat buat Anda semuanya. Amin . . . Makasih banyak yaa .

By. Yontus andra                Wassalamu’alaikum

Mata Kuliah Komputer

Assalamu’alaikum . . .

Menghitung Luas Segitiga dan Jenis Segitiga dengan Bahasa Pemograman Pascal

Sesuai dengan tugas mata kuliah Komputer, kami akan memaparkan bagaimana cara membuat program dengan menggunakan TPW (Turbo Pascal). Berikut kami akan membuat program ‘Menentukan Luas dan Jenis Segitiga’.

1.      Pertama, sebelum Anda membuat program, Anda harus bisa membuat flowchartnya terlebih dahulu. Anda pasti sudah tahu bukan, apa itu flowchart? Ya, flowchart merupakan diagram alir yang disusun menurut logika untuk mnyelesaikan sesuatu. Berikut flowchart program untuk membuat program ‘Menentukan Luas dan Jenis Segitiga’.

2.      Setelah Anda tahu bagaimana model-model program yang nantinya harus dibuat, sekarang kami akan membuat programnya supaya dapat dibaca oleh komputer dari baris teratas hingga baris terakhir. Program yang dapat dibuat dari flowchart diatas adalah sebagai berikut :

uses wincrt;

var

a,b,c,s,p,x,y,z,ss,kali:integer;

luas:real;

d:char;

begin

writeln('Apakah anda ingin memulai ?(y/t)');

readln(d);

clrscr;

if d='y' then

begin

Writeln('                               Menghitung Luas dan Jenis Segitiga');

writeln('                                          Tugas Ke-6 ');

writeln('                                  Tugas Kelompok 6    2014-D  ');

writeln('  YONTUS ANDRA/160, NUR NIHAYATUL W/161, RISKA AYU A/168, AIDA FITRIYATI/200');

writeln(' ------------------------------------------------------------------------------');

writeln('');

write('berapa a : ');

readln(a);

write('berapa b : ');

readln(b);

write('berapa c : ');

readln(c);

p:=a+b+c;

s:=p div 2;

x:=s-a;

y:=s-b;

z:=s-c;

kali:=x*y*z;

ss:=s*kali;

luas:=sqrt(ss);

writeln('Maka luas segitiga adalah = ',luas:2:1);

end

else

donewincrt;

if a=c then

begin

writeln('Jenis Segitiga adalah segitiga sama sisi');

end

else if a=b then

begin

writeln('Jenis Segitiga adalah segitiga sama kaki');

end else

writeln('Jenis Segitiga adalah segitiga sebarang');

readln;

donewincrt;

end.

3.      Masukkan kode-kode diatas ke TPW. Lalu untuk mengetahui hasilnya, coba Anda pilih Run atau tekan (ctrl+f9).

    4.      Apakah anda akan memulai (y/t) =     {isikan y}, seperti gambar dibawah ini

Setelah muncul gambar seperti diatas, Anda tekan Enter dan akan muncul seperti dibawah ini

Misal, Anda mau tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Samasisi

berapa a=                     {isikan 3}

berapa b=                    {isikan 3}

berapa c=                {isikan 3}, maka hasilnya seperti berikut :

Misal, Anda mau tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Samakaki. Lakukan kembali langkah 3a, lalu

berapa a=                     {isikan 5}

berapa b=                    {isikan 5}

berapa c=                   {isikan 8}, hasilnya seperti berikut :

"Sunshiney","serif";mso-bidi-font-family:Arial'> 

 Hampir sama dengan langkah 3c, jika Anda mau tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Sebarang. Lakukan kembali langkah 3a, lalu

berapa a=                     {isikan 5}

berapa b=                    {isikan 6}

berapa c=                   {isikan 3}, hasilnya seperti berikut :

Finish !!! Mudah toh ?? J

Itulah serangkaian program untuk menghitung luas segitiga dan jenis segitiga dengan turbo pascal yang dapat kami share kepada Anda.

Sekian dan Terimakasih, Wassalamu’alaikum . . .

Selamat Mencoba dan ‘Sukses ya Say’

g