Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program bai4;
- uses crt;
- var a,b,c:integer;
- var x1,x2:double;
- var delta:double;
- function tinhnghiem():integer;
- begin
- write('nhap a: '); readln(a);
- write('nhap b: '); readln(b);
- write('nhap c: '); readln(c);
- delta := b*b - 4*a*c;
- if delta < 0 then writeln('phuong tring vo nghiem.')
- else if delta = 0 then
- begin
- x1 := -b/(2*a);
- writeln('phuong trinh co nghiem kep: ', x1);
- end
- else
- begin
- x1 := (-b - sqrt(delta))/(2*a);
- x2 := (-b + sqrt(delta))/(2*a);
- writeln('phuong tring co 2 nghiem: ',x1,' va ', x2);
- end;
- end;
- begin
- clrscr;
- tinhnghiem();
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement