Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng hạ

1. Tệp 'DAYSO.txt' trên đĩa D chứa dãy các số nguyên. (Mỗi số nằm trên 1 dòng).
a) Viết chương trình tính tổng các số trong tệp 'DAYSO.txt', ghi kết quả vào tệp 'TONG.txt'.
b) Viết chương ghi vào tệp 'KQ.txt' các số chẵn, các số lẻ có trong tệp 'DAYSO.txt'.
C) Viết chương trình đưa ra màn hình các số nguyên tố có trong tệp 'DAYSO.txt'.
..Giúp mình với ạ

Nguyễn Lê Phước Thịnh
4 tháng 4 2020 lúc 16:15

uses crt;
const fi='dayso.txt';
fa='tong.txt';
fb='kq.txt';
var f1,f2,f3:text;
a:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fa); rewrite(f2);
assign(f3,fb); rewrite(f3);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
{--------------------------cau-a--------------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'tong cua day so la: ',t);
{--------------------------cau-b--------------------------}
writeln(f3,'cac so chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(f3,a[i]:4);
writeln(f3);
writeln(f3,'cac so le trong day la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(f3,a[i]:4);
{--------------------------cau-c--------------------------}
writeln('cac so nguyen to trong day la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
close(f1);
close(f2);
close(f3);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Phạm Đức Huy
Xem chi tiết
Lê Đức Tài
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Tran Ngô
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Trần Vi Sa
Xem chi tiết
Hằng Dương Thanh
Xem chi tiết
Lan Ngọc
Xem chi tiết