viết thủ tục hoán đổi 2 số a,b có dùng điều kiện if ,ctc .
Những câu hỏi liên quan
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)
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.
Đúng 0
Bình luận (0)
2:
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
Đúng 0
Bình luận (0)
3:
procedure max(a,b:integer);
begin
if a>b then max:=a
else max:=b;
end;
Đúng 0
Bình luận (0)
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;
Đúng 0
Bình luận (0)
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
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.
Đúng 0
Bình luận (0)
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 nhập vào mảng một chiều có n phần tử. - Viết hàm tính tổng các phần tử của mảng? - Viết hàm Kiểm tra xem tổng tìm được là số chẵn hay số lẻ - Viết chương trình chính sử dụng các CTC nói trên. Hiển thị kết quả ra màn hình.
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
Đúng 0
Bình luận (0)
Em hãy viết câu lệnh hình sau trong Logo, viết bằng 2 cách(cách 1: không dùng thủ tục tam giác ở câu 1, cách 2: dùng thủ tục tam giác ở câu 1) *
1. Viết cách tạo các thủ tục sau có thay đổi màu nét vẽ: + Thủ tục hình chữ nhật+ Thủ tục hình tròn có bút vẽ nằm trên đường tròn.+ Thủ tục hình sao. 2. Từ 03 thủ tục trên em hãy sử dụng câu lệnh lặp viết cúa pháp để tạo thành 1 mẫu hoa vănBài làm................................................................................................................................................................................................................................................................
Đọc tiếp
1. Viết cách tạo các thủ tục sau có thay đổi màu nét vẽ:
+ Thủ tục hình chữ nhật
+ Thủ tục hình tròn có bút vẽ nằm trên đường tròn.
+ Thủ tục hình sao.
2. Từ 03 thủ tục trên em hãy sử dụng câu lệnh lặp viết cúa pháp để tạo thành 1 mẫu hoa văn
Bài làm
..............................................................................................................................................................................................
..............................................................................................................................................................................................
.........................................................................................................................................................................................
*giải gúp mình vs:
bt: Mảng A gồm N phần tử thuộc kiểu nguyên (N50)? Viết chương trình có sử dụng CTC thực hiện các yêu cầu sau:
a
- Viết thủ tụp nhập giá trị cho mảng A từ bàn phím.
-Viết hàm tìm giá trị nhỏ nhất trong mảng A.
b
- Viết thủ tục nhập giá trị cho mảng A từ bàn Phím
- Viết hàm tính tổng các phần tử là số chẳn trong mảng A.
Đọc tiếp
*giải gúp mình vs:
bt: Mảng A gồm N phần tử thuộc kiểu nguyên (N<=50)? Viết chương trình có sử dụng CTC thực hiện các yêu cầu sau:
a>
- Viết thủ tụp nhập giá trị cho mảng A từ bàn phím.
-Viết hàm tìm giá trị nhỏ nhất trong mảng A.
b>
- Viết thủ tục nhập giá trị cho mảng A từ bàn Phím
- Viết hàm tính tổng các phần tử là số chẳn trong mảng A.
program cau_a;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tim-min--------------}
function min(var c:mang):integer;
var j,m,nn:integer;
begin
nn:=c[1];
for j:=1 to m do
if nn<c[j] then nn:=c[j];
write('so nho nhat trong mang A la: ',nn);
min:=nn;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
min(a);
readln;
end.
Đúng 1
Bình luận (0)
câu b:
program cau_b;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tinh-tong-cac-phan-tu-la-so-chan--------}
function tong(var c:mang):integer;
begin
s:=0;
for i:=1 to n do
if c[i] mod 2=0 then s:=s+c[i];
tong:=s;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
s:=tong(a);
write(s);
readln;
end.
Đúng 1
Bình luận (0)