K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

30 tháng 7 2021

Các bác giúp em câu trên với ạ

18 tháng 11 2021

mình đang cần gấp ạ

 

13 tháng 3 2021

Bài 1:

Thuật toán:

B1: Nhập a,b,c

B2: Tính \(\Delta\) = b2-4ac;

B3: Kiểm tra nếu  \(\Delta\) >0 phương trình có 2 nghiệm phân biệt

\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)

\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)

B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm

B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)

Viết chương trình:

Program HOC24;

var a,b,c: integer;

x1,x2: real;

denta: longint;

begin

write('Nhap a; b; c: '); readln(a,b,c);

denta:=b*b-4*a*c;

if denta>0 then 

begin

write('x1= ',(-b+sqrt(denta))/(2*a):1:2);

write('x2= ',(-b-sqrt(denta))/(2*a):1:2);

end;

if denta<0 then write('Phuong trinh vo nghiem');

if denta=0 then write('x= ',-b/2*a:1:2);

readln

end.

13 tháng 3 2021

Bài 2:

Thuật toán:

B1: Nhập a,b

B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm

B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm

B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;

Viết chương trình:

Program HOC24;

var a,b: integer;

x: real;

begin

write('Nhap a; b: '); readln(a,b);

if a=0 and b=0 then write('Phuong trinh co vo so nghiem');

if a=0 then write('Phuong trinh vo nghiem');

if a<>0 then write('x=',-b/a:1:2);

readln

end.

a: Ta có: \(\left\{{}\begin{matrix}2x-10y=-7\\10x+11y=31\end{matrix}\right.\)

\(\Leftrightarrow\left\{{}\begin{matrix}10x-50y=-35\\10x+10y=31\end{matrix}\right.\Leftrightarrow\left\{{}\begin{matrix}-60y=-66\\2x-10y=-7\end{matrix}\right.\)

\(\Leftrightarrow\left\{{}\begin{matrix}y=\dfrac{11}{10}\\2x=-7+10y=-7+11=8\end{matrix}\right.\Leftrightarrow\left\{{}\begin{matrix}x=4\\y=\dfrac{11}{10}\end{matrix}\right.\)

7 tháng 1 2018

13 tháng 9 2023

Sử dụng khối lệnh if else như sau
loading...

Thu được kết quả như sau:
loading...

21 tháng 12 2021

Đề thiếu rồi bạn