Câu 2:

a) Chương trình có 2 tệp và 2 biến tệp

- 2 tệp đó là : input.txt và output.txt

- 2 biến tệp đó là: f1 và f2

b)

- Tệp input.txt được gắn cho biến tệp là f1 .Nó dùng để đọc dữ liệu

-Tệp output.txt được gắn cho biết tệp là f2. Nó dùng để ghi dữ liệu

c)

Câu lệnh gắn tập và mở tệp của input.txt và output.txt là : assign(f1 ,' input.txt'); và assign(f2 ,' output.txt);

Câu lệnh đọc tệp là: reset(f1);

Câu lệnh để ghi tệp là: rewrite(f2);

d) Điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt là phải có biến tệp f1 ở trước mọi câu lệnh đọc dữ liệu.

e) Chương trình có 2 lệnh đóng tệp. Không thể không đóng tệp , vì nếu không đóng thì dữ liệu đã thực hiện không thể lưu lại .

Bạn làm gì vậy :V? Mình không hiểu

uses crt;

const fi='duongtron.out';

var r,s,c:real;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('nhap r='); readln(r);

s:=sqr(r)*pi;

writeln(f1,s:4:2);

c:=2*r*pi;

writeln(f1,c:4:2);

close(f1);

readln;

end.

uses crt;

const fi='ketqua.txt';

var f1:text;

n,i,t:integer;

a:array[1..100]of integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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

t:=t+a[i];

writeln(f1,' Trung binh cong cua day so la: ',t/n:4:2);

close(f1);

readln;

end.

Var st,st1,st2,s,s1,s2,ch : string;

n,vt: integer;

uses crt;

const fi='sont.inz';

var f1:text;

n,i,kt,j:longint;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('nhap n='); readln(n);

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(f1,i:4);

end;

close(f1);

readln;

end.

uses crt;

var a:array[1..100]of integer;

n,i,k,t:integer;

begin

clrscr;

repeat

write('nhap n='); readln(n);

until (0<n) and (n<=100);

for i:=1 to n do

begin

repeat

write('a[',i,']='); readln(a[i]);

until abs(a[i])<=300;

end;

write('nhap k='); readln(k);

t:=0;

for i:=1 to n do

if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so la boi cua ',k,' trong day la: ',t);

readln;

end.

const fi='dayso.txt';

fo='ketqua.txt';

var f1,f2:text;

a:array[1..100]of integer;

n,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do

if a[i] mod 2=0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.

const fi='aaa.txt';

fo='bbb.txt';

var f1,f2:text;

x,y,cv,dt:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,x,y);

cv:=(x+y)*2;

writeln(f2,'chu vi hinh chu nhat la: ',cv:4:2);

dt:=x*y;

writeln(f2,'dien tich hinh chu nhat la: ',dt:4:2);

close(f1);

close(f2);

end.

cô mình gửi như thế mà có sai j đâu

Đề bài nếu thế này thì đúng nè: Viết chương trình tìm t là tổng của n số tự nhiên đầu tiên, cho tới khi t là số nhỏ nhất lớn hơn hoặc bằng 1000 thì dừng lại