Trang chủ Tin Học Lớp 8 các số 4,9,16,25,..gọi là các số chính phương.Cho trước số...

các số 4,9,16,25,..gọi là các số chính phương.Cho trước số nguyên dương n hãy tìm tất cả các cặp số a,b(1<=a<=b<=n) thỏa mãn điều kiện a^2+b^2 là một

Câu hỏi :

các số 4,9,16,25,..gọi là các số chính phương.Cho trước số nguyên dương n hãy tìm tất cả các cặp số a,b(1<=a<=b<=n) thỏa mãn điều kiện a^2+b^2 là một số chính phương. dữ liệu: vào file văn bản CP.INP gồm duy nhất số n(1<=n<=100). kết quả: ghi ra file văn bản CP.OUT mỗi dòng ghi một cặp số tìm được theo thứ tự từ điển tăng ví dụ CP.INP CP.OUT 10 3 4 6 8

Lời giải 1 :

var n,i,j: longint;

begin

        assign(input,"cp.inp") reset(input);

        assign(output,"cp.out") rewrite(output);

        read(n);

        for i:=1 to n-1 do

        begin

              for j:=i+1 to n do

              begin

                     if (trunc(sqrt(i*i+j*j))=sqrt(i*i+j*j)) then

                              writeln(i," ",j);

              end;

        end;

end.

Thảo luận

-- ủa mà ngoài dấu nháy đơn sai j nữa?
-- Dấu chấm phẩy
-- Dòng 3 4 thiếu.
-- sai dấu nháy đơn vs chấm phẩy chỗ assign thôi mà=(
-- Không đâu.
-- n = 100 không đúng gì hết.
-- + thêm m chỉ nhập n từ bàn phím và in i,j ra màn hình thoi
-- thôi t ở ẩn đây:) ko chs pas nx

Lời giải 2 :

uses crt;
var i,j,n: integer;
    fi,fo: text;
begin
    assign(fi,'CP.INP'); reset(fi);
    assign(fo,'CP.OUT'); rewrite(fo);
    read(fi,n); close(fi);
    for i:=1 to n do for j:=i+1 to n do if round(sqrt(i*i+j*j))=sqrt(i*i+j*j) then writeln(fo,i,' ',j);
    close(fo);
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ự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe 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