Bài toán tính x^y với x, y là số thực trong Pascal

Bài toán tính x^y với x, y là số thực trong Pascal

Tính x^y ( Với x, y là số thực).

Đáp án

Program X_LUYTHUA_Y;

Uses crt;

Var x,y,z:real;

Begin

Writeln(‘TINH X LUY THUA Y:’);

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

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

Write('nhap y = '); readln(y);

If x>=0 then

   Begin

         z:=exp(y*ln(x));

         Writeln('x ^ y = ',z:4:2);

   End

   Else

   Writeln('Khong tinh duoc do x la so am');

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.
3 + 3 =
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

 
Tìm hiểu lịch sử các version của Turbo Pascal
Tìm hiểu lịch sử các version của Turbo Pascal

Version 7.0: Cuối năm 1992, hãng Borland lại đưa ra version 7.0 để chạy trong nhiều hệ điều hành kể cả Windows

Tại sao Đỗ Nhật Nam không thể trở thành những Ngô Bảo Châu tiếp theo
Tại sao Đỗ Nhật Nam không thể trở thành Ngô Bảo Châu tiếp theo?

Tại sao Đỗ Nhật Nam không thể trở thành những Ngô Bảo Châu tiếp theo. Hay chúng ta phải cay đắng thừa nhận: thiên tài sẽ không xuất hiện ở Việt Nam. Ai cho họ xuất hiện?

Roadmap list để phát triển Drupal Commerce 2.x
Roadmap list cho sự phát triển Drupal Commerce 2.x

You have unlimited raw material to build whatever you can imagine, and if you screw up you can just knock it over (to the delight of your children) and start again.