Viết CT đọc tệp có tên là SONGUYEN.DAT. Sau đó nhập từ bàn phím một số nguyên m, kiểm tra và thông báo ra màn hình có tồn tại m trong tệp hay không?
gíup mình vớiii plssssss
Viết CT đọc tệp có tên là SONGUYEN.DAT. Sau đó nhập từ bàn phím một số nguyên m, kiểm tra và thông báo ra màn hình có tồn tại m trong tệp hay không?
gíup mình vớiii plssssss
program kiem_tra;
uses crt;
var f:text;
A:array[1..10000] of integer;
n,i,m,d:integer;
begin
clrscr;
Assign(f,’SONGUYEN.DAT’); reset(F);
n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,A[n]);
end;
write(‘Nhap m: ‘); readln(m);
d:=0;
for i:=1 to n do
if A[i]=m then
begin
d:=1;
break;
end;
if d=0 then write(‘Khong co’)
else write(‘Co’);
close(f); readln;
end.
var f: text;
a, m: longint;
kt: byte;
Begin
Assign(f, ‘SONGUYEN.DAT’); reset(f);
Write(‘m = ‘); readln(m); kt:=0;
While not eof(f) do
Begin
While eoln(f) do readln(f);
Read(f, a);
If a=m then
Begin
kt:=1; break;
End;
End;
If kt=1 then write(‘co ‘, m, ‘ trong tep’)
Else write(‘khong co ‘, m, ‘ trong tep’);
Readln
End.