Có ai giỏi lập trình pascal không giúp mình với

uhm.nhưng mà sửa lòi con mắt mà chưa xong nek
 
Program bt2;
Var f, f1 :text;
A:array[1..10] of integer;
N,Tg, Min,i, ,t, x, k: integer;
Begin
Assign(f, 'songuyen.dat');
Reset(f);
Assign(f1, 'snsapxep.dat');
Rewrite(f1);
i:=0;
While not eof(f) do begin
i:=i+1;
Read(f, x);
a := x;
End; t:=i;
K:=1; min:=a[1];
While k<t do
Begin
For i:=k to t do
If min<a then begin min:=a; n:=i;end;
Tg:=a[k];A[k]:=A[n];A[n]:=tg;
K:=k+1; end;
For i :=1 to t do write(f1,a);
Close(f);close(f1);end.
Co j saj sot m0ng cac mem bo qua nha. Mjh k chak lam.thjenthu th0ng kam cho mjh nha.mjh k co may de thu.neu saj sot thj nho ban sua laj cho dug kaj.
 
khoailangnuong0511 nói:
Vẫn chưa chạy đc hả?
Xem tiếp...
không khoai ah

----------
phuocdaik3010 nói:
Program bt2;
Var f, f1 :text;
A:array[1..10] of integer;
N,Tg, Min,i, ,t, x, k: integer;
Begin
Assign(f, 'songuyen.dat');
Reset(f);
Assign(f1, 'snsapxep.dat');
Rewrite(f1);
i:=0;
While not eof(f) do begin
i:=i+1;
Read(f, x);
a := x;
End; t:=i;
K:=1; min:=a[1];
While k<t
Begin
For i:=k to t do
If min<a then begin min:=a; n:=i;
Tg:=a[k];A[k]:=A[n];A[n]:=tg;
K:=k+1; end;
For i :=1 to t do write(f1,a);
Close(f);close(f1);end.
Co j saj sot m0ng cac mem bo qua nha. Mjh k chak lam
Xem tiếp...

tất nhiên rồi cảm ơn bạn nha
 
Bài a đó đúg ko thienthu? Đc rồi hả.Vậy là hết lo rồi nhé.
 
đâu có biết đâu mình chua chạy nek

----------

thienthu đi học đã tối về mình ol tiếp. mong là không ai làm đúng bài này để cô giáo cho thêm time làm tiếp
 
cuối cùng cũng được về nhà rồi. khoai lên chưa
 
khoai đi học tiếp rồi. :KSV@01:
 
Hình như sai phần lấy giá trị và điền giá trị vào file thì phải. Bạn dùng kiểu file văn bản chứ không phải là file nhị phân nên nó không đồng bộ khi nhập là xuất file.
Vd:
File A đang rỗng.
1. Ghi lần lượt giá trị là 1, 2, 3 thì file A có nội dung lần lượt là: 1 -> 12 -> 123 (chuỗi ký tự)
2. Khi đọc file A, chỉ đọc được 1 lần duy nhất và được giá trị: 123 (số nguyên)
 
mình hổng hiểu pạn ơi
 
Thì trong Pascal có 2 loại file đó:
File văn bản là dạng file giống như file word, notepad, cấu trúc bao gồm các ký tự được kết thúc là bởi 2 ký tự CR và LF
vd:
nếu file có dạng 65 66 CR LF, thì khi đọc file được chuỗi 'AB'
nếu file có dạng 66 97 CR LF 65 đọc file được chuỗi 'Ba'

Đối với trường hợp đọc file lưu vào số nguyên, thì chương trình sẽ tìm 1 tập các ký tự có dạng số rồi chuyển tập kí tự đó thành số nguyên tương ứng (AB124 thành 124, 1 2 3 nếu đọc 3 lần được giá trị 1, 2, 3).

File nhị phân là file giống như file có đuôi .exe, .dll, .lib, .dat, ... cấu trúc file chỉ là một dãy nhị phân (0 và 1) liên tiếp. Nếu đọc hết dãy nhị phân này thì chương trình sẽ cho thông báo là EOF để báo hiệu là đã đến cuối file.

Khai báo file cũng có 2 dạng:
Nhị phân: var f: FILE of <datatype>;
Văn bản: var f: text;
Theo mình biết thì chương trình phổ thông chỉ dạy kiểu file dạng file văn bản thôi thì phải.
 
minh chỉ học file f:text thôi
 
mình đau đầu quá làm mãi mà vẫn thế
 
Đăng nhập một phát, tha hồ bình luận^^

Chủ đề liên quan

V
giải bài tập Pascal
Trả lời
0
Lượt xem
2K
viphung_o
V
Ngocota
  • Bình chọn Bình chọn
quản lý trường học bằng c++
Trả lời
0
Lượt xem
49K
Ngocota
Ngocota
S
PDF Split Merge – Cắt và ghép file PDF
Trả lời
2
Lượt xem
2K
Vsextoy
Vsextoy
Newsun
Bảo vệ thông tin ‘nhạy cảm’ khỏi các chương trình tìm kiếm
Trả lời
1
Lượt xem
2K
Vsextoy
Vsextoy
Newsun
Kỹ năng bảo vệ ổ cứng và dữ liệu
Trả lời
0
Lượt xem
2K
Newsun
Newsun
Quay lại
Top Bottom