Viết hàm tính tổng các số chẵn \(\le\) N
Bài 17: Chương trình con và phân loại
function tong(n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
tong:=t;
end;
Đúng 0
Bình luận (0)
Viết hàm để tính sô lần của xâu S1 xuất hiện trong xâu S2 .
function demsolan(s1,s2:string):integer;
var dem,vt,d2:integer;
begin
dem:=0;
d2:=length(s2);
vt:=pos(s1,s2);
while vt>0 do
begin
inc(dem);
delete(s2,vt,d2);
end;
demsolan:=dem;
end;
Đúng 0
Bình luận (0)
Viết hàm để tạo 1 xâu , là xâu được viết theo thứ tự ngược lại của xâu S
function s1(s:string):string;
var d,i:integer;
s2:string;
begin
d:=length(s);
s2:=#32;
for i:=d downto 1 do
s2:=s2+s[i];
s1:=s2;
end;
Đúng 1
Bình luận (1)
Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm tập 30 giá trị số lớn hơn cả.
DL vào: file B1_INP.TXT có dòng dầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng.
KQ ra: giá trị vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị, số trình tự giảm dần nếu không đủ phải ghi nhận xét không đủ kết quả ở cuối cùng.
BÀI 2
Viết chương trình nhập n...
Đọc tiếp
Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm tập 30 giá trị số lớn hơn cả. DL vào: file B1_INP.TXT có dòng dầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng. KQ ra: giá trị vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị, số trình tự giảm dần nếu không đủ phải ghi nhận xét không đủ kết quả ở cuối cùng. BÀI 2 Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả KQ ra: ghi file có mỗi dòng ghi giá trị và số lần xuất hiện ghi cách nhau dấu cách và thứ tự giảm dần số lần xuất hiện Nếu cùng số lần xuất hiện nhưng nhiều giá trị số thì phải ghi hết các giá trị sô đó xong mới ghi tới số lần xuất hiện tất cả sẽ ghi trên 1 dòng và cách nhau 1 dấu cách. Nếu không đủ số lượng kết quả thì phải ghi nhận xét đó ở cuối cùng
Cho tệp DATA.INP mỗi dòng chứa 1 số nguyên . Hãy viết chương trình pascal tính trung bình cộng các số kết quả ghi vào tệp KQ.OUT
const fi='data.inp'
fo='kq.out'
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 eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t/n:4:2);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
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
sau khi nhập giá trị xác định thì tham số hình thức sẽ thành gì
1- Viết chương trình con tính diện tích hình tròn bán kính R ( sử dụng thủ tục hoặc hàm)
2- Viết chương trình con tính diện tích tam giác khi biết đáy và chiều cao nhập từ bàn phím.( sử dụng 1 thủ tục hoặc hàm để tính diện tích)
3- Viết chương trình con tính diện tích tam giác với độ dài các cạnh nhập từ bàn phím.(sử dụng 1 thủ tục hoặc hàm )
1:
function dt(r:real):real;
begin
dt:=sqr(r)*pi;
end;
Đúng 0
Bình luận (0)
2:
function dt(a,b:real):real;
begin
dt:=1/2*a*b;
end;
Đúng 0
Bình luận (0)
3:
function dt(a,b,c:real):real;
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
dt:=s;
end;
Đúng 0
Bình luận (0)
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập 3 số thực a,b,c từ bàn phím ( sử dụng chương trình con thủ tục ) thực hiện lần lượt các công việc sau :
a. kiểm tra xem 3 số trên có lập thành 3 cạnh của tam giác hay không ?
b. tính diện tích tam giác
c. tính các trung tuyến của tam giác
d. viết hoàn thiện chương trình chính
uses crt;
var a,b,c,p,s,am,bn,cp:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ',s:4:2);
am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;
bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;
cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;
writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);
writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);
writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Đúng 1
Bình luận (0)