Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
var i,n,tb :integer;
begin
readln(n);
tb:=0;
for i:=1 to n do tb:=tb+1;
writeln(tb);
end.
program CTTTB;
uses crt;
var TB,x:real; n,y: integer;
begin
Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);
for y:=1 to n do
begin Write('Nhap so thu',y);Readln(x);
TB:=TB+x;
end;
TB:=TB/n;
Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);
Readln;
End.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:3:0);
end.
chỗ a,a,a,...,a sửa thành a0,a1,a2,...,an nhé
Lời giải :
program hotrotinhoc ;
var dathuc,n,x,i : integer ;
begin
write('Nhap gia tri cua n='); readln(n);
dathuc := 0;
for a:= 1 to n do
for x:= 1 to n do dathuc:= dathuc+a*(x*x) ;
write('P(x)=',dathuc);
readln
end.
for a:=1 to n do
a ở đâu ạ?Tin học [Hỗ trợ]
Nếu a là 1 chữ số cố định sao bạn là a1;a2;....
program luythua;
uses crt;
var i,x,n: integer; P: longint;
A: array [1..100] of 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
clrscr;
write ('nhap n = '); readln (n);
for i:= 0 to n do begin write ('A[',i,']='); readln (A[i]); end;
write ('x='); readln (x);
P:=0;
for i:= 0 to n do P:=P+(A[i]*luythua(x,i));
write ('tich la: ',P);
READLN
END.
Mình sẽ nói qua lại thuật toán giúp bạn .
{ Nhập mảng }
trước hết bạn cần tìm được quy luật của i=x;x2;x3;...;xn
sau đó P(x)=A[i]*x (x cần tăng theo thứ tự cuat bậc)
program luythua;
uses crt;
var i,x,n: integer; P: longint;
A: array [1..100] of 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
clrscr;
write ('nhap n = '); readln (n);
for i:= 0 to n do begin write ('A[',i,']='); readln (A[i]); end;
write ('x='); readln (x);
P:=0;
for i:= 0 to n do P:=P+(A[i]*luythua(x,i));
write ('tich la: ',P);
READLN
END.