đọc và xử lí tệp trên pascal?

Tiêu đề: đọc và xử lí tệp trên pascal? Sun Apr 25, 2010 9:42 am

mở tệp vd.txt để đọc, tính tổng các phần tử âm trong tệp
( cái này mình ngu lắm, mong các mem giúp đỡ)

kiểu phần tử?

Khách viếng thăm

sao lại không có kiểu thế? Mình làm thế này không biết có đúng ko, các mem xem sửa lỗi hộ nhé. Tạm lấy số nguyên, còn đề là kiểu gì thì tự thay nhé.

Code:: program tinhtong;
uses crt;
var i, tong: integer;
f: Text;
begin
clrscr;
tong:=0;
assign(f,'d:/vd.txt');
reset(f);
while not eof(f) do
begin
read(f,i);
if ( i < 0 ) then
tong:=tong + (i);
end;
close(f);
writeln('tong cac phan tu am trong tep tong = ',tong);
readln;
end.

lâu rồi không làm mấy cái này, làm như thế này không biết có đúng không nữa.

DucMjnh1992 đã viết:: sao lại không có kiểu thế? Mình làm thế này không biết có đúng ko, các mem xem sửa lỗi hộ nhé. Tạm lấy số nguyên, còn đề là kiểu gì thì tự thay nhé.

hj` tại vội quá nên em quên mất không ghi kiểu. Là kiểu số nguyên.

bài này nữa, đúng chưa nhỉ?