Bài 15: Thao tác với tệp

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

1. Viết chương trình đọc 2 số a,b từ tệp INPUT.TXT và ghi tích của 2 số a,b đó vào tệp OUTPUT.TXT

INPUT.TXT 2 3

OUTPUT.TXT 6

2. Viết chương trình đọc 2 số a,b từ tệp DULIEU.TXT trên ổ đĩa D và ghi số lớn nhất trong 2 số a,b đó vào tệp KETQUA.TXT trên ổ đĩa D

D:\DULIEU.TXT 2 3

D:\KETQUA.TXT 3

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

Bài 1:

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

a,b,s:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

s:=a*b;

writeln(f2,s);

close(f1);

close(f2);

end.

Bài 2:

const fi='dulieu.txt';

fo='ketqua.txt';

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

if a>b then writeln(f2,a)

else if b>a then writeln(f2,b)

else writeln(f2,' khong co so lon nhat trong hai so');

close(f1);

close(f2);

end.

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

Các câu hỏi tương tự
Dania sunna
Xem chi tiết
Kiên Tạ
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
Nguyện Trần
Xem chi tiết
Nguyễn Nhật Nam
Xem chi tiết
help me
Xem chi tiết
thành nguyễn
Xem chi tiết
Nguyễn Hoàng Thiên Lam
Xem chi tiết
Mĩ Lâm
Xem chi tiết