Tính x^n với n là số nguyên không âm trong Pascal

Tính x^n với n là số nguyên không âm trong Pascal

Đề bài: Tính x^n với n là số nguyên không âm trong Pascal

Đáp án

Program TINH_X_LUY_THUA_N;

Uses crt;

Var i,n,x:integer;

lt:real;

Begin

   Writeln(' TINH X LUY THUA N:');

   Writeln('----------------------------------');

   Write('Nhap x ='); readln(x);

   Write('Nhap n ='); readln(n);

   lt:=1;

   For i:=1 to n do

     lt:=lt*x;

    Writeln(x, '^',n,' = ',lt:4:2);

    Readln;

End.
Bạn thấy bài viết này như thế nào?: 
Average: 10 (1 vote)

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
12 + 5 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
“Mổ xẻ” nguyên nhân vấn nạn tin nhắn rác
“Mổ xẻ” nguyên nhân vấn nạn tin nhắn rác sms

Tỉ lệ ăn chia thấp, sức ép từ doanh thu và sự bất cập từ việc quản lí thuê bao di động trả trước… là ngọn nguồn khiến nạn tin nhắn rác, tin nhắn lừa đảo hoạt động “sôi động” như chưa từng có chế tài xử lí.

BadBIOS - malware kỳ lạ phá hoại phần sụn máy tính và lây nhiễm qua loa/mic?
BadBIOS - malware kỳ lạ phá hoại phần sụn máy tính và lây nhiễm qua loa/mic?

3 năm trước, chuyên gia bảo mật Dragos Ruiu đã phát hiện ra một điều gì đó bất bình thường với chiếc máy tính MacBook Air của mình khi ông đang làm việc trong phòng thí nghiệm

Giới thiệu sơ lược Apache Hadoop
Giới thiệu sơ lược Apache Hadoop

Các cỗ máy tìm kiếm như Google chọn lọc thông tin và trả về kết quả trong tích tắc. Kỹ thuật thường được sử dụng là chia nhỏ nhiệm vụ(job) để hàng loạt máy tính cùng nhau thực hiện. Kỹ thuật này cũng được biết đến với tên gọi Cloud computing. Tìm hiểu hadoop sẽ giúp chúng ta làm quen với Cloud computing.