Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phước Thiện Lê Hoàng

giúp em với 2 câu thôi ạ :

viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt

viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con 

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:27

1:

uses crt;

const fi='ketqua.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:29

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.


Các câu hỏi tương tự
lamgi hoi
Xem chi tiết
Ngọc Ánh Phùng
Xem chi tiết
Hoàng Đào
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
Bé Kunz
Xem chi tiết
Hirabbitx
Xem chi tiết
minh
Xem chi tiết
Dao Vo
Xem chi tiết
Nguyễn Bảo Việt
Xem chi tiết