Bài 6. Câu lệnh điều kiện

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

m,n o dau ra?

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

thiếu điều kiện:

hoàn chỉnh là thế này

if c^2=a^2+b^2 or a^2=c^2+b^ or b^2=a^2+c^2 then writeln('tam giac do co mot goc vuong') else writeln('tam giac do khong co goc vuong')

còn thiếu:

if sqr(a)=sqr(b)+sqr(c) or sqr(b)=sqr(a)+sqr(c) or sqr(c)=sqr(a)+sqr(b) then writeln('vuong') else writeln('khong vuong');

1) Như tên gọi của nó, câu lệnh lặp với số lần lặp cho trước chỉ thị cho máy tính thực hiện một lệnh hoặc một nhóm lệnh với số lần đã được xác định từ trước, còn với câu lệnh lặp với số lần lặp chưa biết trước thì số lần lặp chưa được xác định trước.
+) Trong câu lệnh lặp với số lần cho trước, điều kiện là giá trị của một biến đếm có giá trị nguyên đã đạt được giá trị lớn nhất hay chưa, còn trong câu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quát hơn nhiều, có thể là kiểm tra một giá trị của một số thực, cũng có thể là một điều kiện tổng quát khác.
+) Trong câu lệnh lặp với số lần cho trước, câu lệnh được thực hiện ít nhất một lần, sau đó kiểm tra điều kiện. Trong câu lệnh lặp với số lần chưa xác định trước, trước hết điều kiện được kiểm tra. Nếu điều kiện được thỏa mãn, câu lệnh mới được thực hiện. Do đó có thể có trường hợp câu lệnh hoàn toàn không được thực hiện. nguồn:violet

2) var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

3) var i,n:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to 200 do s:=s+i;

writeln(s);

readln;

end.

4) Var i,n:integer; s:real;

begin

readln(n); s:=1;

for i:=1 to 30 do s:=s+i;

writeln(s);

end.

6) var i,n,x,k:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to n do

for x:=1 to n do

s:=x*i;

writeln(s);

end.

5) Var i,n:integer; s:longint;

begin

readln(n); s:=1;

for i:=1 to n do s:=s*i;

writeln(s);

end.

k thấy j hết bn ơi

để nghiêng , mà lại mờ quá:))

câu lênh điều kiện dạng đủ là:

if <điều kiện> then <câu lệnh> else <câu lệnh> ;

ví dụ:

if 5<8 then write('so 5 nho hon') else ('so 8 nho hon');

if 6<3 then write('so 6 nho hon') else('so 3 nho hon');

if <điều kiện> then <câu lệnh> else <câu lệnh>

giúp với