Câu lệnh lặp với số lần chưa biết trước While…Do:
Cú pháp: While <điều kiện>Do ;
Trong đó:
Các bước thực hiện của câu lệnh lặp While…Do:
Gợi ý làm bài:
Ý tưởng:
Ta sử dụng biến Dem và câu lệnh lặp While…Do để nhập và cộng dần các số vào một biến kiểu số thực Tong cho đến khi nhập đủ n số.
Xác định bài toán:
Thuật toán:
Hình 1. Sơ đồ khối mô tả thuật toán tính trung bình N số thực
Chương trình:
Program tinh_trung_binh;
Var N, Dem: integer;
X, TB: real;
Begin
Clrscr;
Dem:=0;
TB:=0;
Writeln(‘Nhap cac so can tinh N =’);
Readln(N);
While Dem < N do
Begin
Dem:= Dem + 1;
Writeln(‘Nhap so thu’, Dem,’=’);
Readln(x);
Tb:= TB + x;
End;
TB:=TB/n;
Witeln(‘Trung binh của’,N,’so là =’, TB:10:3);
Readln;
End.
Gợi ý làm bài:
Ý tưởng: Kiểm tra lần lượt N có chia hết cho các số tự nhiên \(2 \leq i \leq N-1\) hay không. Kiểm tra tính chia hết bằng phép chia lấy phần dư (mod).
Xác định bài toán:
Xây dựng thuật toán:
Chương trình:
Uses Crt;
Var N, i:integer;
Begin
clrscr;
write('Nhap vao mot so nguyen: ');
readln(N);
If N<=1 then
writeln('N khong la so nguyen to')
else
begin
i:=2;
while (N mod i<>0) do
i:=i+1;
if i=N then
writeln(N,' la so nguyen to!')
else
writeln(N,' khong phai la so nguyen to!');
end;
readln;
end.
Sau khi học xong Bài thực hành 6: Sử dụng lệnh lặp While…Do, các em cần ghi nhớ về các nội dung:
1. Các hoạt động lặp với số lần chưa biết trước phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai.
2. Câu lệnh lặp với số lần lặp chưa biết trước:
a) Trường hợp câu lênh đơn:
WHILE < điều kiện > DO < câu lệnh >;
b) Trường hợp câu lệnh ghép:
WHILE <điều kiện> DO
Begin
câu lệnh 1;
câu lệnh 2; …
End;
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 8 Bài thực hành 6 cực hay có đáp án và lời giải chi tiết.
Câu 3-Câu 5: Xem thêm phần trắc nghiệm để làm thử Online
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học HOC247 sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 8 HOCTAP247
Copyright © 2021 HOCTAP247