Có ai giỏi lập trình pascal không giúp mình vớ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 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
 
đâ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
 
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)
 
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.
 

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
keepmoving
Download BitTorrent Pro 7.10.5 Full + Portable
Trả lời
0
Lượt xem
493
keepmoving
keepmoving
keepmoving
Download Winrar 5.80 Beta 2 (x86/x64) Mới nhất
Trả lời
0
Lượt xem
2K
keepmoving
keepmoving
Quay lại
Top Bottom