Question

Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:

a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15

b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1​

Mong các bạn giúp mình !

Answer 1

a)

- Thuật toán

Bước 1: t:=0;i:=1;

Bước 2: t:=t+i; i:=i+1;

Bước 3: Nếu i<=n thì quay lại bước 2

Bước 4: Xuất kết quả

- Giải

uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.

b)

-Thuật toán

Bước 1: tam:=x;

bước 2: x:=y;

bước 3: y:=tam;

-giải

uses crt;
var x,y,tam:integer;
begin
clrscr;
write('nhap x='); readln(x);
write('nhap y='); readln(y);
writeln('gia tri ban dau cua x la: ',x);
writeln('gia tri ban dau cua y la: ',y);
{--------hoan-doi-----------}
tam:=x;
x:=y;
y:=tam;
writeln('gia tri sau khi thay doi cua x la: ',x);
writeln('gia tri sau khi thay doi cua y la: ',y);
readln;
end.