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.
a. 5x3 + 2x2 - 18x + 25 = 5*x*x*x + 2*x*x - 18*x + 25
c. \(\dfrac{2a^2+2c^2-a}{4}\)=(2*a*a+2*c*c-a)/4
d. \(\dfrac{x+y}{x-y}\)=(x+y)/(x-y)
Bạn ơi câu b điều kiện bạn cho là \(0\le n\le10\) sao lại thêm 1 điều kiện nữa là x>0
b)
program hotrotinhoc;
var s: real;
i,n: byte;
function t(x: byte): longint;
var j: byte;
t1: longint;
begin
t1:=1;
for j:=1 to x do
t1:=t1*j;
t1:=t;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/t(i);
write(s:1:2);
readln
end.
c) Đề em ghi sai rồi thế này với đúng :
\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)
program hotrotinhoc;
var t: real;
n,i: byte;
begin
readln(n);
t:=0;
for i:=1 to n do
t:=t+i/(i*i);
write(t:1:2);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10
-kết thúc,s=10
chương trình:
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
T <-- 20; i <-- 0;
| i | ĐK(i<20) | Vòng lặp | T |
| 5 | Đ | 1 | 25 |
| 10 | Đ | 2 | 35 |
| 15 | Đ | 3 | 50 |
| 20 | S | Kết thúc |
Vậy T = 50, i = 20
program bai1;
var i,n:longint;s:real;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
cái thứ 1 bạn nhé :)