Question

dạo này môn tin đang khá là thịnh vì vậy mk cũng xin đặc ra 1 câu hỏi để chung vui

viết chương trình giải phương trình bật 2 (\(ax^2+bx+c=0\)) bằng pascal

thưởng 1 GP cho câu tl đúng . các bn CTV khác giúp mk tick hộ cho người đúng nhé :)

Answer 1

Do em thử chạy trước ý. nên chụp như thế này cho nhanh, cop ko được làm biếng chép quá

Answer 2

https://i.imgur.com/gnO69Db.jpg

Answer 3

Tha

Answer 4

PROGRAM ptb2;
USES crt;
VAR a,b,c,x1,x2,d:REAL;
BEGIN
clrscr;

REPEAT
write('Nhap cac he so a, b, c: ');
readln(a,b,c);
UNTIL a<>0;

d:=sqr(b)-4*a*c;

IF d<0 THEN write('Phuong trinh vo nghiem!')
ELSE
BEGIN
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
IF d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x1:5:1)
ELSE writeln('Phuong trinh co 2 nghiem phan biet: ',x1:5:1,x2:5:1);
END;

readln;
END.

Answer 5

Giải phương trình bậc 2 ax^2+bx+c=0 - Em Yêu Tin Học

Khi đăng câu hỏi nhớ xem mạng trước nha a

Answer 6

TRÊN MẠNG NHIỀU ***** CON.

HỌA CÓ ĐIỆN MỚI ĐI VIẾT LẠI .

Answer 7

Ai làm ơn translate ra hộ tớ, tớ là người Việt Nam mà tớ éo hiểu gì -.-

Xin lỗi nhé, ai bảo trường mình không dạy Tin ><

Mình lên lớp 6,7 thì dạy lớp 8,9; lên 8 thì 6,7 được học; lên 9 thì thầy chuyển trường cmn rồi ._.

Klq nhưng nghe bảo thầy Tin đẹp trai lắm *thầy mới ra trường*