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.

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.

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.

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.

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.