viết chương trình có sử dụng chương trình con và đưa ra bình phương của một số nguyên
Những câu hỏi liên quan
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím. Giúp em với mọi người ❤️
uses crt;
var a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y. Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Mình xin sửa lại một chút:
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (4)
Viết chương trình nhập vào bàn phím mảng 1 chiều A gồm N(N<=200) phần tử nguyên .Tính và viết ra màn hình tổng các số âm có trong mảng A (chương trình sử dụng chương trình con kiểm tra số nguyên âm của số m để viết)
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<0) t+=x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Mọi người giúp e bài này với ạ. Mai e phải thi rồi II. Tự luận Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừaBài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừaBài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được t...
Đọc tiếp
Mọi người giúp e bài này với ạ. Mai e phải thi rồi
II. Tự luận
Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50
Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừa
Bài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừa
Bài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được tạo ra từ bình phương của 1 số nguyên khác
nhập vào từ bàn phím một dãy số nguyên(sử dụng chương trình con), tính tổng các phần tử đó, in ra màn hình( sử dụng chương trình con), sắp xếp dãy số nguyên thành dãy không giảm(sử dụng chương trình con)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t<<endl;
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
4 tháng 5 2022 lúc 16:23
C++ : Viết chương trình sử dụng chương trình con
VD: Cho mảng a có N phần tử ( N là số nguyên)
a) Nhập/ Xuất mảng
b) Tính tổng giá trị chẵn/ lẽ của các phần tử trong mảng
c) Đưa ra màn hình các giá trị chẵn/ lẽ trong mảng
d) Tính trung bình cộng các giá trị chẵn/ lẻ trong mảng e) Đưa ra giá trị nhỏ/ lớn nhất của mảng
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình (sử dụng chương trình con) hãy nhập một dãy số nguyên dương từ bàn phím sau đó tính và hiển thị lên màn hình tổng của các số chẵn
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)