Dùng ngôn ngữ lập trình Pascal viết chương trình giải các bài toán sau: Bài 1: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây. Bài 2: Trăm trâu trăm cỏ Trâu đứng ăn

hogiang811

2 năm trước

Dùng ngôn ngữ lập trình Pascal viết chương trình giải các bài toán sau: Bài 1: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây. Bài 2: Trăm trâu trăm cỏ Trâu đứng ăn năm Trâu nằm ăn ba Trâu già ba con một bó. Hỏi có bao nhiêu con mỗi loại? Bài 3: Nhập tuổi bàn phím tuổi của cha và con ( hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi: “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con?” Bài 4: Tìm số ngày của năm N, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. VD: năm 2000, 2004 là năm nhuận và có số ngày là 366 Năm 1900, 1945 không phải là năm nhuận và có số ngày là 365

Loga Sinh Học lớp 12

0 lượt thích 60 xem

1 trả lời

Thích Trả lời

hoangthanhhang

4 chương trình này mình rồi nhé chạy thử rồi nhé :3 bạn tham khảo

bài 1: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây.

program hotboy;

uses crt;

var ,gio,phut,x: integer;

begin

clrscr;

write('nhap thoi gian lam cong viec do',x);

readln(x);

gio:=x/3600;

phut:=x/60;

write(x,'chuyen ra duoc',gio,'chuyen ra duoc',phut,'va',x,'giay);

readln

end.

Bài 2: Trăm trâu trăm cỏ Trâu đứng ăn năm Trâu nằm ăn ba Trâu già ba con một bó. Hỏi có bao nhiêu con mỗi loại?

program hotboy;

uses crt;

var a,b,c : integer;

Begin

Clrscr;

For a:=1 to 20 do

For b:=1 to 33 do

begin

c:=100-(c+b);

if 5*a+3*b+c/3 = 100 then

Writeln('co so trau dung la ',a,' so trau nam la ',b,' so trau gia la ',c);

end;

readln

end.

Bài 3: Nhập tuổi bàn phím tuổi của cha và con ( hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25).

Đưa ra màn hình câu trả lời cho câu hỏi: “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con?”

Program hotboy;

uses crt;

Var a,b,i:integer;

Begin

clrscr;

i:=0;

repeat

write('nhap tuoi cua cha'); readln(a);

until a>=25;

write('nhap tuoi cua con'); readln(b);

while a<>2b do

begin

a:=a+1; b:=b+1; i:=i+1;

end;

write('sau',i,'nam nua tuoi cha gap doi tuoi con');

readln

end.

Bài 4: Tìm số ngày của năm N, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. VD: năm 2000, 2004 là năm nhuận và có số ngày là 366 Năm 1900, 1945 không phải là năm nhuận và có số ngày là 365

program hotboy;

uses crt;

n:integer;

begin

clrscr;

if n mod 4000=0 or n mod 4=0 and n mod 100<>0 then writeln(n,'la nam nhuan va co 366 ngay')

else writeln(n,'khong phai la nam nhuan va co 365 ngay');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

dieuhang03

Bài 1

Program DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x: longint; BEGIN Clrscr; Writeln('DOI SANG GIO PHUT GIAY'); Writeln('--------------------------------------'); Write('Nhap vao so giay: '); readln(x); gio:=x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60; Writeln('Ket qua = ', gio,'gio: ', phut, 'phut: ', x, 'giay'); Readln; END.

Bài 2

Nội dung chi tiết câu hỏi:
Có tổng số 100 con trâu, và 100 bó cỏ.
Có 3 loại trâu là: trâu đứng, trâu nằm, và trâu già.
Mỗi con trâu đứng sẽ ăn 5 bó cỏ, mỗi trâu nằm ăn 3 bó cỏ, trâu già thì 3 con ăn 1 bó cỏ.

Hỏi số trâu mỗi loại là bao nhiêu, biết rằng theo như cách chia cỏ trên, thì tất cả là 100 con trâu, 100 bó cỏ.

Có 3 đáp án đúng: Số trâu mỗi loại là:
Đáp án 1: Trâu đứng 4, trâu nằm 18, trâu già 78.
Đáp án 2: Trâu đứng 8, trâu nằm 11, trâu già 81.
Đáp án 3: Trâu đứng 12, trâu nằm 4, trâu già 84.

Bài 3

program bai7; uses crt; var tcha,tcon,nam:integer; begin clrscr; writeln('nhap vao tuoi cha va tuoi con '); readln(tcha,tcon); nam:=0; while(tcha<>tcon*2) do begin tcha:=tcha+1; tcon:=tcon+1; nam:=nam+1; end; writeln('sau ',nam,' nam nua thi tuoi cha gap 2 lan tuoi con'); readln; end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tìm điều kiện của x, y để x.y> 0

Cảm nhận nhân vật ông Sáu vb chiếc lược ngà trong đoạn “ Tôi hãy còn nhớ buổi chiều hôm ấy.... nhắm mắt đi xuôi” đoạn văn tối thiểu 3 trang giúp mình với mình cần gấp ngay bây h 🙏

Tại sao khi cọ xát thanh thuỷ tinh với vải khô thì thanh thuỷ tinh nhiễm điện dương còn vải khô nhiễm điện âm? Nhưng khi cọ xát vải khô với thanh nhựa thì vải khô nhiễm điện dương còn thanh nhựa nhiễm điện âm?

Câu 1: Hãy vẽ sơ đồ tóm tắt nội dung của bài 17 : Hiệp hội các nước Đông Nam Á (ASEAN) Câu 2: Hãy nêu mục tiêu chung của ASEAN? Việt Nam có những cơ hội và thách thức gì khi tham gia ASEAN? Việt Nam đã có đóng góp gì trong ASEAN? Câu 3: Em hãy viết 1 đoạn văn ngắn nói về thiên nhiên đất nước con người Việt Nam?

Cho góc xOy nhọn. Trên tia Ox lấy các điểm A và C, trên tia Oy lấy các điểm B và D sao cho OA = OB và OC = OD. Gọi K là giao điểm của AD và BC. Chứng minh: a) ∆OAD = ∆OBC. b) ∆KBD = ∆KAC. c) OK là tia phân giác của góc xOy . d) CD vuông góc với OK. *Mn giúp e với! (VẼ HÌNH)

1. Qua văn bản Chuẩn bị hành trang vào thế kỉ mới của tác giả Vũ Khoan em nhận thấy ở bản thân mình có những diểm mạnh và điểm yếu nào trong những điều tác giả đã nêu và cả những điều tác giả chưa nói tới? Nêu phương hướng khắc phục những điểm yếu. 2. Phát biểu điều mà em thấm thía nhất khi học bài Bàn về đọc sách. 3. Viết một đoạn văn trình bày suy nghĩ của em về việc thanh niên chuẩn bị hành trang bước vào thế kỉ mới, trong đó có câu chứa thành phần biệt lập. 4. Hãy tự nghĩ ra một đề bài nghị luận về một sự việc hiện tượng đời sống, sau đó viết bài văn nghị luận về đề bài đó.

mọi người giải giúp em , em cảm ơn nhiều ạ

Câu 1 : hãy cho biết tại sao khi thu hoạch đúng độ chín,nhanh gọn và cẩn thận? Câu 2 : Trong phương thức luân canh có phải muốn luân canh bất kì loại cây trồng nào với nhau cũng được ? Giải thích? Câu 3 : Hãy nêu tác dụng của việc luân canh, xen canh, tăng vụ trong sản xuất và trồng trọt

Câu 1 : Tìm số đối của các số sau: 15; - 12; -3^4;|-120| ;-(-60) ; Câu 2: Thực hiện các phép tính: a/ 125 – (-75) + 32 - ( 48+32) b/ (27 +65) + (346 -27 – 65 ) c/ 3. (-4)2+3^2. 28 – (- 200) Câu 3: Tìm số nguyên x , biết: a) x – 25 = -17 b) 2x – (-3) = 7 c) / x + 4 = 5 d) / x -8/ = 0 Câu 4: Tìm tất cả các ước và năm bội khác 0 của - 18 Câu 5: Liệt kê và tính tổng các số nguyên x: a) -8 < x < 7 b) |x| < 4 Câu 6: Thực hiện các phép tính: a) 127 – 18 .( 5+4) b) 4 . 5^2- 3 (24 – 9 ) Câu 7: Tính giá trị biểu thức : 3 (x^2 + y^2), bieát x = 6 , y = -8 Câu 8 : Vẽ góc xOy có số đo các trường hợp sau: a/ 400(độ) b/ 900(độ) c/ 135(độ)

Hãy kể tên các di chỉ khảo cổ học ở Việt Nam.Ở Kon Tum có di chỉ khảo cổ học nào? Mong mọi người giải dùm mik

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến