Viết Chương Trình Pascal Tính Tổng Lũy Thừa TLuythua= A^n+b^m+c^p ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

trieuhai65658
Chưa có nhóm

Trả lời
0
Điểm
25
Cảm ơn
0

Tin Học
Lớp 11
60 điểm
trieuhai65658 - 14:50:56 08/04/2022

Viết chương trình pascal tính tổng lũy thừa TLuythua= a^n+b^m+c^p+d^q có sử dụng chương trình con(procedure)

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

NinhNinh1603
Chưa có nhóm

Trả lời
777
Điểm
8785
Cảm ơn
338

NinhNinh1603

Đây là một chuyên gia không còn hoạt động

27/05/2023

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Để tính tổng lũy thừa TLuythua = a^n + b^m + c^p + d^q, ta có thể sử dụng chương trình con để tính lũy thừa của từng số.

program TinhTongLuyThua;var a, n, b, m, c, p, d, q: integer; TLuythua: longint;procedure TinhLuyThua(x, y: integer; var LuyThua: longint);{ Chương trình con tính lũy thừa của số x^y }var i: integer;begin LuyThua := 1; for i := 1 to y do LuyThua := LuyThua * x;end;begin { Nhập giá trị a, n, b, m, c, p, d, q } write('Nhap a: '); readln(a); write('Nhap n: '); readln(n); write('Nhap b: '); readln(b); write('Nhap m: '); readln(m); write('Nhap c: '); readln(c); write('Nhap p: '); readln(p); write('Nhap d: '); readln(d); write('Nhap q: '); readln(q); { Tính tổng lũy thừa } TinhLuyThua(a, n, TLuythua); // tính lũy thừa a^n TinhLuyThua(b, m, TLuythua); // tính lũy thừa b^m TinhLuyThua(c, p, TLuythua); // tính lũy thừa c^p TinhLuyThua(d, q, TLuythua); // tính lũy thừa d^q { In ra tổng lũy thừa } writeln('Tong luy thua = ', TLuythua);end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarGửiHủy

Cảm ơn

Đăng nhập để hỏi chi tiết avatar

trumtinhoc
Chưa có nhóm

Trả lời
1986
Điểm
472
Cảm ơn
1609

trumtinhoc

08/04/2022

uses crt;

var a,b,c,d,n,m,p,q: integer;

tong: int64;

procedure nhap;

begin

clrscr;

write ('nhap a,b,c,d: '); readln (a,b,c,d);

write ('nhap n,m,p,q: '); readln (n,m,p,q);

end;

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

var i,s: longint;

begin

s:=1;

for i:=1 to y do s:=s*x;

luythua:=s;

end;

Procedure xulivaxuat;

begin

tong:=luythua(a,n)+luythua(b,m)+luythua(c,p)+luythua(d,q);

writeln ('Tong la: ',tong);

readln;

end;

begin

nhap;

xulivaxuat;

end.

$#Trumtinhoc$

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy