Tin học Tin 11. Pascal

[Nguyễn Hoài Thơm]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho tệp INT. DAT chứa dãy số nguyên ( k quá 100 số nguyên) lấy dữ liệu từ tệp. Sau đó tìm gtri lớn nhất trong dãy, đưa kq tìm dc vào tệp OUT. TXT.

 

[Tạ Đặng Vĩnh Phúc]

Code chính:
var f : text;
a: array[1..100] of integer;
i : integer;
max : integer;
begin
assgin (f, 'INT.DAT');
i := 0;
while (not eof (f)) do begin
i ++;
read (f, a);
end;
max = 0;
for i := 1 to i do
if (max < a) then max := a;
close (f);
assign (f, 'OUT.DAT');
write (f, max);
close (f);
end.

 

[Nguyễn Tùng Ân]

(max < a)

(not eof (f))

anh ơi, chỗ này khỏi đánh dấu () cũng được

max = 0

chỗ này phải gán chứ dấu = không thì không được đâu

assign (f, 'OUT.DAT');

theo em nghĩ thì biến xài cho một tệp rồi thì không thể xài biến đó cho tệp khác được

assign (f, 'OUT.DAT');
write (f, max);

anh chưa có lệnh rewrite thì đâu có viết được,còn lại thì ổn, em soi hơi kĩ
chị chỉnh sửa những chỗ này rồi nhập code vào là được nha chị

 

[ka1412]

Bạn thử cách của mình xem =)

uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
f:text;
begin
clrscr;
assign(f,'int.dat');reset(f);i:=1;
while not eof(f) do
begin
    read(f,a[i]);
if i=1 then max:=a[i] else if a[i]>max then max:=a[i];
inc(i);
end;
close(f);
assign(f,'out.txt');rewrite(f);
write(f,max);
close(f);
readln
end.