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ước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1
i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Bài Làm:
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1 và i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Bước 1: nhập n, \(A\leftarrow0\), \(i\leftarrow1\);
Bước 2: \(A\leftarrow A+\frac{1}{i\left(i+2\right)}\)
Bước 3: \(i\leftarrow i+1\)
Bước 4: Nếu i<=n thì quay về bước 2.
Bước 5: Ghi kết quả A ra màn hình và kết thúc
#include <bits/stdc++.h>
using namespace std;
long long s1,s2,s3,s4,i;
int main()
{
s1=0;
for (i=1; i<=100; i++) s1=s1+i*i;
s2=0;
for (i=1; i<=100; i++) if (i%2==1) s2+=i;
s3=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s3+=i*i;
else s3-=i*i;
}
s4=0;
for (i=1; i<=100; i++)
{
if (i%2==1) s4+=i;
else s4-=i;
}
cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;
return 0;
}
câu 2 bạn xem lại đề nhé
câu 1:
bước 1: nhập n
bước 2: t:=0; i:=2;
bước 3: t:=t+1/i; i:=i+1;
bước 4: nếu i<=n thì quay lại bước 3
bước 5: xuất t
bước 6: kết thúc
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
1 : có trong sgk
3:
a) b1: T←0;
B2: 1 → n ;
B3 : T:=T+1/(i*i) ;
B4: Kết thúc
var a:array[1..32000] of integer;
i,n,j,tam:integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tam:=a[i]; a[i]:=a[j]; a[j]:=tam;
end;
writeln('ket qua sap xep la:');
for i:=1 to n do write(A[i]:5);
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.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s+1/(i+(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Bước 1: S←0; i←1;
Bước 2: S←S+\(\frac{1}{i}\);
Bước 3: i←i+1;
Bước 4: Nếu i<=100 quay về bước 2
Bước 5: In kết quả và kết thúc