- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Kiểm tra số chính phương trong mảng 1 chiều



Trước hết, chúng ta sẽ tìm hiểu khái niệm về số chính phương. Số chính phương là gì? Số chính phương là một số mà tự nó là căn bậc hai của một số tự nhiên khác, hay nói rõ hơn thì số chính phương là bình phương của một số tự nhiên.
Ví dụ: 289 là một số chính phương vì 289 = 17 bình phương.

Thuật toán Pascal dưới đây sẽ giúp tìm số chính phương trong mảng 1 chiều.

  uses crt;
  type ArrInt = array[1..250] of integer;  
  Var n,i,x : integer;
         a: ArrInt;
  BEGIN
   clrscr;
   write('Nhap so phan tu: ');
   readln(n);
   for i:=1 to n do
   begin
     write('Phan tu thu ',i,'= ');
     readln(a[i]);
   end;
   writeln('Cac so chinh phuong co trong mang:');
   for i:=1 to n do
   begin
    x:=trunc(sqrt(a[i]));
     if sqr(x)=a[i] then
       write(a[i]:4);
   end;
   readln;
  END.  

Trong đó lệnh hàm sqrt để lấy căn và hàm trunc để lấy phần nguyên.



Nặc danh nói...

Hello there! I know this is kinda off topic but I was
wondering which blog platform are you using for this website?
I'm getting sick and tired of Wordpress because I've had problems with hackers and I'm looking at alternatives for another platform. I would be great if you could point me in the direction of a good platform.

Also visit my web site: cash advance franchise
Also see my webpage > payday loan no faxing


14:33 Ngày 23 tháng 02 năm 2013
Nặc danh nói...

If you desire to increase your experience just keep visiting this web page and be updated with the most up-to-date
news posted here.

Also visit my weblog; chapter 7 bankruptcy florida


02:02 Ngày 16 tháng 03 năm 2013
Nặc danh nói...

hay lắm , tks very much


19:56 Ngày 23 tháng 05 năm 2013
Nặc danh nói...

!!!!!!!!!!


13:36 Ngày 25 tháng 05 năm 2013
Phẩm Nguyễn Văn nói...

Thuật toán kiểm tra số chính phương không hay lắm.
Thay thế:
If trunc(sqrt(A[i])=sqrt(A[i]) then write(A[i]:4);


21:18 Ngày 31 tháng 05 năm 2013
Nặc danh nói...

Trường hợp mảng nhập vào mà không có số chính phương thì câu lệnh xuất như thế nào vậy ạ?


15:06 Ngày 29 tháng 06 năm 2013
Nặc danh nói...

ArrInt nghĩa là j` zậy


12:40 Ngày 26 tháng 11 năm 2013
Nặc danh nói...

qua dai va kho hieu


14:46 Ngày 02 tháng 12 năm 2013
Nặc danh nói...

Khai báo gián tiếp ArrInt thì phải


16:58 Ngày 12 tháng 12 năm 2013
Nặc danh nói...

Ariirt gi d0 la cai ten.


21:30 Ngày 17 tháng 12 năm 2013
Nặc danh nói...

ArrInt là tên biến ở đây tác giả viết tắt của từ ArrayInteger nghĩa là khai báo đây là mảng kiểu dữ liệu là số nguyên :D thay vì viết ArrInt chúng ta có thể viết bằng tên biến mà chúng ta đặt cho mảng đó VD MangN , ArrNguyen , ...


23:45 Ngày 21 tháng 01 năm 2014
Unknown nói...

May quá biết làm rồi. Thank


20:22 Ngày 06 tháng 02 năm 2014

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.