viết chương trình con của x/y
DW
Những câu hỏi liên quan
Cho x, y là 2 số nguyên . Viết chương trình có sử dụng chương trình con để tính tổng, hiệu, tích, thương của 2 số đó
uses crt;
var x,y:integer;
{-------------------chuong-trinh-con-tong----------------------------}
function tong(a,b:integer):integer;
begin
tong:=a+b;
end;
{-------------------chuong-trinh-con-hieu----------------------------}
funtion hieu(a,b:integer):integer;
begin
hieu:=a-b;
end;
{-------------------chuong-trinh-con-tich----------------------------}
function tich(a,b:integer):integer;
begin
tich:=a*b;
end;
{-------------------chuong-trinh-con-thuong----------------------------}
function thuong(a,b:integer):real;
begin
thuong:=a/b;
end;
{----------------------chuong-trinh-chinh-----------------------}
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
writeln('Tong la: ',tong(x,y));
writeln('Hieu la: ',hieu(x,y));
writeln('Tich la: ',tich(x,y));
writeln('Thuong la: ',thuong(x,y):4:2);
readln;
end.
Đúng 1
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)
Câu 1 .Viết chương trình sử dụng chương trình con xác định tham số có trong chương trình con X Câu 2 lập trình nhập 2 xâu không quá 100 và so sánh 2 xâu
Bài 1:Viết chương trình con tính căn bậc 2 của x
Bài 2:Viết chương trình con tính tổng S=1+2+3+N...với n nhập từ bàn phím
Giúp e giải gấp với ạ 11h trưa nay e phải nộp bài ạ
Xem chi tiết
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
Đúng 2
Bình luận (0)
Câu 1: viết chương trình tính a*b*c với a,b,c nhập từ bàn phím *câu 2 viết chương trình tính x*x+y*y với x,y Nhậptừ bàn phím *Câu 3 viết chương tính (a div b)+ (a mod b) với a,b nhập từ bàn phím *Câu 4: Viết chương trình nhập vào 5 số a,b,c,d,e tính trung bình công của 4 số đó
Đọc tiếp
Câu 1: viết chương trình tính a*b*c với a,b,c nhập từ bàn phím *
câu 2 viết chương trình tính x*x+y*y với x,y Nhậptừ bàn phím *
Câu 3 viết chương tính (a div b)+ (a mod b) với a,b nhập từ bàn phím *
Câu 4: Viết chương trình nhập vào 5 số a,b,c,d,e tính trung bình công của 4 số đó
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<a*b*c;
return 0;
}
Đúng 0
Bình luận (0)
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
Var a,x2:integer;
Function bp(var i:integer);
Var b:integer;
Begin
Write('Nhap so can tinh ');readln(i);
b:=i*i;
Bp:=b;
End;
Begin
x2:=Bp(a);
Write(a,' binh phuong bang ',x2);
Readln;
End.
Đúng 1
Bình luận (0)
Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phímcâu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phímCâu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộngCâu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó Câu 6: Viết chương trình tính diện tích hình tam giácCâu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)
Đọc tiếp
Câu 1: viết chương trình tính (a+b)/(a-b) nhập từ bàn phím
câu 2 viết chương trình tính a*a+ b*b+ c*c nhạp từ bàn phím
Câu 3 viết chương tính x*y/z với x,y,z nhập từ bàn phím
Câu 4: Viết chương trình nhập vào 3 môn văn toán anh tính trung bình cộng
Câu 5: viết chương trình nhập vào 4 số a,b,c,d sau đó tính trung bình cộng của 4 số đó
Câu 6: Viết chương trình tính diện tích hình tam giác
Câu 7: tính diện tích chu vi hình tròn (chỉ với ạ cảm ơn mọi người)
Câu 1:
Uses crt;
Var a,b:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Writeln((a+b)/(a-b));
Readln
End.
Đúng 0
Bình luận (0)
Câu 2:
Uses crt;
Var a,b,c:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Writeln(a*a+b*b+c*c);
Readln
End.
Đúng 0
Bình luận (0)
Câu 5:
Uses crt;
Var a,b,c,d:real;
Begin
Clrscr;
Readln(a);
Readln(b);
Readln(c);
Readln(d);
Writeln((a+b+c+d)/4);
Readln
End.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết lại hoàn chỉnh chương trình tích tổng 4 lũy thừa lũy thừa =a^n+b^n+c^n+d^n trong đó có sử dụng chương trình con là chương trình lũy thừa x^k
Viết chương trình có sử dụng chương trình con để tìm ước chung lớn nhất của một dãy số a1, a2, ...,an.
uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
uc:=ucln(a[1],a[2]);
for i:=3 to n do
uc:=ucln(uc,a[i]);
writeln(uc);
readln;
end.
Đúng 0
Bình luận (0)