Những câu hỏi liên quan
M Ạ C H N H A
Xem chi tiết
Thanh Đình Lê
21 tháng 4 2023 lúc 9:49
Viết hàm tính tổng các số từ 1 đến n:

```
def tong_tu_1_den_n(n):
tong = 0
for i in range(1, n+1):
tong += i
return tong
```

Hàm này sử dụng vòng lặp for để tính tổng của các số từ 1 đến n. Ban đầu, ta khởi tạo biến tong bằng 0. Sau đó, ta lặp qua các số từ 1 đến n và cộng chúng vào biến tong. Cuối cùng, ta trả về giá trị của biến tong.

Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b:

```
def hoan_doi(a, b):
temp = a
a = b
b = temp
return a, b
```

Thủ tục này sử dụng biến tạm temp để lưu giá trị của a trước khi hoán đổi. Sau đó, ta gán giá trị của b cho a và giá trị của temp (tức là giá trị ban đầu của a) cho b. Cuối cùng, ta trả về hai giá trị đã được hoán đổi.

Bình luận (0)
M Ạ C H N H A
Xem chi tiết
Võ Trần Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:38

procedure hoandoi(a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;

Bình luận (0)
Khánh Huyền Phan Thị
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 6 2020 lúc 21:54

a)

*Hàm

function giaithua(n:integer):longint;

var i:integer;

begin

giaithua:=1;

for i:=1 to n do

giaithua:=giaithua*i;

end;

b)

*Hàm

function max(a,b:integer):integer;

begin

max:=a;

if max<b then max:=b;

end;

c)

*Thủ tục

procedure hoandoi(a,b:integer);

var tam:integer;

begin

begin

tam:=a;

a:=b;

b:=tam;

end;

end;

Bình luận (0)
Duy Khánh Đặng
Xem chi tiết
hướng gấu ca
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2019 lúc 17:13

uses crt;
var a,b,tam:integer;
{------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky: '); readln(n);
end;
{--------------------------------------------------------}
procedure doicho(var x,y:integer);
begin
writeln('so a truoc khi thay doi la: ',x);
writeln('so b truoc khi thay doi la: ',y);
begin
tam:=x;
x:=y;
y:=tam;
end;
writeln('so a sau khi thay doi la: ',x);
writeln('so b sau khi thay doi la: ',y);
end;
{---------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
doicho(a,b);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
14 tháng 3 2019 lúc 8:14

a) Thủ tục ngugiac:

b) Thủ tục chieckhantheu

Bình luận (0)
BT Thêm
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 20:56

a)

Type mang=array[1..100]of integer;

procedure nhap(var a:mang);

var n,i:integer;

begin

for i:=1 to n do

begin

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

end;

end;

b) procedure xuat(var a:mang);

var i,n:integer;

begin

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

end;

Bình luận (0)
Nguyễn Xuân
Xem chi tiết