Dòng 2: f,g: text;
Dòng 5: assign(g,'Cau2.OUT');
Dòng 7: reset(f);
Dòng 11: close(f); close(g);
Yêu cầu :
Hãy chỉ ra:
a) Chương trình con dùng trong chương trình trên thuộc loại nào ?
b) Tên chương trình con ?
c) Danh sách tham số hình thức ?
d) Danh sách tham số thực sự ?
e) Các biến cục bộ dùng trong chương trình con ?
g) Có bao nhiêu lời gọi chương trình con ?
Em biết giờ này hỏi bài là hơi kì ạ. Nhưng mà mai thi mất tiêu r ạ. Các anh chị có thể giúp em vs không ạ. Sáng mai em phải nộp r ạ.😖😖😖
viết ctrinh n≤ 10000 nguyên dương. Viết ra số lượng số nguyên tố và 10 giá trị số nguyên tố lớn hơn cả
Dữ liệu vào: file B5.INP.TXT. Có dòng đầu là số n. Từ dòng kế ghi lần lượt n số cách nhau dấu cách hoặc xuống dòng
KQ ra: ghi file B5.OUT.TXT dòng đầu ghi số lượng số nguyên tố dòng kế ghi 10 giá trị số nguyên tố lớn hơn cả được cách nhau bằng dấu cách
BÀI 2
Viết chương trình đọc các dòng trong một file văn bản độ dài dòng (255 ký tự, số dòng ≤ 50000). Tính ra số từ trong file( từ nằm trọn trên dòng), và dòng có số từ nhiều nhất là bao nhiêu từ, có bao nhiêu dòng như vậy.
Dữ liệu vào : file B6-INT.TXT gồm nhiều dòng văn bản.
KQ ra: file B6-OUT.TXT dòng đầu ghi tổng số từ vủa file, dong 2 ghi số từ nhiều nhất của 1 dòngvà số dòng có số từ nhiều nhất
so sánh cấu trúc chương trình con với cấu trúc chương trình pascal
Cho 1 tệp dl.i nt gồm 2 dòng Dòng 1 lưu trữ 1 số nguyên N Dòng 2 lưu trữ N số nguyên Thực hiện đọc dữ kiệu từ tệp vào ctrình và tính tổng dòng 2 Mong thầy rep nhanh , e cảm ơn ạ
Uses crt;
Const fi='dl.int'
Var f1:text;
A:array[1..100] of integer;
I,n,t: integer;
Begin
Clrscr;
Assign(f1,fi); reset(f1);
Readln(f1,n);
For i:=1 to n do
Read(f1,a[i]);
T:=0;
For i:=1 to n do
T:=t+a[i];
Writeln(t);
Close(f1);
Readln;
End.
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.
Viết chương trình ( sử dụng chương trình con) nhập một dãy n số nguyên dương. Tính tổng các số lẻ trong dãy.
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.
Viết hàm để kiểm tra một số nguyên N có phải là số chính phương hay không ?
function ktra(n:integer):boolean;
var kt:boolean;
begin
if trunc(sqrt(n))=sqrt(n) then kt:=true
else kt:=false;
if kt=true then ktra:=true
else ktra:=false;
end;
Viết hàm để kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác ABC hay không ?
function ktra(a,b,c:integer):boolean;
var kt:boolean;
begin
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then kt:=true
else kt:=false;
if kt=true then ktra:=true
else ktra:=false;
end;
Viết hàm để tìm số lớn nhất trong 2 số a và b
function max(a,b:integer):integer;
begin
max:=a;
if max<b then max:=b;
end;