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.
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);
*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â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.
Câu lệnh điều kiện:
Dạng thiếu:
If < điều kiện > then < câu lệnh >;
Dạng đầy đủ:
If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;
Lệnh lặp:
Biết trước:
For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;
Chưa biết trước:
while < điều kiện > do < câu lệnh >;
Công thức đọc tên là gì mình ko hiểu @@
Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:
Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:
Cú pháp: while <điều kiện> do <câu lệnh>;
TRong đó: điều kiện thường là phép so sánh
câu lệnh có thể là đơn hoặc ghép
while do là các từ khóa
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
Điều kiện dạng đủ mà bạn!