1. Hãy mô tả thuật toán giải quyết bài toán sau: A = 1/2 + 2/3 + 3/4+ …+ n/(n+1).
Bài 1:Xác định bài toán và mô tả thuật toán tìm các ước của 1 số nguyên
dương N.
Bài 2: Xác định bài toán và mô tả thuật toán tìm bội chung nhỏ nhất của 2 số
nguyên dương a và b ( BCNN(a,b)).
Bài 3: Hãy chỉ ra Input và Output, mô tả thuật toán của bài toán sau: Tính
tổng các số chẵn trong dãy số nguyên A = {a1, a2, …, an} cho trước
Giúp em với ạ
Câu 1 :
Tham khảo
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;
Câu 2 :
Tham khảo
Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:
ab/d
trong đó d là ước chung lớn nhất của a và b.
Bởi vậy:
Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.
- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:
function ucln (a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:
ADVERTISING Video Player is loading.This is a modal window.
The media could not be loaded, either because the server or network failed or because the format is not supported.lunction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:
program bai4_chuong6;
use crt ;
vai
X y: integer;
function ucln(a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r:= a mod b; a: = b ,b:= r;
end; ucln:= a;
end;
txnction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Begin
clrscr;
writeln('Nhap vao hai so can tim BCNN');
write ('x=') , readln(x); write ('y=') , readln(y);
writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)
readln
End.
Câu 3 : chịu
Câu 3: Vận dụng các kiến thức đã học về thuật toán và các cấu trúc điều khiển giải quyết một số bài toán cụ thể, yêu cầu xác định được:
1. Đầu vào và đầu ra của thuật toán?
2. Mô tả thuật toán giải quyết yêu cầu trên bằng sơ đồ khối.
Ví dụ dạng bài toán cụ thể: + Bài toán tính tổng, tích của 2 số a, b.
+ Bài toán Tìm ước chung lớn nhất của 2 số a,b.
+ Bài toán Tìm số lớn nhất trong 2 số a,b.
(Học sinh mô tả thuật toán bằng sơ đồ khối giải các bài toán trên)
Nhanh giúp em vs
1: Bài toán tính tổng tích
Input: a,b
Output: a+b và a-b
Mô tả thuật toán
Bước 1: Nhập a,b
Bước 2: Xuất a+b và a-b
Bước 3: Kết thúc
1: Bài toán tính tổng tích
Input: a,b
Output: a+b và a-b
Mô tả thuật toán
Bước 1: Nhập a,b
Bước 2: Xuất a+b và a-b
Bước 3: Kết thúc
Câu 3: Vận dụng các kiến thức đã học về thuật toán và các cấu trúc điều khiển giải quyết một số bài toán cụ thể, yêu cầu xác định được:
1. Đầu vào và đầu ra của thuật toán?
2. Mô tả thuật toán giải quyết yêu cầu trên bằng sơ đồ khối.
Ví dụ dạng bài toán cụ thể: + Bài toán tính tổng, tích của 2 số a, b.
+ Bài toán Tìm ước chung lớn nhất của 2 số a,b.
+ Bài toán Tìm số lớn nhất trong 2 số a,b.
(Học sinh mô tả thuật toán bằng sơ đồ khối giải các bài toán trên)
t bài toán: Cho số nguyên dương N và dãy số A1, A2,…, AN . Đếm các phần tử dương có trong dãy
a. Hãy xác định Input, Output của bài toán.
b. Hãy mô tả thuật toán giải quyết bài toán trên
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) dem++;
}
cout<<dem;
return 0;
}
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
Hãy mô tả thuật toán giải bài toán tính tổng các phần tử của dãy số A= {a1, a2,..., an} cho trước.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Câu 2. Xét bài toán: Cho số nguyên dương N và dãy số A1, A2,…, AN. Hãy đưa ra màn hình các phần tử là số
lẻ có trong dãy
a. Hãy xác định Input, Output của bài toán.
b. Hãy mô tả thuật toán giải quyết bài toán bằng cách liệt kê hoặc vẽ sơ đồ khối
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2!=0) cout<<x<<" ";
}
return 0;
}
Em hãy xác định bài toán, mô tả thuật toán, viết chương trình để giải các bài toán sau :
Bài 1: Tính chu vi, diện tích hình vuông.
Bài 2:Tính chu vi, diện tích hình tròn.
Bài 3: Tính chu vi, diện tích hình tam giác thường.
Bài 4: Tính chu vi, diện tích hình chữ nhật.
Bài 5: Tính thể tích hình trụ.
Bài 6: Nhập vào 1 số n, hãy kiểm tra xem n có chia hết cho 3 hay không ?
Bài 7: Nhập vào 1 số n, hãy kiểm tra xem n có chia hết cho 3 và 5 hay không ?
Bài 8: Nhập vào 1 số a, hãy kiểm tra xem a là số chẵn hay lẻ ?
Bài 9: Nhập vào 1 số a, hãy kiểm tra xem a là số âm hay dương ?
Bài 10: Nhập vào 3 số dương. Hãy kiểm tra xem 3 số đó có là độ dài 3 cạnh của 1 tam giác hay không ?
Dạ có gì reply em nhanh 1 tý với ạ còn 2 ngày nữa là em thi rồi em cảm ơn !
a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
Program HOC24;
var S,n: integer;
begin
s:=1; n:=0;
while s<10 do
begin
n:=n+2;
s:=s+n;
end;
write('S= ' ,s);
readln
end.