Giải hệ phương trình tuyến tính: ax + by = m cx + dy = n Program GIAI_HE_HAI_AN; Uses crt; Var a,b,c,d,m,n: real; dx,dy,dd: real; BEGIN Clrscr; Writeln(‘GIAI HE HAI AN: ‘); Writeln(‘———————————-‘); Write(‘Nhap a=’); readln(a); Write(‘Nhap b=’); readln(b); Write(‘Nhap c=’); readln(c); Write(‘Nhap d=’); readln(d); Write(‘Nhap m=’); readln(m); Write(‘Nhap n=’); readln(n); dd:=a*d-b*c; dx:=m*d-b*n; dy:=a*n-c*m; IF dd=0 then IF (dx=0) And (dy=0) then Writeln(‘He vo so nghiem hoac vo nghiem’) Else writeln(‘He vo nghiem’) Else Begin Write(‘He co nghiem: ‘); Writeln(‘x=’,dx/dd: 4: 2,’ va y=’,dy/dd: 4: 2); End; Readln End. Một số hàm và lệnh pascal cơ bản. Pascal tính diện…
Tác giả: Đình Trọng
Đình Trọng
٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶
1. Viết chương trình giải phương trình bậc 2 (ax2+ bx + c =0) Chú ý: Thuật toán trên không xét các trường hợp a, b, c bằng 0 như code ở dưới, code thì đầy đủ hơn. 2. Code pascal giải PT bậc II Program GIAI_PHUONG_TRINH_BACII; Uses CRT; {Su dung thu vien CRT} Var a,b,c,D,x,x1,x2: real; Begin Clrscr; {xoa man hình, neu khong USES CRT thi lenh nay se bi bao loi} Writeln(‘GIAI PHUONG TRINH BAC II: ‘); Writeln(‘——————————————-‘); Write(‘Nhap he so a=’); readln(a); {Viet thong bao nhap a vaf cho nhap he so a vao tu ban phim…
Viết chương trình giải phương trình bậc nhất ax+b=0 Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln(‘GIAI PHUONG TRINH BAC NHAT: AX + B=0’); Writeln(‘————————————————————‘); Write (‘Nhap a= ‘); readln(a); Write (‘Nhap b= ‘); readln(b); If(a=0) then If(b=0) then Writeln(‘ Phuong trinh co vo so nghiem’) Else writeln(‘ Phuong tring vo nghiem’) Else Writeln(‘Phuong trinh co nghiem x=’,-b/a: 4: 2); Readln End. Các bạn có để ý dòng Readln ở gần End. không có dấu ; không, thông thường dòng lệnh cuối cùng trước End. không cần phải ; cũng không bị báo lỗi.
Kiểm tra 3 cạnh tam giác. Đề bài: Viết chương trình nhập ba số dương bất kỳ, kiểm tra ba số vừa nhập có phải là ba cạnh của tam giác không? Nếu phải thì cho biết chu vi và diện tích của tam giác đó. Hướng dẫn: Trong tam giác thì tổng 2 cạnh lớn cạnh còn lại và khi đã biết chi vi của tam giác thì bạn dùng công thức Heron để tính diện tích của nó. với p là nửa chu vi của tam giác: Công thức Heron còn có thể được viết: hoặc Program Kiem_tra_tam_giac;…
Đề bài: Nhập vào tuổi của cha và con hãy cho biết sao bao nhiêu năm thì tuổi cha gấp đôi tuổi con ? Program tinh_tuoi_cha_va_con; Uses crt; Var tcha,tcon,i:byte; Begin clrscr; write(‘tuoi cua cha :’); readln(tcha); write(‘tuoi cua con :’); readln(tcon); {i la so nam, se tang len tu tu} i:=0; While tcha < > 2*tcon do begin tcha:=tcha+1; tcon:=tcon+1; i:=i+1; end; writeln(‘Sau ‘,i,’ nam cha ‘,tcha, ‘ gap 2 tuoi con ‘,tcon); readln; End. Mở rộng : Các bạn nên kiểm tra dữ liệu người dùng nhập vào (ví dụ tuổi cha nhỏ hơn tuổi con hoặc tuổi…
Vẽ hình âm dương Ban đầu chúng ta sẽ di chuyển rùa về bên trái bằng lệnh SETX -50 và vẽ 1 nửa vòng tròn sau đó vẽ con mắt trắng các bạn hãy để ý quá trình làm việc được ghi lại bằng file ảnh ở trên, tuy nhiên phần ảnh minh họa đó không có phần vẽ mắt. Đây là code đầy đủ : To amduong cs pu setx -50 lt 90 pd arc 180 50 PU RT 90 BK 30 PD CIRCLE 10 PU home setx 50 rt 90 pd arc 180 50 pu LT 90 FD…
Bấm dây cáp mạng là bước quan trọng để đưa dây cáp mạng vào sử dụng. Việc bấm dây cáp mạng cũng phải tuân thủ một số tiêu chuẩn nhất định để đảm bảo truyền tải tín hiệu mạng tốt nhất. Bước 1: Chuẩn bị bấm dây cáp mạng Để bấm đầu dây mạng ta cần những dụng cụ và thiết bị sau: + Kìm bấm mạng: Loại 3 chức năng và phải đúng loại theo loại cáp vì kích thước đầu mạng khác nhau tùy theo loại cáp. Vd: cáp CAT5 nhỏ hơn cáp CAT6 nên đầu mạng CAT5…
Adapter mạng của bất cứ một máy tính nào đó đều đó một địa chỉ MAC duy nhất. Giống như vân tay ở người, địa chỉ MAC giúp phân biệt các máy tính với nhau. Ngoài ra địa chỉ MAC còn được sử dụng cho nhiều mục đích khác; như một số mạng dùng địa chỉ MAC để cho phép kết nối thiết bị với mạng, đây là một cách khá hữu hiệu trong bảo mật mạng. Mặc dù vậy vẫn có cách có thể thay đổi các địa chỉ MAC này, tiện ích miễn phíTechnitium MAC Address Changer có…
1. Tiệc tùng với đồng nghiệp về nhà muộn, vợ không cho vào phòng bắt ngủ sofa. Tôi điên tiết quát:” Nhà tôi tôi thích ngủ đâu thì ngủ. Ko ngủ sofa đấy, ngủ đất thì đã làm sao!” 2. “Sao anh lại chen ngang bất lịch sự thế?” “Vì tôi là người vô văn hoá.” 3.”Sao ngồi ăn cơm một mình thế kia?” “Chứ nửa mình thì ăn kiểu gì?” 4.”Cậu có ý đồ gì thế?” -“Cậu đoán xem.” -“Mình đoán ra rồi.” -“Là gì?” -“Cậu đoán xem.” 5. -“Anh có thể mời em ăn tối không?” -“Tôi không…
Khi chúng ta gọi thợ sửa ống nước tới để lấy chiếc vớ trẻ em đang kẹt trong cống, chúng ta sẽ hỏi: “Tiền công bao nhiêu một giờ?”. Chúng ta không hỏi thợ sửa ống nước câu hỏi “trên trời” như: “Nếu bạn là một lon súp, bạn muốn mình là loại súp nào?” Người thợ sẽ cúp máy ngay khi chúng ta làm vậy. Đó là một sự xúc phạm khi bạn hỏi người khác những câu hỏi ngu ngốc kiểu như “Trong rất nhiều ứng cử viên tài năng, tại sao chúng tôi phải tuyển bạn?” và…
Dưới đây sẽ là một màn hỏi đáp khiến bạn “tỉnh” cả người, vì nhận ra mình ngốc đến nỗi cứ lặp đi lặp lại những sai lầm mà bản thân thừa biết là chỉ có kẻ ngốc mới làm. Hãy cùng xem và trả lời tám câu hỏi ngu ngốc đáng để bạn suy nghĩ dưới đây bạn nhé. 1️⃣Câu hỏi thứ nhất: Nếu như gần nhà bạn có một nhà hàng, thức ăn vừa mắc vừa dở, trên bàn còn có mấy con gián, vậy bạn có vì nó rất gần và thuận tiện mà tới lần 1,…
“Bài không tên cuối cùng” ra đời năm 1965, nhưng nó được viết năm 1964 lúc đó Vũ Thành An được 21 tuổi, bạn gái ông đang theo học tại trường Luật. Hai người yêu nhau, nhưng lúc đó ông mới chỉ là một thanh niên chưa có tương lai gì. Bạn gái ông đã nhiều lần hứa rằng cho dù thế nào thì vẫn theo ông đi hết cuộc đời, tuy nhiên trước sức ép của gia đình, bạn gái ông đã nói lời chia tay ông, cuộc tình cuối cùng bị tan vỡ. Sau khi tiễn người con…