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);
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
Lỗi cú pháp là lỗi do viết chương trình, câu lệnh sai cú pháp dẫn đến chương trình không hoạt động. Hầu hết các ngôn ngữ lập trình đều có công cụ hỗ trợ hạn chế, phát hiện lỗi cú pháp.
Lỗi logic là lỗi xảy ra trong trường hợp chương trình hoạt động nhưng đưa ra kết quả sai. Sử dụng bộ dữ liệu thử là cách thường được sử dụng để phát hiện lỗi logic trong chương trình.
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if (n mod i=0) and (i%2=1) then write(i:4);
readln;
end.
Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Chú thích:
For, to, do: là từ khóa.
Biến đếm: thuộc kiểu dữ liệu số nguyên.
Giá trị đầu, giá trị cuối: là giá trị nguyên.
Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.
Tham khảo
-Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
-Giải thích các thành phần:
FOR, TO, DO: là từ khóa.
-Biến đếm: thuộc kiểu dữ liệu số nguyên.
-Giá trị đầu, giá trị cuối: là giá trị nguyên.
-Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.
bạn ơi câu a của bạn ý j ạ mk giải dc hết hỏi xíu thui
ý của câu a đầu là j ??
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
Program tim_gia_tri_lon_nhat thiếu ;
=> Program tim_gia_tri_lon_nhat;
clrscr thiếu;
=> clrscr;
Các câu ở dưới bạn cũng thêm dấu; nhé
Lưu ý: lệnh readln không cần ; cũng chạy được chương trình ( Mình làm rồi, nên bạn có thể tin mình )
Bạn chú ý dấu; nha. Nếu ko có là sai hết chương trình đó
Ah, writeln.... thì trong ngoặc bạn chỉ cần ( '..... ' ) vậy thôi nhá.
Không phải là ( " '....... ' " ) là sai. Bạn chú ý hơn trong khi viết chương trình nhé