Membuat Program Pascal (PRIMBON)

Assalamualaikum.
Dalam memenuhi tugas 8 mata kuliah komputer, di sini Anda bisa mengetahui program pascal primbon. Selengkapnya bisa klik disini 

SEMOGA BERMANFAAT. :D

Membuat Program Pascal (Mencari nilai x dan y dari dua persamaan linear)

Bismillahirrahmanirrahim.

Assalamualaikum..

jumpa lagi nih di tugas selanjutnya. kali ini akan dijelaskan tentang membuat flowcart dan program input_output pascal untuk menentukan nilai x dan y dari dua persamaan linear 2 variabel. tentunya akan ditampilkan dahulu flowcart untuk mempermudah membuat programnya.

Klik gambar untuk lebih jelas.

setelah itu kita dapat membuat programnya, seperti di bawah ini:

uses wincrt;

var

x,y,nx,ny,p:real;

a,b,c,d,e,f:integer;

begin

writeln('Persamaan pertama ax+by=c');

write('berapa nilai a:');

readln (a);

write('berapa nilai b:');

readln(b);

write ('berapa nilai c:');

readln (c);

writeln('Persamaan kedua ax+by=c');

write('berapa nilai a:');

readln (d);

write('berapa nilai b:');

readln(e);

write ('berapa nilai c:');

readln (f);

writeln('maka kedua persamaan:');

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

writeln(d,'x + ',e,'y = ',f);

p:=((a*e)-(b*d));

nx:=(((e*c)+(-b*f)) div (p));

ny:=((-d*c)+(a*f)) div ((a*e)-(b*d));

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

writeln('nilai y:',ny:2:2);

end.

setelah di-Run atau tekan ctrl+F9 kita dapat menjalankan program untuk mencari nilai x dan y dari dua persamaan linear dua variabel. 

silakan mencoba. ^_^
wassalammualaikum.

MENGHITUNG LUAS SEGITIGA DAN JENIS SEGITIGA DENGAN BAHASA PEMROGRAMAN PASCAL

Assalamu'alaikum.
Di sini, dalam memenuhi tugas Komputer, akan saya tampilkan program input_output untuk mencari luas segitiga dan jenisnya. Oh ya, untuk membuat program, akan lebih mudah jika kita membuat dan mengetahui flowcartnya terlebih dahulu. berikut adalah flowcart yang akan membantu.

Klik Gambar Untuk Lebih Jelas

  Setelah mengetahui flowcartnya, dapat dibuat progam input_output seperti di bawah ini.

uses wincrt;

var

s,L:real;

a,b,c,n:integer;

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

lg:char;

begin

writeln('Kelompok 2');

writeln('Menghitung Luas dan Jenis Segitiga');

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.
Dan tekan ctrl+F9

Silakan mencoba. Semoga bermanfaat ^_^