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
s1= n*(n+1)/2
s2= (s1)^2
S3 ( giải = 500es)
1->M
1->A
0->Y
Y+A/M->Y: A/M->A : M+1->M
Ấn n lần kết quả là Y
program giaitin_hoc24;
uses crt ;
var a,n : real;
A:real;
begin
clrscr;
write(' a,n : ');
readln(a,n);
A:=A+ axp(n) ;
write('A= ', A:6:2);
readln
end.
program bai1;
var i,a,n,s,t:longint;
f1,f2:text;
function amux(a,x:longint):longint;
var s,i:longint;
begin
s:1;
for i:=1 to x do
s:=s*a;
amux:=s;
end;
begin
assign(f1,'bai1.inp';reset(f1);
assign(f2,'bai1.out');rewrite(f2);
read(f1,a);readln(f1,n);
s:=0;
for i:=1 to n do
begin
t:=amux(a,i);
s:=s+t;
end;
write(f1,s);
close(f1);close(f2);
end.
program tinh_gia_tri_bieu_thuc;
uses crt;
var n,j:integer;
R:extended;
begin
clrscr;
R:=0;
write('Nhap so mu n=');readln(n);
for j:=1 to n do
R:=R+ exp(n*ln(j));
writeln('Gia tri cua R=',R:1:0);
end;
readln;
end.
tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ
program P;
var x, y, P: integer;
begin
writeln('nhap x va y = ');
readln(x,y);
P:=x*x+y*y+x*y;
writeln('gia tri bieu thuc = ',P);
readln
end.
Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.
1.Viết chương trình tính: xa
2.Viết chương trình tính: S=1+2n+3n+....+nn
mong các bạn giúp đỡ.......
Program bai1;
uses crt;
var i,x,a,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^a');
write('X=');readln(x);
write('a=');readln(a);
kq:=1;
for i:=1 to a do
kq:=kq*x;
writeln(x,'^',a,'=',kq:4);
readln;
end.
bài 2:
Program bai2;
uses crt;
var n,i: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+exp(n*ln(i));
writeln('tong =',s :4:2);
readln;
end.
Lời giải:
Bài 1 :
program hotrotinhoc ;
var i,x : integer ;
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
while x<>0 do
begin
write('x='); readln(x);
if x mod 2=0 then writeln('Day la so chan') else writeln('Day la so le');
end;
readln
end.
program bai1;
var i,n,s,t:longint;
function tt(a:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to a do
s:=s*a;
tt:=s;
end;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
begin
t:=tt(i);
s:=s+t;
end;
write('Tong la: ',t);
readln
end.
haha,mình lộn:v