m, n ở đâu vậy bn?

Theo ý hiểu của mình:

+) Readln; là một câu lệnh đặc biệt, ko có biến để nhận ở đằng sau, vị trí ở cuối chương trình. Công dụng ra khi ta chạy chương trình, kết quả sẽ hiện ra màn hình.

+)Readln(danh sách biến); theo kiểu sau khi khai báo biến xong, mình phải dùng đến lệnh này để sử dụng biến đó.

Ví dụ:

uses crt;

var a,b : real; (đây là khai báo biến)

BEGIN

clrscr;

write('nhap vao so a'); (a); (đây là in ra màn hình dòng "nhap vao so a" sau đó nó cho mình nhập vao biến a.)

write('nhap vao so b'); (b);

.........

Chỉ theo ý hiểu, có thể không đúng về lý thuyết nhưng sẽ đúng về mặt thực hành, hoặc ít nhất mk nghĩ vậy^^

Thanks

(a-b)² = a²-2ab+b²

= a²+2ab+b² -4ab

⁼(a+b)²- 4ab

=8² - 4.10

=64-40

=24

thanks

Program ba_canh_cua_tam_giac;

uses crt;

var a,b,c: real;

BEGIN

Write('nhap do dai canh a'); Readln(a);

Write('nhap do dai canh b'); Readln(b);

Write('nhap do dai canh c'); Readln(c);

If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')

else write('do khong la do dai cua mot tam giac');

Readln;

END.

Thanks

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

\(\frac{1}{21}+\frac{1}{28}+\frac{1}{36}+....+\frac{2}{x\left(x+1\right)}=\frac{2}{9}\)

\(\frac{2}{6.7}+\frac{2}{7.8}+\frac{2}{8.9}+.....+\frac{2}{x\left(x+1\right)}=\frac{2}{9}\)

\(2\left(\frac{1}{6}-\frac{1}{7}+\frac{1}{7}-\frac{1}{8}+\frac{1}{8}-\frac{1}{9}+....+\frac{1}{x}-\frac{1}{x+1}\right)=\frac{2}{9}\)

\(\frac{1}{6}-\frac{1}{x+1}=\frac{2}{9}:2=\frac{1}{9}\)

\(\frac{1}{x+1}=\frac{1}{6}-\frac{1}{9}=\frac{1}{18}\)

=> x+1 = 18

=> x = 18 - 1

=> x = 17

Có hai bước tạo ra một chương trình máy tính, đó là:

b1, Viết chương trình bằng ngôn ngữ lập trình.

b2, dịch sang ngôn ngữ máy

thanks

\(\Rightarrow\left(\frac{\frac{31}{36}}{\frac{11}{9}:4-\frac{3}{4}}:31\right).x=\frac{-1}{16}\Rightarrow\left(\frac{\frac{31}{36}}{\frac{-4}{9}}:31\right)x=-\frac{1}{16}\Rightarrow\left(-\frac{31}{16}:31\right)x=-\frac{1}{16}\Rightarrow-\frac{1}{16}x=-\frac{1}{16}\Rightarrow x=1\)

18=2*3²; 33=3*11

BC(18;33)=2*3²*11=198

=>Các số thỏa mãn đề là: 0;198;396

Program bai1;

Uses crt;

var W,H2,BMI: real;

BEGIN

clrscr;

Write('nhap can nang (W):'); Readln(W);

Write('nhap chieu cao(H2):') Readln(H2);

BMI:= W/H2

Writeln('chi so co the duoc tinh theo can nang va chieu cao la:',BMI);

END.

thanks