Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 Bài tập về file (1)

Go down 
3 posters
Tác giảThông điệp
Admin
Admin
Admin


Posts : 120
Danh tiếng : 6
Join date : 10/11/2014
Age : 22

Bài tập về file (1) Empty
Bài gửiTiêu đề: Bài tập về file (1)   Bài tập về file (1) Icon_minitime15/1/2015, 21:13

1. Một file văn bản trên đĩa có tên là ABC.TXT chứa đúng một dòng bao gồm hai số tự nhiên n, m được viết cách nhau một dấu cách. Sau đây là một ví dụ về file này:
4 5
Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.
1. Program B1;
Uses crt;
Var f:text; m,n:integer;
Begin
Clrscr;
Assign(f,'\thumuc\abc.txt');
Reset(f);
Readln(f,m,n);
Close(f);
Writeln(m:4,n:4);
Readln; End.
2. Một file văn bản trên đĩa có tên là SO.INF chứa đúng hai dòng, mỗi dòng bao gồm đúng một số tự nhiên là n, m. Sau đây là một ví dụ về file này:
4
5
Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.
2. Program B2;
Uses crt;
Var
f:text; m,n:integer;
Begin
Clrscr;
assign(f,'\thumuc\so.inf');
reset(f);
Readln(f,m);
Readln(f,n);
close(f);
Writeln(m);
Writeln(n);
Readln;
End.
3. Một file văn bản có tên DATA.TXT lưu trữ số liệu của một mảng n số và có dạng sau:
- Dòng đầu tiên của DATA ghi số n.
- n dòng tiếp theo của file ghi n số, mỗi số trên một dòng.
Viết chương trình nhập số liệu của dãy trên vào một mảng và in ra dữ liệu của mảng trên sau khi đã sắp lại theo thứ tự tăng dần.
3. Program B3;
Uses crt;
Var f: text; n, i, j, jmax: integer;
a: array[1..100] of integer;
atg: integer;
Begin
Clrscr;
assign(f, '\thumuc\data.txt');
reset(f);
Readln(f, n);
For i:=1 to n do Readln(f,a[i]);
close(f);

{ viết thuật toán sắp xếp từ mảng a}

For i:=1 to n do Writeln(a[i]);
Readln;
End.
4. Một file VB có tên DATA.TXT lưu trữ số liệu của một mảng n số và có dạng sau:
- Dòng đầu tiên của DATA ghi số n.
- Dòng tiếp theo của file ghi n số, các số cách nhau bởi tối thiểu một dấu cách.
Viết chương trình nhập số liệu của dãy trên vào một mảng và in ra dữ liệu của mảng trên.
- In phần tử nhỏ nhất của mảng
Ví dụ: file data.txt chứa nội dung
5
3 8 12 45 18

4. Program B4;
Uses crt;
Var f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
Clrscr;
assign(f,'\thumuc\data.txt');
reset(f);
Readln(f,n);
For i:=1 to n do Read(f,a[i]);
For i:=1 to n do Write(a[i]:Cool;
{ Viết thuật toán tìm số nhỏ nhất }
Readln;
End.
5. Viết các thủ tục nhập dữ liệu từ file cho các trường hợp của 4 bài trên.
5. Tự giải.
6. Một file VB có tên DATA.TXT lưu trữ số liệu của một mảng n số và có dạng sau:
- n dòng tiếp theo của file ghi n số, mỗi số trên một dòng.
Viết chương trình nhập số liệu của dãy trên vào một mảng và in ra dữ liệu của mảng trên sau khi đã sắp lại theo thứ tự tăng dần.
Làm bài tương tự bài 3. Điểm khác biệt là ở chỗ file dữ liệu không có dòng đầu tiên ghi tổng số dữ liệu như trong bài 3. Chương trình phải tự kiểm tra và tính số n đó.
6. Program B6;
Uses crt;
Var f:text; n,i:integer;
a:array[1..100] of integer;
Begin
Clrscr;
assign(f,'data.txt');
reset(f);
i:=1;
Repeat
Readln(f,a[i]);
inc(i);
Until seekEof(f);
n:=i-1;
For i:=1 to n do Writeln(a[i]);
Readln;
End.
7. Làm bài tương tự bài 4. Điểm khác biệt là ở chỗ file dữ liệu không có dòng đầu tiên ghi n, chương trình phải tự kiểm tra và và tính số đó.
7. Program BAI07;
Uses crt;
Var
f:text;
n,i:integer;
a:array[1..100] of integer;
Begin
Clrscr;
assign(f,'data.txt');
reset(f);
i:=1;
Repeat
Read(f,a[i]);
inc(i);
Until Eoln(f);
n:=i-1;
For i:=1 to n do
Write(a[i]:Cool;
Readln;
End.
8. Cho file văn bản ghi số liệu của một bảng số N x M và có dạng sau:
- Dòng đầu tiên ghi hai số N, M cách nhau bởi dấu cách.
- N dòng tiếp theo ghi số liệu của N hàng, mỗi dòng bao gồm M số cách nhau bởi dấu cách.
Sau đây là ví dụ một file như vậy:
4 5
3 5 -1 12 10
-1 2 3 6 1
1 4 5 10 -11
2 -1 4 5 7
Viết chương trình nhập dữ liệu từ file trên vào một mảng số N x M.
8. Program BAI08;
Uses crt;
Var
f:text; n,m,i,j:integer;
a:array[1..100,1..100] of integer;
Begin
Clrscr;
assign(f,'data.txt');
reset(f);
Readln(f,n,m);
For i:=1 to n do
Begin
For j:=1 to m do Read(f,a[i,j]);
Readln(f);
End;
close(f);
For i:=1 to n do
Begin
For j:=1 to m do Write(a[i,j]:Cool;
Writeln; End;
Readln;
End.
Về Đầu Trang Go down
https://forumpascalvanlang.forumvi.com
nhathuyvanlang

nhathuyvanlang


Posts : 49
Danh tiếng : 10
Join date : 26/03/2016

Bài tập về file (1) Empty
Bài gửiTiêu đề: Re: Bài tập về file (1)   Bài tập về file (1) Icon_minitime17/1/2017, 09:02

Bài 3:Một file văn bản có tên DATA.TXT lưu trữ số liệu của một mảng n số và có dạng sau:
- Dòng đầu tiên của DATA ghi số n.
- n dòng tiếp theo của file ghi n số, mỗi số trên một dòng.
Viết chương trình nhập số liệu của dãy trên vào một mảng và in ra dữ liệu của mảng trên sau khi đã sắp lại theo thứ tự tăng dần.
Lập file DATA.txt
Code:
uses crt;
var f:text;
    n,i:integer;
    a:array[1..100] of integer;   {_}
begin
clrscr;
assign(f,'DATA.txt');
rewrite(f);
write('nhap so phan tu cua mang:');readln(n);
writeln(f,n);
for i:=1 to n do
    begin
         write('a[',i,']:');readln(a[i]);
         writeln(f,a[i]);
    end;
close(f);
readln;
end.
Chương trình chính
Code:
uses crt;
var a,b:array[1..100] of integer;
    f:text;
    i,n,j,k,l,m:integer;
procedure dc(var a,b:integer);
var t:integer;
begin
t:=a;a:=b;b:=t;
end;
begin
clrscr;
assign(f,'DATA.txt');
reset(f);
read(f,n);
for i:=1 to n do
readln(f,a[i]);
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then dc(a[i],a[j]);
for i:=1 to n do write(a[i]:3);
readln;
end.
Về Đầu Trang Go down
thuynganhb




Posts : 10
Danh tiếng : 1
Join date : 09/01/2017

Bài tập về file (1) Empty
Bài gửiTiêu đề: Re: Bài tập về file (1)   Bài tập về file (1) Icon_minitime10/2/2017, 10:35

Cảm ơn admin vì bài tập đã giải sẵn rất dễ học và so sánh tham khảo.
Về Đầu Trang Go down
nhathuyvanlang

nhathuyvanlang


Posts : 49
Danh tiếng : 10
Join date : 26/03/2016

Bài tập về file (1) Empty
Bài gửiTiêu đề: Re: Bài tập về file (1)   Bài tập về file (1) Icon_minitime19/2/2017, 07:56

thuynganhb đã viết:
Cảm ơn admin vì bài tập đã giải sẵn rất dễ học và so sánh tham khảo.
Không có gì đâu bạn Very Happy
Về Đầu Trang Go down
Sponsored content





Bài tập về file (1) Empty
Bài gửiTiêu đề: Re: Bài tập về file (1)   Bài tập về file (1) Icon_minitime

Về Đầu Trang Go down
 
Bài tập về file (1)
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Bài tập về file (2)
» Bài tập về file
» giải giùm bài tập file
» Giải giúp BT file !!!

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Bài tập :: Tệp (File)-
Chuyển đến