viết thủ tục ( procedure) thực hiện viện hoán đổi 2 số nguyên a,b
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
21 tháng 4 2023
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.
23 tháng 4 2021
1)
uses crt;
var a,b,bcnn,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
23 tháng 4 2021
2:
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
12 tháng 4 2022
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
6 tháng 5 2020
uses crt;
var a,b,c:real;
dt:real;
{---------------------------chuong-trinh-con-nhap-----------------------------}
procedure nhap(var x,y,z:real);
begin
repeat
write('Nhap a=');readln(x);
write('Nhap b='); readln(y);
write('Nhap c='); readln(z);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
end;
{-----------------chuong-trinh-con-tinh-dien-tich------------------------}
function dientich(var f,g,h:real):real;
var p:real;
begin
p:=(f+g+h)/2;
dientich:=sqrt(p*(p-f)*(p-g)*(p-h));
end;
{--------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
nhap(a,b,c);
dt:=dientich(a,b,c);
writeln('Dien tich tam giac la: ',dt:4:2);
readln;
end.
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;