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
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.
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.