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.
d: \(=\left|x-2y\right|+\left(x\cdot x\right)^2-2\cdot cos\left(x\right)\)
mình chuyển luôn nhé
a, (x*x+y)/(x*y)
b, 1/2 sin( sqrt(sqr(x)+sqr(y)))
chỗ này bạn làm dấu căn mình k hiểu mấy
c, sqrt(2*x)+sqrt(2*x)+sqrt(2*x)
hoặc là: 3*sqrt(2*x)
1:
Biểu thức toán học: \(\frac{a+b}{a-b}\)
Biểu thức pascal: (a+b)/(a-b)
2:
Biểu thức toán học: \(S=pi.r^2\)
Biểu thức pascal: S=pi*sqr(r)
3:
Biểu thức toán học: \(V=\sqrt{2}GH\)
Biểu thức pascal: V=sqrt(2)*g*h
4:
Biểu thức toán học: \(\frac{\frac{4x^2+2y}{2-3a}}{4a+b}\)
Biểu thức pascal: (\(4\cdot x^2+2\cdot y\))/(2-3*a)/(4*a+b)
5:
Biểu thức toán học: \(\sqrt{3a+b}>5\left(a+b\right)^2\)
Biểu thức pascal:\(\sqrt{3\cdot a+b}>5\cdot\left(a+b\right)^2\)
6:
Biểu thức toán học: \(\frac{\frac{5a^2+b}{6-5a}}{6a+b}\)
Biểu thức pascal: (5*sqr(a)+b)/(6-5*a)/(6*a+b)
7:
Biểu thức toán học: \(\left|a+b\right|>0\)
Biểu thức pascal: abs(a+b)>0
8:
Biểu thức toán học: \(sin\left(x^2\right)+cos\left(x^2\right)=1\)
Biểu thức pascal: sin(sqr(x))+cos(sqr(x))=1
9:
Biểu thức toán học: \(\frac{x+y}{2z}\)
Biểu thức pascal: (x+y)/(2*z)
Câu 1: Để tính diện tích của hình thang, lệnh gán nào sau đây là đúng?
\n\nA. S: (a+b)*H/2; B. S=(a+b)*H/2; C. S:=(a+b)*H/2 ;D. S;= (a+b)*H/2;
\n\nCâu 2: Biến T có thể nhận các giá trị 5,5; 7,3; 8,9; 34; 12. Ta có thể khai báo T thuộc kiểu dữ liệu gì?
\n\nA. Byte B. Word C. Real D. Integer
\n\nCâu 3: Để nhập giá trị vào và gán cho biến x ta thực hiện lệnh nào sau đây ?
\n\nA. Write(x); B. Real(x); C. Writeln(x); D. Readln(x);
\n\nCâu 4: Trong Pascal, biểu thức nào biểu diễn biểu thức tính chu vi hình chữ nhật với 2 cạnh a và b?
\n\nA. a*b B. a+b*2 C. (a+b)*2 D. a*b*2
\n\nCâu 5: Biểu thức Logic nào sau đây dùng để kiểm tra N là số chẵn hay lẽ?
\n\nA. N mod 2 <> 0 B. N div 2 <> 0 C. N > 0 D. N – 2 > 0
\n
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
Program day_nghich_the;
uses crt;
const fn = 'nghich.inp';
gn = 'nghich.out';
nmax=10000;
var f,g:text;
n,i,j,dem:0..nmax;
a,b,luu:array[1..nmax] of 0..nmax;
procedure nhap;
begin fillchar(a,sizeof(a),0);
b:=a;
assign(f,fn);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
write(f);
for i:=1 to n do read(f,b[i]);
close(f);
end;
procedure tim_b;
begin
fillchar(luu,sizeof(luu),0);
for i:=1 to n do
begin
dem:=0;
for j:=i -1 downto 1 do
if a[i]<a[j] then inc(dem);
luu[a[i]]:=dem;
end;
for i:=1 to n do write(g,luu[i]:2);
writeln(g); writeln(g);
end;
procedure tim_a;
begin
fillchar(luu,sizeof(luu),0);
for i:=1 to n do
if b[i]>n-i then exit else
begin
j:=0;
dem:=0;
repeat inc(dem);
if luu[dem]=0 then j:=j+1;
until j>b[i];
luu[dem]:=i;
end;
for i:=1 to n do
write(g,luu[i]:2);
end;
BEGIN
nhap;
assign(g,gn);
rewrite(g);
tim_b;
tim_a;
close(g);
END.
Bài 2:
uses crt;
var a:array[1..199]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xuat-------------------------------}
for i:=1 to n do write(a[i]:4);
readln;
end.
Bài 3:
uses crt;
var a:array[1..199]of integer;
i,n,x,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{----------------------------xu-ly-------------------------------}
write('x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]=x then inc(dem);
writeln('trong day co ',dem,' gia tri ',x);
readln;
end.
1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.
2:
uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if (n>=5) then
begin
writeln('cac so nguyen le trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap n lon hon hoac bang 5');
readln;
end.
3:
uses crt;
var m,n,i:integer;
s:longint;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if (m>0) and (n>0) then
begin
if m<n then
begin
s:=1;
for i:=m to n do
if i mod 2=0 then s:=s*i;
writeln('tich cac so chan trong pham vi tu ',m,' toi ',n,' la: ',s);
end
else writeln('vui long nhap m nho hon n');
end
else writeln('vui long nhap hai so duong');
readln;
end.
4:
uses crt;
var x,y,i,j:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>0) and (y>0) then
begin
if x<y then
begin
writeln('day cac so nguyen duong trong pham vi tu ',x,' toi ',y,' la:');
for i:=x to y do
write(i:4);
writeln;
writeln('day cac so nguyen duong trong pham vi tu ',y,' toi ',x,' la:');
for j:=y downto x do
write(j:4);
end
else writeln('vui long nhap x nho hon y');
end
else writeln('vui long nhap hai so duong');
readln;
end.
đề bài yêu cầu j vậy bạn