SELAMAT DATANG DI BLOGKU. ILMU TAK KAN PERNAH HABIS, BAHKAN BERTAMBAH KETIKA KITA IKHLAS BERBAGI.

Membuat Program Pascal (Primbon)

Dalam memenuhi tugas 8 mata kuliah komputer, di sini Anda bisa mengetahui program pascal primbon. Selengkapnya bisa klik di sini
Semoga Bermanfaat ^.^

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

Bismillah.
Assalamualaikum..
jumpa lagi ni 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.

setelah itu kita dapat membuat programnya, seperti di bawah ini:
uses wincrt;
var
x,y,nx,ny:real;
a,b,c,d,e,f:integer;
lg:char;
begin
repeat
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);
nx:=((e*c)+(-b*f)) div ((a*e)-(b*d));
ny:=((-d*c)+(a*f)) div ((a*e)-(b*d));
writeln('nilai x:',nx:2:2);
writeln('nilai y:',ny:2:2);
write('Apa Anda ingin mengulang? (y/t)');
readln(lg);
until lg='t'
end.

setelah dirun kita dapat menjalankan program untuk mencari nilai x dan y dari dua persamaan linear dua variabel. 
silakan mencoba. ^_^
wassalammualaikum.

Membuat Program Pascal (Mencari Luas dan Jenis Segitiga)

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.

Silakan mencoba. Semoga bermanfaat ^_^

Munajat Cinta

      Apa itu cinta? Pasti banyak sekali jawaban yang terlontar jika pertanyaan itu terucap. Cinta mati? Cinta buta? atau Cinta monyet? itu cinta yang tak hakiki. Cinta hakiki itu seperti apa? untuk siapa? cinta hakiki, cinta Tuhan kepada umatnya.
      Sering sekali kita mengeluh, meminta, bahkan melanggar apa yang Dia kehendaki, Sang pencipta tetap mencintai kita dengan keindahannya. Cinta seharusnya seperti itu. Bukan cinta yang marah ketika tidak diberi kabar, cinta yang ngambek ketika tidak diperhatikan, atau cinta yang terucap kata putus karena kamu berubah. cinta apa itu? Seharusnya kita mengerti itu bukan cinta, tapi itu nafsu. Nafsu cinta yang hanya ingin memiliki, hanya ingin dimengerti, dan hanya ingin menjadi satu-satunya.      Maafkan hamba karena Hamba yakin cinta ini belum sempurna untuk-Mu. Cinta ini terkalahkan oleh cinta tuk secuil kebahagian semu. Ya Rab, bimbinglah hamba menjadi umat yang seutuhnya mencintai Engkau seperti sempurnanya diri-Mu. Ya Rab, tunjukkan hamba cinta suci yang kelak dapat bersamaku beriringan menuju surga-Mu.

Mengenai Saya

tegas akan diri sendiri, buang pikiran negatif dan lakukan yang baik. kegelisahan hanya milik yang berputus asa!!

Pengikut

Diberdayakan oleh Blogger.