Bài tập chương trình con: (procedure và function) Bài 6: Viết thủ tục để in các số từ 1 đến n Bài 7: Viết thủ tục để mn các số chẵn chia hết cho 3 phạm vi từ 1 Đến n
Bài 18: Ví dụ về cách viết và sử dụng chương trình con
Bài tập chương trình con: (procedure và function) Bài 4: Viết hàm tính tích các số lẻ từ 1 đến n Bài 5: Viết hàm tính tổng các số chẵn chia hết cho 3 từ 1 đến n
viết chương trình sử dụng hàm tính diện tích hình vuông và hình chữ nhật ạ
# Hàm tính diện tích hình vuông
def dien_tich_hinh_vuong(canh):
dien_tich = canh ** 2
return dien_tich
# Hàm tính diện tích hình chữ nhật
def dien_tich_hinh_chu_nhat(dai, rong):
dien_tich = dai * rong
return dien_tich
# Kiểm tra và in kết quả
canh = float(input("Nhập vào cạnh hình vuông: "))
dai = float(input("Nhập vào độ dài hình chữ nhật: "))
rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))
if canh <= 0 or dai <= 0 or rong <= 0:
print("Kích thước không hợp lệ!")
else:
dien_tich_hv = dien_tich_hinh_vuong(canh)
dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)
print("Diện tích hình vuông là: ", dien_tich_hv)
print("Diện tích hình chữ nhật là: ", dien_tich_hcn)
Đúng 1
Bình luận (0)
Sử dụng thủ tục để viết chương trình giải phương trình bậc 2 : ax^2+bx+c
Viết chương trình nhập vào 3 số nguyên. Tính tổng của số thứ nhất và thứ hai, tính tích của số thứ ba. (trên Pascal)
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng thủ tục kiểm tra 1 số nguyên dương nhập vào từ bàn phím có phải là số nguyên tố hay không
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
bool kt=true;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>=2) cout<<"YES";
else cout<<"NO";
return 0;
}
Đúng 0
Bình luận (0)
Viết thủ tục vẽ hình tam giác đều có cạnh 6
Viết chương trình tính tổng của 2 số nguyên x, y. Có sử dụng hàm
uses crt;
var x,y:integer;
//chuongtrinhcon
function tong(a,b:integer):integer;
begin
tong:=a+b;
end;
//chuongtrinhchinh
begin
clrscr;
readln(x,y);
writeln(tong(x,y));
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Dùng pascal ạ mn giúp mình với!!!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)