Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham Khảo:
uses crt;
var ngay:integer;
lp:string;
begin
clrscr;
repeat
write('nhap so ngay thue phong khach san:'); readln(ngay);
if ngay<=0 then writeln('nhap lai');
until ngay>0;
repeat
write('nhap loai phong:'); readln(lp);
if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');
until (lp='A') or (lp='B') or (lp='C');
case lp of
'A': write(300000*ngay);
'B': write(250000*ngay);
'C': write(200000*ngay);
end;
readln;
end.
Đặt giá phòng là x. Thu nhập f(x)
bài toán được phát biểu lại dưới dạng thuần túy Toán học như sau:
Tìm x sao cho f(x) lớn nhất biết rằng khi x = 400 thì f(400) = 400x50, mỗi khi x tăng thêm 20 đơn vị thì f(x+20k) = (x+20k)x(50-2k).
Giá đã tăng: x - 400 (ngàn đồng).
Số phòng cho thuê giảm nếu giá là x:
Số phòng cho thuê với giá x là:
Trả lời câu 1: Thay giá trị x = 500 vào biểu thức trên ta được giá trị cần tìm là 40.
Doanh thu là: f(x) =
Trả lời câu 2: Thế f(x) = 20200 vào phương trình trên, giải phương trình bậc hai, ta được x = 427,64 hoặc x= 472,36
f’(x)=
f’’(x)= -1/5
f’(x) = 0, tương đương x = 450.
và f’’(450) = -1/5< 0
Trả lời câu 3: Theo trên thì x = 450 là cực đại và là cực trị duy nhất.
Tuấn Anh Phan Nguyễn
Đặt giá phòng là x. Thu nhập f(x)
Bài toán được phát biểu lại dưới dạng thuần túy toán học như sau:
Tìm x sao cho f(x) lớn nhất biết rằng khi x = 400 thì f(400) = 400x50, mỗi khi x tăng thêm 20 đơn vị thì f(x+20k) = (x+20k)x(50-2k).
Giá đã tăng: x - 400 (ngàn đồng).
Số phòng cho thuê giảm nếu giá là x:
Số phòng cho thuê với giá x là:
Trả lời câu 1: Thay giá trị x = 500 vào biểu thức trên ta được giá trị cần tìm là 40.
Doanh thu là: f(x) =
Trả lời câu 2: Thế f(x) = 20200 vào phương trình trên, giải phương trình bậc hai, ta được x = 427,64 hoặc x= 472,36
f’(x)=
f’’(x)= -1/5
f’(x) = 0, tương đương x = 450.
và f’’(450) = -1/5< 0
Trả lời câu 3: Theo trên thì x = 450 là cực đại và là cực trị duy nhất.
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.
Mình nhớ có clsrcr với write nữa mà đúng không bạn