Tugas 8, Primbon

Primbon dapat didownload disini

Mata Kuliah Komputer
Tugas ke-7

MENENTUKAN NILAI VARIABEL X DAN Y 

Berkaitan dengan tugas komputer, kami akan memberikan cara membuat program untuk menentukan nilai variable X dan Y  dengan mengunakan bahasa pemrograman Turbo Pascal sehingga kita tidak perlu susah payah lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya. Disini saya menggunakan rumus determinan matriks.

Langkah-langkahnya sebagai berikut:

 
BukaTturbo Pascal atau TPW, masih bingung antara pascal dengan TPW?

santai , sebenarnya keduanya merupakan software yang sama, bedanya TPW 1.5 adalah turbo pascal yang di gunakan untuk komputer yang memiliki Sistem Operasi Windows.

2. Masukkan kode-kode di bawah ini.

 

uses wincrt;

var

x,y,Dx,Dy:real;

a,b,c,p,q,r:integer;

lagi:char;

begin

Writeln(' Menghitung Nilai variabel x dan y dengan Matriks dan Determinan');

writeln(' Universitas PGRI Adi Buana Surabaya');

writeln('                   Tugas Kelompok 6 : ');

writeln('    Riska ayu agustina, Aida fitriyati, Yontus andra, Nur nihayatul wafiroh');

lagi:='y';

repeat

writeln('Persamaanpertamaax+by=c');

write('berapanilai a:');

readln (a);

write('berapanilai b:');

readln(b);

write ('berapanilai c:');

readln (c);

writeln('Persamaanpertamaax+by=c');

write('berapanilai a:');

readln (p);

write('berapanilai b:');

readln(q);

write ('berapanilai c:');

readln (r);

writeln('makakeduapersamaan:');

writeln(a,'x + ',b,'y = ',c);

writeln(p,'x + ',q,'y = ',r);

Dx:=((q*c)+(-b*r)) div ((a*q)-(b*p));

Dy:=((-p*c)+(a*r)) div ((a*q)-(b*p));

writeln('nilai x:',Dx:2:2);

write('nilai y:',Dy:2:2);

writeln;

write ('apaandainginmengulang?(y/t)');

readln(lg);

untillg='t'

end.

Mata Kuliah Komputer
Tugas ke-6

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, kalian harus bisa membuat flowchartnya terlebih dahulu. Anda pasti sudah tahu bukan, apa itu flowchart? Ya, flowchart merupakan diagram alir yg 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

s,L:real;

a,b,c,n:integer;

x:array[1..100]of integer;

lg:char;

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(' -----------------------------------------------------------------------------');

repeat

n:=1;

L:=0;

repeat

write(' Berapa sisi ke',n,' : ');

readln(x[n]);

n:=n+1;

until n=4;

a:=x[1];

b:=x[2];

c:=x[3];

s:=(a+b+c) div 2;

L:=sqrt((s)*(s-a)*(s-b)*(s-c));

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

if sqr(c)=sqr(a)+sqr(b) then writeln(' Jenis Segitiga = Siku-siku')else

 if sqr(a)=sqr(c)+sqr(b) then writeln(' Jenis Segitiga = Siku-siku')else

  if sqr(b)=sqr(a)+sqr(c) then writeln(' Jenis Segitiga = Siku-siku')else

   if a=b then a:=b else if a=c then writeln (' Jenis Segitiga = Sama Kaki')else

    if b=c then writeln (' Jenis Segitiga = Sama Kaki')else writeln(' Jenis Segitiga = Sembarang');

if a=b then if a=c then writeln(' Jenis Segitiga = Sama Sisi')else writeln(' Jenis Segitiga = Sama Kaki');

write (' Apa anda ingin mengulang? (y/t) = ');

readln(lg);

until lg='t'

end.

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

4.      Setelah muncul gambar seperti dibawah ini, Anda dapat memasukkan angka yang Anda inginkan

Misal, Anda ingin tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Siku-siku

berapa sisi ke1 :                       {isikan 4}

berapa sisi ke2 :                       {isikan 3}

berapa sisi ke3 :                       {isikan 5}, maka hasilnya seperti berikut :

Misal, Anda ingin tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Sama Kaki

berapa sisi ke1 :                       {isikan 1}

berapa sisi ke2 :                       {isikan 1}

berapa sisi ke3 :                       {isikan 2}, hasilnya seperti berikut :

Misal, Anda ingin tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Sama Sisi

berapa sisi ke1 :                       {isikan 5}

berapa sisi ke2 :                       {isikan 5}

berapa sisi ke3 :                       {isikan 5}, hasilnya seperti berikut :

Misal, Anda ingin tahu luas segitiga dan membuktikan bahwa segitiga itu jenis dari Segitiga Sembarang

berapa sisi ke1 :                       {isikan 5}

berapa sisi ke2 :                       {isikan 8}

berapa sisi ke3 :                       {isikan 3}, hasilnya seperti berikut :

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

Sekian dan Terimakasih, Wassalamu’alaikum . . .