1) viết bộ số chung a,b 2) viết thủ tục hoán đổi giá trị a và b 3) viết thủ tục so sánh a và b tìm số lớn nhất
1.VIẾT HÀM TÍNH TỔNG CÁC SỐ TỪ 1 ĐẾN N 2. Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b
```
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ài tập chương trình con: (procedure và function) Bài 1: Viết hàm tính n giai thừa của một số nguyên dương (n!) Bài 2: Viết hàm tính tổng các số lẻ chia hết cho 5 từ 1 đến n Bài 3: Viết thủ tục thực hiện việc hoán đổi 2 giá trị của a và b
viết thủ tục ( procedure) thực hiện viện hoán đổi 2 số nguyên a,b
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
viết các thủ tục và hàm xử lí các công việc sau :
a, tính n!
b, tìm giá trị lớn nhất của 2 số a,b
c, hoán đổi giá trị 2 số a, b
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;
Cho dãy số có dạng: a; a+4;a+8;…;b=a+4x
Ví dụ: a=3; b=19 thì ta có dãy số: 3;7;11;15;19 dãy số này có 5
số hạng và tổng các số hạng là 55
Em hãy viết thủ tục có tham số a và b rồi tính số lượng số
hạng và tổng các số hạng đó.
Chú ý: Khi gọi thủ tục thì tham số b=a+4x với x>1
viết thủ tục hoán đổi 2 số a,b có dùng điều kiện if ,ctc .
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.
a) Hãy khởi động Logo, viết thủ tục vẽ một hình ngũ giác, thay đổi nét bút, màu bút, thực hiện thủ tục này vài lần.
b) Viết thủ tục thứ hai để vẽ chiếc khăn thêu trong đó có sử dụng câu lệnh vẽ hình ngũ giác ở câu trên.
a) Thủ tục ngugiac:
b) Thủ tục chieckhantheu
Cho mảng A gồm N phần tử thuộc kiểu nguyên (N<=50).viết chương trình con thực hiện các yêu cầu sau
a, viết thủ tục nhập giá trị cho mảng A từ bàn phím
b, viết thủ tục in ra màn hình các phần tử là số chẵn trong mảng A
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;
Cứu tui với mn ưi 1.Viết chương trình con thủ tục đọc dữ liệu từ tệp MAX.INP gồm hai dòng là hai số nguyên x,y (x,y> 32000) 2. Tìm số lớn nhất trong hai số x,y 3. Tuy kết quả vào tệp MAX.OUT gồm một dòng là giá trị lớn nhất trong hai số x,y