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.
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.
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.
**Phần tử không phải phương trình bạn nha.
Bài làm:
Program HOC24;
var N,i: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln('Tong day so la: ',t);
readln
end.
program giatriP ;
var P,a,b,c,d:real ;
begin
writeln('nhap a, b, c, d=');
readln(a, b, c, d);
P:=a*a+b*b-(c+d)*(c+d);
writeln('P= ');
readln
end.
Sửa đề: Tính tổng bình phương các số nhỏ hơn hoặc bằng n
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln(s);
readln;
end.
Var b,c,x:real;
Begin
Write('Nhap b = ');readln(b);
Write('Nhap c = ');readln(c);
If b = 0 then
Begin
If c = 0 then write('phuong trinh co vo so nghiem')
Else write('phuong trinh vo nghiem');
End
Else
Begin
x:=-c/b
Write('Phuong trinh co nghiem la ',x:10:2);
End;
Readln;
End.
Uses crt;
var i,n: integer;
begin clrscr;
for i:=1 to 100 do n:=n+(i*i);
write(n);
readln;
end.
j=3; k=6