Lần sau bạn nhớ nêu rõ yêu cầu đề bài là viết chương trình hay viết thuật toán nhé. Bạn chọn là Tin học 10 vì đa số lớp 10 học viết thuật toán nên mình sẽ viết thuật toán.

- Thuật toán liệt kê:

+ Bước 1: Nhập n; dãy a1,a2,a3,...,an

+ Bước 2: i←1; d←0;

+ Bước 3: Nếu i>n thì in ra d và kết thúc thuật toán

+ Bước 4: Nếu ai = 5 thì d←d+1;

+ Bước 5: i←i+1; quay lại bước 3

- Thuật toán sơ đồ khối:

uses crt;

var i,m,j,t,dem,s:integer;

begin

clrscr;

write('Nhap m='); readln(m);

t:=0;

dem:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to i-1 do

if i mod j=0 then s:=s+j;

if s=i then begin

inc(dem);

t:=t+i;

end;

end;

writeln;

writeln('Tong cac so hoan hao trong pham vi tu 1 toi ',m,' la: ',t);

writeln('So so hoan hao trong pham vi tu 1 toi ',m,' la: ',dem);

readln;

end.

Xác định bài toán:

Input: Dãy n số

Output: Sắp giảm dần của dãy số

Chỉ ra tính dừng của thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: i←1;

-Bước 3: Nếu a[i]<a[i+1] thì đổi chỗ a[i] và a[i+1]

-Bước 4: i←i+1;

-Bước 5: Nếu i≤n thì quay lại bước 3

-Bước 6: Xuất dãy

-Bước 7: Kết thúc

giúp e với

uses crt;
var d:array[1..100]of byte;
n,i,j,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
repeat
write('Nhap he dem can doi:'); readln(k);
until (k=2) or (k=8) or (k=16);
i:=1;
repeat
d[i]:=n mod k;
n:=n div k;
i:=i+1;
until n=0;
writeln('So he ',k,' la: ');
for j:=i-1 downto 1 do
begin
case d[j] of
0..9:write(d[j]);
10..16:write(chr(d[j]+55));
end;
end;
readln;
end.

B1: Nhập số nguyên n và dãy số a₁, a₂, ..., a_n

B2: S \(\leftarrow\) 0; i \(\leftarrow\) 1; d \(\leftarrow\) 0
B3: Nếu i > n, chuyển đến B6
B4: d \(\leftarrow\) d + 1; S \(\leftarrow\) S+a_i
B5: i \(\leftarrow\) i+1, quay lại B3
B6: Trung bình cộng S/d, nếu d khác 0 thì kết thúc và ngược lại

Input: Số nguyên N và dãy a1,a2,...an

Output: Trung bình cộng của dãy đó

uses crt;

var a:array[1..99]of integer;

i,n,k:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

write('Vi tri cac phan tu cua day A co gia tri bang ',k,' la: ');

for i:=1 to n do

if a[i]=k then write(i:4);

readln;

end.

Xác định bài toán

-Input: số N và dãy số

-Output: Các số chẵn trong dãy

Ý tưởng: Sau khi nhập dãy xong, chúng ta kiểm tra xem trong dãy nếu có số nào chia hết cho 2 thì xuất số đó ra(Vì số chia hết cho 2 là số chẵn)

Viết thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: i←1;

-Bước 3: Nếu a[i] mod 2=0 thì xuất a[i]

i←i+1

-Bước 4: Nếu i≤n thì quay lại bước 3

-Bước 5: Kết thúc

Input: Số nguyên N; dãy A1,A2,...,AN

Output: Các số chẵn trong dãy

Ý tưởng: Kiểm tra lần lượt các phần tử trong dãy nếu phần tử đó chia hết cho 2 thì in ra

Thuật toán liệt kê:

- Bước 1: Nhập N và dãy A1,A2,...,AN

- Bước 2: i←1; d←0;

- Bước 3: Nếu i>n thì kết thúc thuật toán

- Bước 4: Nếu Ai chia hết cho 2 thì in ra Ai

- Bước 5: i←i+1; quay lại bước 3

Thuật toán:

Bước 1: Nhập n và nhập dãy số

Bước 2: s←0; i←1

Bước 3: s←s+i; i←i+1

Bước 4: Nếu i≤n thì quay lại bước 3

Bước 5: Xuất s

Bước 6: Kết thúc

#include <iostream>

using namespace std;

int main()

{ int a, b;

cin >> a >> b;

int tg;

tg = a;

a = b;

b = tg;

cout << a << b;

return 0;

}