1. Hãy dành vài giây Đăng nhập hoặc Đăng ký tài khoản để truy cập và sử dụng TBit hiệu quả nhất.
    Ẩn thông báo
  2. Bạn hãy like trang Facebook của TBit để nhận được tin tức công nghệ nhanh nhất từ chúng tôi.
    Ẩn thông báo

Nhờ anh em trong group hỗ trợ làm giúp các bài này

Thảo luận trong 'Lập trình Pascal' bắt đầu bởi Badboytxhn, 24/5/19.

0/5, 0 phiếu

    1. Badboytxhn TBit-Member

      IMG_0872.JPG IMG_0872.JPG
       

      Các file đính kèm:

      pngo103 thích bài này.
      Đang tải...
    2. Phạm Đạt

      Phạm Đạt TBit-Mod Thành viên BQT

      Điểm:
      815ß
      Mình viết code bằng C++ và ý tưởng. Nếu bạn dùng pascal thì viết lại chương trình theo ý tưởng nhé. Ngoài ra phần output và input bạn tự thêm vào theo đề.

      Mã (C++):
      1. #include <bits/stdc++.h>
      2. using namespace std;
      3.  
      4. int main()
      5. {
      6.     int n;
      7.     //cout << "Nhap N: ";
      8.     cin >> n;
      9.     int m=n;
      10.     while(m>10)
      11.     {
      12.         m=0;
      13.         while(n>0)
      14.         {
      15.             m = m + pow((n%10),2);
      16.             n/=10;
      17.         }
      18.         n=m;
      19.     }
      20.     cout << m;
      21.     return 0;
      22. }
      View and run: https://ideone.com/bJpAZE

      * Ý tưởng:
      - Đặt một biến m là biến tạm để lưu tổng kết quả phân tích của từng giai đoạn.
      - Sử dụng 2 vòng lặp while. Vòng 1 để lặp đến khi m là một số bé hơn 10. Vòng 2 lặp đến khi phân tích xong số có 2 chữ số.
      - Bắt đầu vòng while. Ta gán m=0 và chạy vòng while thứ 2.
      - Tại đây ta tính tổng bình phương các chữ số của n. Bằng cách
      + Chia lấy dư n với 10, bình phương lên vào cộng nó vào biến m
      + Chia lấy phần nguyên của n với 10, ta sẽ được chữ số ở hàng tiếp theo. Và lặp lại cho đến khi n không còn lớn hơn 0.
      - Sau đó ta lại gán n=m. Như vậy ta sẽ tiếp tục giai đoạn tính bình phương các chữ số nếu n>10.
      - Tiếp tục như vậy cho đến khi nó là số có 1 chữ số. Ta được kết quả

      Chúc bạn thành công !
       
      Admin thích bài này.

Chia sẻ trang này

Đang tải...