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.
Hoạt động:
Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị false ngay từ đầu thì câu lệnh không được thực hiện lần nào. Nếu biểu thức điều kiện luôn nhận giá trị true thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.
tham khảo
*Hoạt động lặp với số lần biết trước:
+Một ngày ăn 3 bữa cơm
+Một tuần có 7 ngày
+Mỗi ngày tắm một lần
+......
*Hoạt động lặp với số lần chưa biết trước
+Tìm lại quyển vở bị mất
+ Mỗi ngày nói chuyện trong lớp bao nhiêu lần
+ gọi điện thoại cho mẹ lặp đi lặp lại cho đến khi mẹ bắt máy
+mỗi ngày đi bao nhiêu bước
+.....
Thuật toán câu 1:
Bài này dùng mảng A
Đầu tiên cho biến MAX = số đầu tiên trong dãy đó cho vòng for từ 2 đến số chữ số(ví dụ: dãy số là:7 2 8 83 6 8
trong dãy có 6 chữ số). Trong vòng for thực hiện câu lệnh if MAX<A[i] then MAX:=A[i]
Sau khi xong thì cứ hiện thị biến MAX là xong
XIN LỖI nhưng mình không làm sơ đồ được
Chương trình:
Var
A:array[1..100] of integer;
i,n,max:integer;
Begin
Write('nhap do dai cua mang la'); readln(n);
For i:=1 to n do
Begin
Write('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 trong mang la',max);
Readln;
End.
thuật toán câu 2:
Như thuật toán câu 1 vẫn dùng mảng A
Đầu tiên cho vòng for lòng vòng for khác
For i:=1 to n do
For j:=i+1 to n do
Sau khi nhập vòng for j xong thì so sánh nếu a[i]>a[j]
Sau khi so sánh nếu điều kiện đúng thì thực hiện việc đổi giá trị cho 2 biến trên
Và cuối cùng là hiện thị mảng trên
Chương trình:
Var A[1..100] of integer;
n,j,i,sx:integer;
Begin
Write('nhap do dai cua mang'); readln(n);
For i:=1 to n do begin
Write('a[',i,'[=');
Readln(a[i]);
End;
For i:=1 to n do
For j:=i+1 to n do
If a[i]>a[j] then
Begin
SX:=a[i];
A[i]:=a[j];
A[j]:=SX; end;
Writeln('sap xep mang A tang dan');
For i:=1 to n do write(a[i]:4);
Readln;
End.
c