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.
* Cách tính
Tạo biến X để lưu số giây cần đổi
Hỏi người dùng nhập số giây X
Chuyển X thành giờ, phút, giây bằng cách:
Tính số giờ bằng cách chia X cho 3600 và lấy phần nguyên
Tính số phút bằng cách chia số dư của bước trên cho 60 và lấy phần nguyên
Tính số giây bằng cách lấy số dư của bước trên
Chương trình
uses crt;
var n:integer;
begin
clrscr;
readln(n);
writeln(n div 3600,' ',n div 60,' ',n mod 60);
readln;
end.
1) Những dữ liệu đã cho: độ dài quãng đường, tổng thời gian đi và thời gian nghỉ
Những dữ liệu nào cần tính là tốc độ chạy của vận động viên đó.
2) Để lưu các giá trị đã cho và kết quả lời giải khi tính toán vận tốc bằng Scratch, em có thể sử dụng các biến. Đầu tiên, em cần tạo ra hai biến để lưu giá trị quãng đường và thời gian:
- Tạo biến "quang_duong" để lưu giá trị quãng đường đã cho. Bấm vào mục "Data" (dữ liệu) ở thanh công cụ, sau đó bấm vào nút "Make a Variable" (tạo biến) và đặt tên cho biến là "quang_duong".
- Tạo biến "thoi_gian" để lưu giá trị thời gian đã cho. Làm tương tự như trên và đặt tên cho biến là "thoi_gian".
Sau đó, em cần tính toán vận tốc bằng cách chia giá trị quãng đường cho giá trị thời gian và lưu kết quả vào một biến khác:
- Tạo biến "van_toc" để lưu giá trị vận tốc tính được. Tương tự như trên, bấm vào "Data" và tạo biến "van_toc".
- Tạo một block lệnh để tính toán vận tốc. Sử dụng block "set" (gán giá trị) để gán giá trị vận tốc bằng phép chia giá trị quãng đường cho giá trị thời gian.
- Sử dụng block "join" để tạo một chuỗi thông báo với giá trị vận tốc và hiển thị lên màn hình.
- Sử dụng block "set" để gán giá trị quãng đường và thời gian vào các biến đã tạo ở bước 1 và 2.
- Sử dụng block "set" để gán giá trị vận tốc vào biến đã tạo ở bước 3.
Sau khi thực hiện các bước trên, các giá trị quãng đường, thời gian và vận tốc sẽ được lưu vào các biến tương ứng và hiển thị trên màn hình Scratch.
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
program gio;
uses crt;
var g:array[1..3,1..3] of integer;
K:array[1..3] of integer;
i : integer;
BEGIN
clrscr;
{nhap du lieu}
for i:=1 to 3 do
begin
read(g[i,1]);
read(g[i,2]);
readln(g[i,3]);
end;
{tinh tong gio, phut, giay}
K[3]:=(g[1,3]+g[2,3]+g[3,3]) mod 60;
K[2]:=(((g[1,2]+g[2,2]+g[3,2])+((g[1,3]+g[2,3]+g[3,3] div 60)) mod 60);
K[1]:=((g[1,1]+g[2,1]+g[3,1])+(((g[1,2]+g[2,2]+g[3,2]+(g[1,3]+g[2,3]+g[3,3] div 60)) div 60));
writeln('Tong 3 thoi gian vua nhap la ',K[1],' ',K[2],' ',K[3]);
readln;
END.
P/S: bài mình làm hơi dài và hơi khó hiểu, bạn thông cảm