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ạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
cách thực hiện:
Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.
Vd: Câu lệnh sau:uses crt;
var i,n: integer;
begin
clrscr;
writeln('nhap i: '); readln(i);
writeln(nhap n: '); readln(n);
if i>5 then writeln(i) else writeln(n);
{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}
Cú pháp: if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
Vd: If a[i] mod 2=0 then inc(dem)
else inc(dem1);
Tham khảo
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
Cú pháp
If < điều kiện> then < câu lệnh>;
Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình
Cú pháp của câu lệnh điều kiện:
if <điều kiện> do <câu lệnh 1>
else <câu lệnh 2>;
Cú pháp của câu lệnh lặp với số lần chưa biết trước:
While <điều kiện> do
<câu lệnh>;
Câu 2:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Câu 3:
Dạng thiếu: if <điều kiện> then <câu lệnh>;
Dạng đủ: if <điều kiện> then <câu lệnh>
else <câu lệnh>;
Câu 4:
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')
else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');
readln;
end.
Câu 5:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')
else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')
else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')
else if (a=b) and (b=c) then writeln('Tam giac deu')
else writeln('Day khong phai la tam giac deu hay tam giac can');
readln;
end.