Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Phương Thảo

Viết chương trình từ tệp1.int 3 số

A. Viết ra màn hình số lớn nhất và số nhỏ nhất của 3 số vừa đọc được ở tep1.int

B. Ghi vào tệp2.out giá trị lớn nhất giá trị nhỉ nhất của teep1.int

Minh Lệ
30 tháng 5 2020 lúc 11:40

Program HOC24;

const fi='tep1.int';

fo='tep2.out';

var max,min,a,b,c: integer;

f:text;

procedure ip;

begin

assign(f,fii);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

max:=a; min:=a;

if b>max then max:=b;

if c>max then max:=c;

if b<min then min:=b;

if c<min then min:=c;

writeln(f,'Gia tri lon nhat la : ',max);

write(f,'Gia tri nho nhat la : ',min);

close(f);

end;

begin

ip;

out;

end.


Các câu hỏi tương tự
Chí Nguyễn
Xem chi tiết
Quyền
Xem chi tiết
Chí Nguyễn
Xem chi tiết
Hoàng Long
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Vũ Hữu Đại
Xem chi tiết
Diệu Linh Trần Thị
Xem chi tiết
Namn
Xem chi tiết
Kiên Ngọc
Xem chi tiết