giai pt bac 2 bằng case of trong pascal

[nguabay91]

giai pt bac 2 bằng case of trong pascal gia chì giúp

[HGMinh95]

Đoạn code dưới đây có thể chạy vs giới hạn của delta là 1 tỷ


const max = 1000000000;
var a, b, c: longint;
delta, k: longint;
begin
write(' Nhap he so a, b, c: '); readln(a,b,c);
delta:= b*b - 4*a*c;
case delta of
0 : write(' Pt co nghiem kep x1 = x2 = ',-b/(2*a):0:2);
1..max : write(' Pt co 2 nghiem x1 = ',(-b + sqrt(delta))/(2*a):0:2,' ,x2 = ',(-b - sqrt(delta))/(2*a):0:2)
else write(' Pt vo nghiem ');
end;
readln
end.

Mà giải pt bậc 2 dùng if then cho nhanh, dùng case làm j` :D

[Farmer_Boy]

Đoạn code dưới đây có thể chạy vs giới hạn của delta là 1 tỷ


const max = 1000000000;
var a, b, c: longint;
delta, k: longint;
begin
write(' Nhap he so a, b, c: '); readln(a,b,c);
delta:= b*b - 4*a*c;
case delta of
0 : write(' Pt co nghiem kep x1 = x2 = ',-b/(2*a):0:2);
1..max : write(' Pt co 2 nghiem x1 = ',(-b + sqrt(delta))/(2*a):0:2,' ,x2 = ',(-b - sqrt(delta))/(2*a):0:2)
else write(' Pt vo nghiem ');
end;
readln
end.

Mà giải pt bậc 2 dùng if then cho nhanh, dùng case làm j` :D

Hay đó, chắc cũng do ông thầy đánh đố đây mà, hết dùng write để so sánh, nay lại cho ra mắt phần mềm giải ptb2 bằng case, công nhận mấy ông thầy rắc rối thiệt

[auauau97]

Hay đó, chắc cũng do ông thầy đánh đố đây mà, hết dùng write để so sánh, nay lại cho ra mắt phần mềm giải ptb2 bằng case, công nhận mấy ông thầy rắc rối thiệt
Tý nữa ổng thầy lại cho bài hay hơn nữa kia !

[nguabay91]

ukm cam on moi nguoi nhieu lem tui yeu moi nguoi

[ThangA3]

Hay đó, chắc cũng do ông thầy đánh đố đây mà, hết dùng write để so sánh, nay lại cho ra mắt phần mềm giải ptb2 bằng case, công nhận mấy ông thầy rắc rối thiệt
suy cho cùng thỳ cũng để luyện cái đầu .....