Câu 2:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Câu 3:
Dạng thiếu: if <điều kiện> then <câu lệnh>;
Dạng đủ: if <điều kiện> then <câu lệnh>
else <câu lệnh>;
Câu 4:
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')
else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');
readln;
end.
Câu 5:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')
else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')
else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')
else if (a=b) and (b=c) then writeln('Tam giac deu')
else writeln('Day khong phai la tam giac deu hay tam giac can');
readln;
end.
Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?
Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.
Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.
Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng tất cả các nước của n.
Câu 5: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tích tất cả các ước của n.
Câu 6: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng các số chẵn trong đoạn 1 đến n.
Câu 7: Em hãy mô tả thuật toán và viết chương trình nhập vào hai số tự nhiên a và b (a <> 0; b <> 0; a <= 0)
Câu 8: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Kiểm tra xem n có là số nguyên tố hay không?
làm hộ mình nha
P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:
Câu 2:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('So uoc cua ',n,' la: ',dem);
readln;
end.
Câu 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 5:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
if n mod i=0 then s:=s*i;
writeln('Tich cac uoc cua ',n,' la: ',s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Sử dụng câu lệnh lặp while...do viết lại thuật toán để nhập số tự nhiên n và tính tổng các ước số thực của n
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0; i:=1;
while (i<=n) do
begin
if n mod i=0 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Câu 8.
program im_14424;
uses crt;
var S: byte;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 20 do
S:=S+i;
writeln('Tong cua 20 so tu nhien dau tien la: ,S);
readln
end.
Câu 9.
j:=2 → Gán j = 2.
for i:=1 to 5 do → lặp lại 5 lần
j:=j+2 →
Lần 1: 4
Lần 2: 6
Lần 3: 10
Lần 4: 12
Lần 5: 14
Câu 1:
uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.
Câu 2:
i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12
Bài toán tính tổng : S=1+1/2+1/3+...+1/100
a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do
b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
Câu 1: Hãy tìm đầu vào, đầu ra của các thuật toán sau đây:
a) Thuật toán tính trung bình cộng của hai số a,b
b) Thuật toán tìm ước chung lớn nhất của hai số tự nhiên a và b.
a) đầu vào : hai số a và b
đầu ra : trung bình cộng của 2 số a và b
b) đầu vào : hai số tự nhiên a và b
đầu ra : ước chung lớn nhất của hai số tự nhiên a và b
a) đầu vào : hai số a và b
đầu ra : trung bình cộng của 2 số a và b
b) đầu vào : hai số tự nhiên a và b
đầu ra : ước chung lớn nhất của hai số tự nhiên a và b
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Python để thực hiện thuật toán đó. Mấy bạn ơi giúp mình với mình cần gấp lắm
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả: