1. Trang chủ
  2. » Giáo án - Bài giảng

Bài tập kiểu tệp hay

1 729 16

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 24 KB

Nội dung

Bài toán: Cho tệp văn bản SONGUYEN.TXT có cấu trúc như sau: - Dòng đầu chứa số nguyên dương N - Dòng tiếp theo chứa N số nguyên, mỗi số cách nhau ít nhất một kí tự trắng Viết chương trình ghi vào tệp NGUYENTO.TXT các số nguyên tố có trong tệp SONGUYEN.TXT. ******************************** {Chuong trinh tao tep van ban NGUYENTO.TXT} Var f1,f2:text; I,n,x,dem:integer; Begin Assign(f1,’songuyen.txt’);reset(f1); Assign(f2,’nguyento.txt’);rewrite(f2); While not eoln(f1) do read(f1,n); While not eof(f1) do Begin Read(f1,x); {write(x:5);} If x=1 then {write(f2) hoac write(f2,’ ‘) hoac write(‘ ‘)} Else if x<4 then write(f2,x:5) Else Begin Dem:=0; For i:=2 to trunc(sqrt(x)) do If x mod i=0 then dem:=dem+1; If dem=0 then write(f2,x:5); End; End; Writeln; Close(f1); Close(f2); Readln End. NOTE: {Chuong trinh tao tep van ban SONGUYEN.TXT} Const Nmax=100; Var f1:text; A:array[1 nmax]of integer; i.n:integer; begin assign(f1,’songuyen.txt’); rewrite(f1); write(‘nhap n: ‘); readln(n); writeln(f1,n); for i:=1 to n begin write(‘nhap so thu ‘, I , ‘: ‘); readln(a[i]); write(f1,a[i]:5); end; close(f1); readln end. . Bài toán: Cho tệp văn bản SONGUYEN.TXT có cấu trúc như sau: - Dòng đầu chứa số nguyên dương N - Dòng tiếp. nguyên, mỗi số cách nhau ít nhất một kí tự trắng Viết chương trình ghi vào tệp NGUYENTO.TXT các số nguyên tố có trong tệp SONGUYEN.TXT. ******************************** {Chuong trinh tao tep

Ngày đăng: 05/07/2014, 08:00

TỪ KHÓA LIÊN QUAN

w