TUGAS 8 (PRIMBON)

Untuk menyelesaikan TUGAS 8,disini saya akan memberikan program bahasa pascal primbon perjodohan,untuk melihat selengkapnya silakan anda DOWNLOAD Semoga bermanfaat yaa :D

tugas 7 komputer

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’.