Trang chủ Tin Học Lớp 7 PHÒNG GIÁO DỤC VÀ ĐÀO TẠO THÀNH PHỦ ĐÔNG HÀ...

PHÒNG GIÁO DỤC VÀ ĐÀO TẠO THÀNH PHỦ ĐÔNG HÀ ĐỀ CHÍNH THỨC Tên bài Đổi bạn Đài phun nước Học nhóm Cây tre ĐỀ THI HỌC SINH GIỎI VĂN HÓA CẤP THCS NĂM HỌC 2022

Câu hỏi :

giúp mình mấy bài này với ạ pascal

image

Lời giải 1 :

program DoiBan;

var

  h, m, h1, m1, h2, m2, hh, mm : integer;

begin

  assign(input, 'DOIBAN.INP');

  assign(output, 'DOIBAN.OUT');

  read(h, m, h1, m1, h2, m2);

  if h1 > h2 then h1:=h2;

  if (h1 = h2) and (m1 > m2) then m1:=m2;

  if h <= h1 then

    hh := h1 - h

  else

    hh := h1 - h + 24;

  

  if m <= m1 then

    mm := m1 - m

  else

    begin

      mm := m1 - m + 60;

      hh := hh - 1;

    end;

  writeln(hh, ' ', mm);   

end.

Thảo luận

Lời giải 2 :

program DoiBan;
uses crt;
var
h,m,h1,m1,h2,m2,hn,mn,i,k: integer;
begin
clrscr;
read(h, m);
read(h1, m1);
read(h2, m2);
h1:=i;
if h1<h2 then i:=h2;
hn:=i;
m1:=k;
if m1<m2 then k:=m2;
mn:=k;
if h<=hn then hn:=hn-h else hn:=hn-h+24;
if m<=mn then mn:=mn-m else 
begin
hn:=hn-1;
mn:=mn-m+60;
end;
write(hn,' ',mn);
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 7

Lớp 7 - Năm thứ hai ở cấp trung học cơ sở, một cuồng quay mới lại đến vẫn bước tiếp trên đường đời học sinh. Học tập vẫn là nhiệm vụ chính!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK