VCT tính P = An * Xn + An-1 * Xn-1 + ... + A1 * X + A0

VCT tính P = An * Xn + An-1 * Xn-1 + ... + A1 * X + A0

VCT tính P = An * Xn + An-1 * Xn-1 + ... + A1 * X + A0

Đáp án

program luythua;

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
 N,i, j,x, k, Sum:Integer;

function luythua(x,n: integer) : longint;

var i: integer; T:longint;

begin

    T:=1;

    for i:= 1 to n do T:=T*x;

    luythua :=T;

end;
    
    
Begin
    {Nhap mang}
    Write('Nhap N='); Readln(N);
    For i:=1 To N Do
        Begin
            Write('A[',i,']='); Readln(A[i]);
        End;
    
    {Nhap X}
    write ('Nhap x='); readln (x);    

    {tong day so}    
    Sum:= 0;
    For k:=N + 1 downto i Do
        Sum := Sum + (A[k] * luythua(x, k));
        
    {In kết quả ra màn hình}
    Writeln('Tong cua day so: ', Sum);

    Readln;
 
 End.

Hình minh họa

Bạn thấy bài viết này như thế nào?: 
Average: 10 (3 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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.

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

 
Window 8 chưa thực sự thu hút các doanh nghiệp

Window 8 chưa thực sự thu hút các doanh nghiệp

Nhiều doanh nghiệp cho rằng Windows 8 phù hợp với người tiêu dùng cá nhân hơn, các thiết bị chạy Windows 8 cũng không dễ quản lí hơn so với iPad.

Tìm hiểu một vài điểm cấu hình của Varnish rất hay cho Drupal 8

Tìm hiểu một vài điểm cấu hình của Varnish rất hay cho Drupal 8

In this article we would like to share some use cases and recipes for configuring Varnish.

Anonymous bác bỏ "tin vịt" đánh sập Facebook ngày 28/1

Anonymous bác bỏ "tin vịt" đánh sập Facebook ngày 28/1

Một tài khoản Twitter được xem là chính thức của Anonymous cho biết nhóm hacker này sẽ không tấn công Facebook vào thứ 7 này như các trang tin đã đưa.

Công ty diệt chuột T&C

 

Diet con trung