Câu 1: viết cú pháp của câu lệnh lặp vs số lần chưa bt trước? Nêu nguyên lý hoạt động
Câu 2: vẽ sơ đồ cấu trúc rẽ nhánh dạng đủ và cú pháp tương ứng
Câu 3: viết ct nhập N số nguyên vào từ bàn phím và in ra màn hình số lớn nhất (MAX) của dãy số đó
Câu 1: viết cú pháp của câu lệnh lặp vs số lần chưa bt trước? Nêu nguyên lý hoạt động
Câu 2: vẽ sơ đồ cấu trúc rẽ nhánh dạng đủ và cú pháp tương ứng
Câu 3: viết ct nhập N số nguyên vào từ bàn phím và in ra màn hình số lớn nhất (MAX) của dãy số đó
câu 1:
-cú pháp:
While <điều kiện> do<câu lệnh>;
trong đó:
– điều kiện thường là một phép so sánh
– câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.
-Hoạt động
B1: kiểm trả điều kiện
B2: nếu điều kiện sai, câu lệnh sai bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.
câu 2:
-cú pháp:
If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
xem hình nha bạn
câu 3:
program ct;
uses crt;
var i,n,Max:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln(‘gia tri lon nhat la:’,Max);
readln
end.
Câu 1:
Cú pháp:
while <điều kiện> do <câu lệnh>;
Hoạt động:
– Kiểm tra điều kiện
– Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp
– Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện
Câu 2:
Cú pháp:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
Sơ đồ: ~Xem hình~
Câu 3:
program ct;
uses crt;
var A:array[1..100] of integer;
i,n,Max:integer;
begin clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
Max:=A[1];
for i:=1 to n do
if A[i]>Max then Max:=A[i];
writeln(‘So lon nhat la: ‘,Max);
readln;
end.
Học tốt!