//
you're reading...
Chủ đề file, Giáo trình chuyên Tin học 10, Giáo trình Tin học cơ bản

Chủ đề file: Bài tập 01

[Tải về bài mẫu] [Nộp bài]


Đề bài


Chủ đề: File và Mảng

Viết chương trình:

  1. Nhập từ bàn phím N số nguyên lưu vào tập tin SONGUYEN.DAT.
  2. Đọc dữ liệu từ tập tin SONGUYEN.DAT lưu vào mảng một chiều.
  3. Sắp xếp mảng đã cho theo thứ tự tăng dần.
  4. In kết quả sau khi sắp xếp ra màn hình.

Chương trình mẫu


Program Tap_Tin_So_Nguyen;
Uses Crt;
Var
     f : File Of Integer;
     So : Integer;
     a : Array[1..10] Of Integer;
     Spt,i,j : Integer;
     Filename: String[11];

Begin
ClrScr;
Assign(f,'songuyen.dat');
ReWrite(f);
For i := 1 To 10 Do
Begin
Write('-So thu: ',i:2,' = ');
Readln(So);
Write(f,so);
End;
Close(f);
Spt := 0;
Reset(f);
While NOT EOF(f) Do
Begin
Spt := Spt + 1;
Read(f,so);
a[Spt] := so;
End;
Close(f);

For i := 1 To Spt -1 Do
For j := Spt Downto i + 1 Do
If a[j] < a[j-1] Then
Begin
So := a[j];
a[j] := a[j-1];
a[j-1] := So;
End;
Writeln;
Writeln('Sau khi sap xep: ');
For i := 1 To 10 Do
Write(a[i]:6);
Writeln;
Write(' Bam ... ');
Readln
End.

Yêu cầu thực hành


  1. Cải tiến chương trình trên bằng cách tách thành các procedure thích hợp.
  2. Tạo thêm các hằng cần thiết.
  3. Cải tiến thủ tục gán biến file có kèm hướng dẫn biên dịch {$I-} và {$I+}
  4. Cải tiến thủ tục xuất ra tập tin SONGUYEN.OUT
Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười 2016
H B T N S B C
« Th9   Th11 »
 12
3456789
10111213141516
17181920212223
24252627282930
31  

NCT Computer

Flickr Photos

Thống kê

  • 149,393 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: