Forum - Tecgag

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

untuk mengunduh kontent didalam forum, dan untuk menjawab topik yang ada. silahkan register terlebih dahulu
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


contact email : ForumBargedos@live.com

Forum - Tecgag

Total Posts : 10585 | Total Members : 16811 | Kita punya temen baru nih, giel
 

Share | 
 

 GLBB dan persamaan kuadrat pascal

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ezio_U1
Administrator


Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 19
Lokasi Lokasi : Belakangmu..

PostSubyek: GLBB dan persamaan kuadrat pascal   Mon 28 Jan 2013, 21:10

persamaan kuadrat

Code:
Program persamaan_kuadrat;
uses WinCrt;
var a,b,c: integer;
    d, x1, x2:real
begin
    clrscr;
    write('masukkan koefisien persamaan kuadrat:');
    readln (a,b,c);
    writeln('persamaan kuadrat:',a,'x^2+',b,'x+',c);
    if a=01 then write ('ini bukan persamaan kuadrat')

else
begin
    d:=(b*b)-4*a*c;
    if d>0 then
begin
    writeln('persamaan kuadrat ini memiliki akar yang berbeda');
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
    writeln('akar-akarnya:',x1:3:2,' dan ',x2:3:2);
end

else if d=0 then
begin
    writeln('punya akar kembar');
    x1:=-b/(2*a);
    writeln('akar-akarnya:',x1:3:2);
end

else
    writeln('persamaan kuadrat anda berakar kompleks');
end;
end.

GLBB

Code:

program GLBB;
uses crt;
var
        vt,vb,a,t:real;
begin
        clrscr;
        write('input waktu benda ='); readln(t);
        write('input percepatan benda ='); readln(a);
        write('input kecepatan awal benda ='); readln(vb);
        vt:=vb+a*t;
        writeln('vt =', vt); readln(vt);
end.



checkme!









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.



Terakhir diubah oleh Ezio_U1 tanggal Tue 29 Jan 2013, 19:47, total 2 kali diubah
Kembali Ke Atas Go down
http://cyberunesia.co.cc
sekeper
anggota baru
anggota baru


Posts Posts : 4
Gold Gold : 14
Reputasi Reputasi : 3
Join date Join date : 29.01.13
Age Age : 22
Lokasi Lokasi : Dimana aja

PostSubyek: Re: GLBB dan persamaan kuadrat pascal   Tue 29 Jan 2013, 19:31

Hi salam kenal, saya ingin berbagi
Persamaan kuadrat

Code:

program rumus_abc;
uses crt;
var a,b,c :integer;
    d,x1,x2 :real;
begin
clrscr;
write('Masukkan nilai koefisien a : ');readln(A);
write('Masukkan nilai koefisien b : ');readln(B);
write('Masukkan nilai koefisien c : ');readln(C);
d:=b*b-4*a;
if d>0 then
 begin
  x1:=(-b-d)/(2*a);
  x2:=(-b+d)/(2*a);
  writeln;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else if d=0 then
 begin
  x1:=-b/(2*a);
  x2:=x1;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else
 begin
  writeln;
  writeln('Penyelesaian akar imajiner');
 end;
readln;
end.

GLBB

Code:

program Rumus_GLBB;
uses crt;
var
  Vt,Vo,a,t:integer;
begin
  clrscr;
  write('nilai Vo ='); readln(Vo);
  write('nilai a ='); readln(a);
  write('nilai t ='); readln(t);
  Vt:=Vo+a*t;
  writeln('Vt =',Vt);
  readln;
end.

Kembali Ke Atas Go down
Ezio_U1
Administrator


Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 19
Lokasi Lokasi : Belakangmu..

PostSubyek: Re: GLBB dan persamaan kuadrat pascal   Tue 29 Jan 2013, 19:43

sekeper wrote:
Hi salam kenal, saya ingin berbagi
Persamaan kuadrat

Code:

program rumus_abc;
uses crt;
var a,b,c :integer;
    d,x1,x2 :real;
begin
clrscr;
write('Masukkan nilai koefisien a : ');readln(A);
write('Masukkan nilai koefisien b : ');readln(B);
write('Masukkan nilai koefisien c : ');readln(C);
d:=b*b-4*a;
if d>0 then
 begin
  x1:=(-b-d)/(2*a);
  x2:=(-b+d)/(2*a);
  writeln;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else if d=0 then
 begin
  x1:=-b/(2*a);
  x2:=x1;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else
 begin
  writeln;
  writeln('Penyelesaian akar imajiner');
 end;
readln;
end.

GLBB

Code:

program Rumus_GLBB;
uses crt;
var
  Vt,Vo,a,t:integer;
begin
  clrscr;
  write('nilai Vo ='); readln(Vo);
  write('nilai a ='); readln(a);
  write('nilai t ='); readln(t);
  Vt:=Vo+a*t;
  writeln('Vt =',Vt);
  readln;
end.


mantabs, glbb work ! Ngakaks niceinpo









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.

Kembali Ke Atas Go down
http://cyberunesia.co.cc
sekeper
anggota baru
anggota baru


Posts Posts : 4
Gold Gold : 14
Reputasi Reputasi : 3
Join date Join date : 29.01.13
Age Age : 22
Lokasi Lokasi : Dimana aja

PostSubyek: Re: GLBB dan persamaan kuadrat pascal   Thu 31 Jan 2013, 19:20

gan ini yang persamaan kuadrat mau saya update.. yang ini lebih mantap dan jawaban nya benar dengan sedikit perubahan dari saya
HOT!!!
Code:

program rumus_abc;
uses crt;
var a,b,c :integer;
    d,x1,x2 :real;
begin
clrscr;
write('Masukkan nilai koefisien a : ');readln(A);
write('Masukkan nilai koefisien b : ');readln(B);
write('Masukkan nilai koefisien c : ');readln(C);
d:=b*b-4*a*c;
if d>0 then
 begin
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else if d=0 then
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=x1;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else
 begin
  writeln;
  writeln('Penyelesaian akar imajiner');
 end;
readln;
end.




semoga membantu
Kembali Ke Atas Go down
Ezio_U1
Administrator


Posts Posts : 1160
Gold Gold : 107412
Reputasi Reputasi : 1366
Join date Join date : 26.11.10
Age Age : 19
Lokasi Lokasi : Belakangmu..

PostSubyek: Re: GLBB dan persamaan kuadrat pascal   Thu 31 Jan 2013, 22:30

sekeper wrote:
gan ini yang persamaan kuadrat mau saya update.. yang ini lebih mantap dan jawaban nya benar dengan sedikit perubahan dari saya
HOT!!!
Code:

program rumus_abc;
uses crt;
var a,b,c :integer;
    d,x1,x2 :real;
begin
clrscr;
write('Masukkan nilai koefisien a : ');readln(A);
write('Masukkan nilai koefisien b : ');readln(B);
write('Masukkan nilai koefisien c : ');readln(C);
d:=b*b-4*a*c;
if d>0 then
 begin
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else if d=0 then
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=x1;
  writeln('Penyelesaian ');
  writeln('X1 = ',x1:4:2);
  writeln('X2 = ',x2:4:2);
 end
else
 begin
  writeln;
  writeln('Penyelesaian akar imajiner');
 end;
readln;
end.




semoga membantu

not work inih, work yang old Rolling Eyes









-No JUNK
-No
FLOOD
-No SARA

-No
OOT Please.

Kembali Ke Atas Go down
http://cyberunesia.co.cc
Sponsored content



PostSubyek: Re: GLBB dan persamaan kuadrat pascal   Today at 21:40

Kembali Ke Atas Go down
 

GLBB dan persamaan kuadrat pascal

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» busi standar ninja sama dg busi standar suzuki thunder 125
» Karburator
» share di sini yo bro sparepart ninja250 yang bisa d KANIBALIN
» Paking Knalpot
» ukuran gear yg pas buat harian n turing...
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum - Tecgag ::  MISCELLANOUS :: Pascal-
Navigasi:  

| Contact us | Donasi | Statistics |
www.forumbargedoz.ce.ms | www.bargedoz.marocs.net
Hosted and powered by : Forummotion and phpBB
Bargedoz not responsible for any fraud on behalf of Bargedoz, both occur within and outside this website.
By joining Bargedoz, then you already understand all existing consistent.

Friends : [Update] [Update] [Update] [Update]
Annoucemment : Bargstore - Buy 4 More ! ayo naikkan gold-mu dan dapatkan items Bargstore sekarang juga ! klik disini untuk masuk Bargstore ! | dan jangan lupa untuk "Likes" Facebook fanpage kami, klik disini untuk melihat Fanpage, dan follow twitter kami untuk mendapatkan topik-topik terhangat dari kami, di di @Forumbargedos. | Dibuka pendaftaran staff untuk subforum games di berbagai jenis SF games, dan jenis staff. info lebih lanjut silahkan klik linknya disini!
Membuat forum | © phpBB | Free forum support | Kontak | Report an abuse | Sosblogs.com