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)
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.
Bài làm của bạn @lê chí hiếu(bạn được 2,1 điểm)
bài 1
program PTYN;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,m,n:integer;
f1,f2:text;
Max, Min:Integer;
Kt:boolean;
Procedure XuatMang;
begin
For i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:4);
Writeln;
end;
end;
Procedure MaxCot(l:Integer);
var p:Integer;
begin
Max:=A[1,l];
For p:=2 to n do
if A[p,l]>Max then Max:=A[p,l];
end;
Procedure MinHang(k:Integer);
var o:integer;
begin
Min:=A[k,1];
For o:=2 to n do
if A[k,o]<Min then Min:=A[k,o];
end;
begin
clrscr;
assign(f1,'ptyn.inp');
assign(f2,'ptyn.out');
reset(f1);rewrite(f2);
while not EOF(f1) do
begin
kt:=false;
readln(f1,n,m);
for i:=1 to n do
begin
for j:=1 to m do
Read(f1,a[i,j]);
readln(f1);
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
MaxCot(j);
MinHang(i);
if Max=Min then
begin
Writeln(f2,'(',i,',',j,')');
kt:=true;
end;
end;
end;
If kt=false then Writeln(f2,'Khong co ptu yen ngua.');
end;
Close(f1); Close(f2);
Readln
End.
Bài 4
const fi='tvh.inp';
fo='tvh.out';
var n,d,dem,sl,s2cs,s3cs,s4cs,s5cs,s6cs,s7cs,k,i,d1:longint;
st,st1,stk:string;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
str(n,st);
d:=length(st);
case d of
1: write(9);
2: begin
sl:=n-9;
dem:=9+sl*2;
end;
3: begin
s2cs:=(99-10)+1;
s3cs:=n-99;
dem:=9+s2cs*2+s3cs*3;
end;
4: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=n-999;
dem:=9+s2cs*2+s3cs*3+s4cs*4;
end;
5: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=n-9999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5;
end;
6: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=n-99999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6;
end;
7: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=(999999-1000000)+1;
s7cs:=n-999999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6+s7cs*7;
end;
end;
if k<=dem then
begin
i:=1;
d1:=0;
repeat
str(i,st1);
d1:=d1+length(st1);
i:=i+1;
until d1>=k;
stk:=st1[length(st1)-(d1-k)];
writeln(f2,stk);
end;
close(f1);
close(f2);
end.
Bài 5
PROGRAM robot;
VAR A:ARRAY[0..30,0..30] OF BYTE;
F:ARRAY[0..30,0..30] OF LONGINT;
m,n:INTEGER;
PROCEDURE Enter;
VAR i,j:INTEGER;
BEGIN
readln(m,n);
FOR i:=1 TO m DO
BEGIN
FOR j:=1 TO n DO read(A[i,j]);
readln;
END;
FOR i:=0 TO m DO A[i,0]:=-1;
FOR j:=0 TO n DO A[0,j]:=-1;
END;
FUNCTION Max(a,b:LONGINT):LONGINT;
BEGINIF (a>b) THEN Max:=a ELSE Max:=b;
END;
PROCEDURE Optimize;
VAR i,j:INTEGER;
BEGIN
FOR i:=0 TO m DO F[i,0]:=-1;
FOR j:=0 TO n DO F[0,j]:=-1;
F[0,1]:=0;
FOR i:=1 TO m DO
FOR j:=1 TO n DO
F[i,j]:=2*Max(F[i,j-1],F[i-1,j])+A[i,j];
END;
PROCEDURE Trace(i,j:INTEGER);
BEGINIF (i=1) AND (j=1) THEN
writeln(F[m,n])
ELSE
BEGIN
IF F[i,j-1]>F[i-1,j] THEN
Trace(i,j-1)
ELSE
Trace(i-1,j);
writeln(i,' ',j);
END;
END;
BEGIN
Assign(Input,'Robot.inp'); Reset(Input);
Assign(Output,'Robot.out');Rewrite(Output);
Enter;
Optimize;
Trace(m,n);
close(Input);
close(Output);
END.
Em hiểu,nhưng cách anh chỉ đến 8 chữ số là cùng.
Cách em thì chỉ cần lấy int64(em dùng luôn mấy biến real vì bự hơn) thì chấp 10^30
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)