sử dụng chương trình con viết chương trình tính tổng hiệu của hai số thực m,n giúp em với ạ em đang gấp
Viết chương trình nhập vào hai số nguyên a, b. sau đó xuất ra tổng hai số vừa nhập. yêu cầu viết và sử dụng hàm tính tổng (a,b) trong chương trình( viết chương trình python)
Mong mn giúp em ạ
Em sử dụng pascal, nếu đc thì có thể ghép bốn câu lại với nhau giúp em :3
Bài1: viết chương trình tính tổng(tích) của N số tự nhiên.
Bài2: viết chương trình tính tổng (tích) từ số n đến m
Bài3: viết chương trình tính tổng (tích) từ 10 đến 25
Bài4: viết chương trình tính tổng các số lẻ(hoặc chẵn) của N số tự nhiên, N được nhập từ bàn phím.
1.
Var i ,n : integer;
S , T : real;
Begin
Write ('n:') ;
Read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' , S );
Writeln (' Tich của ' ,n,', T );
Readln;
End.
2.
program SumAndProductOfNumbers;
var
n, m, i, sum, product: integer;
begin
writeln('Enter the values of n and m: ');
readln(n, m);
sum := 0;
product := 1;
for i := n to m do
begin
sum := sum + i;
product := product * i;
end;
writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.
3.
program SumAndProductOfNumbers;
var
i, sum, product: integer;
begin
sum := 0;
product := 1;
for i := 10 to 25 do
begin
sum := sum + i;
product := product * i;
end;
writeln('The sum of numbers from 10 to 25 is: ', sum);
writeln('The product of numbers from 10 to 25 is: ', product);
end.
Cách 1: Có sử dụng chương trình con
uses crt;
var st:string;
{------------chuong-trinh-con-------------------}
function doi(st1:string):string;
var i,d:integer;
begin
d:=length(st1);
for i:=1 to d do
st1[i]:=upcase(st1[i]);
doi:=st1;
end;
{-------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(doi(st));
readln;
end.
Cách 2: Không sử dụng chương trình con
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln(st);
readln;
end.
*Cách có sử dụng chương trình con:
uses crt;
var st:string;
{--------------chuong-trinh-con---------------}
function doixau(st:string):string;
var i,d:integer;
begin
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
doixau:=st;
end;
{-------------chuong-trinh-chinh---------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Xau doi sang chu hoa la: ',doixau(st));
readln;
end.
*Cách không sử dụng chương trình con:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln('Xau sau khi doi la: ',st);
readln;
end.
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.
Viết chương trình và sử dụng chương trình con đọc dữ liệu từ tệp input.txt chứa dãy số nguyên trên một dòng. Các số cách nhau một khoảng trắng
Tính tổng dãy số trong tập input.txt rồi ghi kết quả tổng này vào tập output.txt
Giúp em với ạ. Em cảm ơn
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write(f2,t);
close(f1);
close(f2);
end.
viết chương trình tính tổng 3 số thực yêu cầu trong chương trình có sử dụng hàm tính tổng của hai số thực
viết chương trình nhập số nguyên dương n và danh sách gồm n số nguyên a0, a1,....an-1. Hãy tính tổng các số nguyên lẻ trong dãy ?
mn giúp em với ạ em đang gấp :(
var a:Array [1..100] of word;
n,i:byte;
S:word;
begin
write('Nhap so so hang trong day : n = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
S:=0;
for i:=1 to n do if A[i] mod 2 = 1 then S:=S+A[i];
if S = 0 then write('Trong day khong co so le nao nen khong tong khong ton tai') else write('Tong cac so le trong day la : S = ',S);
readln
end.
Ai giúp em câu hỏi tin này với ạ: em hãy viết trình có sử dụng chương trình con. Để tìm giá trị lớn nhất của 4 số nhập từ bàn phím