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.
*Ý tưởng đưa ra cho bài toán :
- Quãng đường mà một người di chuyển bằng xe máy là : s1=t1*v1
Vì đề cho v2 là phút nên phải đổi phút = giờ : t2:=t2/60;
- Quãng đường mà người đó đi bộ là : s2=t2*v2
- Quãng đường mà người đó di chuyển được : s=s1+s2
*Lời giải:
Prgoram hotrotinhoc;
var s1,t1,v1,v2: longint;
t2,s2,s: real;
begin
write('Thoi gian nguoi do di chuyen bang xe may la :'); readln(t1);
write('Van toc ma nguoi do di chuyen bang xe may la :'); readln(v1);
s1:=t1*v1;
write('Thoi gian nguoi do di bo la :'); readln(t2);
write('Van toc nguoi do di bo la :'); readln(v2);
t2:=t2/60;
s2:=t2*v2;
s:=s1+s2;
write('Quang duong ma nguoi do di chuyen duoc la :',s:1:3);
readln
end.
*Ý tưởng đưa ra cho bài toán :
- Quãng đường mà một người di chuyển bằng xe máy là : s1=t1*v1
Vì đề cho v2 là phút nên phải đổi phút = giờ : v2:=v2/60;
- Quãng đường mà người đó đi bộ là : s2=t2*v2
- Quãng đường mà người đó di chuyển được : s=s1+s2
*Lời giải:
Prgoram hotrotinhoc;
var s1,t1,v1,t2,v2: longint;
s2,s: real;
begin
write('Thoi gian nguoi do di chuyen bang xe may la :'); readln(t1);
write('Van toc ma nguoi do di chuyen bang xe may la :'); readln(v1);
s1:=t1*v1;
write('Thoi gian nguoi do di bo la :'); readln(t2);
write('Van toc nguoi do di bo la :'); readln(v2);
v2:=v2/60;
s2:=t2*v2;
s:=s1+s2;
write('Quang duong ma nguoi do di chuyen duoc la :',s:1:3);
readln
end.
program bai1;
uses crt;
var a,b,t,Vtb,dds:real;
begin
write('Nhap chieu rong san ');readln(a);
write('Nhap chieu dai san ');readln(b);
write('Nhap thoi gian chay ');readln(t);
dds:=(a+b)*2;
writeln('Do dai san chay la ',dds);
Vtb:=dds/t;
writeln('Van toc trung binh cua ban do la: ',Vtb:10:2);
readln
end.
Thông tin bạn Ân thì bạn tự thêm vào nhé...
hắn ns khó con tau ns dễ
vài bữa còn tính xn nữa chơ phải mô
câu 1
uses crt;
var a,b,c,kt,kt1:integer;
tbc1,tbc2,tbc3:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
{-------------------------------cau-a----------------------}
if (a>b) and (a>c) then
begin
write(a,' ');
if b>c then write(b,' ',c);
if b<c then write(c,' ',b);
end;
if (b>a) and (b>c) then
begin
write(b,' ');
if a>c then write(a,' ',c);
if a<c then write(c,' ',a);
end;
if (c>a) and (c>b) then
begin
write(c,' ');
if a>b then write(a,' ',b);
if a<b then write(b,' ',a);
end;
{--------------------------cau-b-------------------------}
writeln;
kt:=0;
tbc1:=(a+b)/2;
tbc2:=(b+c)/2;
tbc3:=(c+a)/2;
if tbc1=c then
begin
kt:=1;
writeln(c);
end;
if tbc2=a then
begin
kt:=1;
writeln(a);
end;
if tbc3=b then
begin
kt:=1;
writeln(b);
end;
if kt=0 then writeln('NO');
{--------------------cau-c-------------------------------}
writeln;
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt1:=0;
if sqr(c)=sqr(a)+sqr(b) then
begin
kt1:=1;
writeln(c);
end;
if sqr(a)=sqr(b)+sqr(c) then
begin
kt1:=1;
writeln(a);
end;
if sqr(b)=sqr(a)+sqr(c) then
begin
kt1:=1;
writeln(b);
end;
if kt1=0 then writeln('NO');
end
else writeln('day khong phai la 3 canh trong 1 tam giac');
readln;
end.
Theo em khi thực hiện chương trình này không ra kết quả như mong muốn vì khi khởi tạo giá trị ban đầu cho biến S là 0 trong điều kiện lặp khiến cho giá trị của S trở lại thành 0 sau mỗi lần lặp. Điều này dẫn đến kết quả sai.
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )