K
Khách

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.

12 tháng 5 2021

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn.

 

Cú pháp: While <điều kiện> do <câu lệnh>

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ị sai 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ị ĐÚNG thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn. Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp.

12 tháng 5 2021

C

12 tháng 5 2021

Máy sẽ hiểu là:

nếu 45 chia 3 dư 0 thì x sẽ cộng thêm 1, mà x ban đầu bằng 5 nên sau khi chạy chương trình x sẽ là 6

=> Chọn C

Câu 4: 

x=16

Câu 5: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

 write(a[i]:4);

readln;

end.

12 tháng 5 2021

Hãy cho bt đâu là lệnh lặp for...do để in chữ O

A for i:=1.5 to 10.5 do writeln('o');

B for i:=1 to 10 do writeln('O');

C for i:=100 to 1 do writeln('o')

D for i:=1 to 10 do; writeln('o')

Chọn B

12 tháng 5 2021

mình cần gấp lắm giúp mình vớibucminh

12 tháng 5 2021

program Bang_cuu_chuong ;

ues crt ;

var N , i : interger ;

begin

clrscr ;

write ('Nhap so N = ' ) ; Readln ( N) ;

writeln ;

writeln ( 'Bang nhan 5 ', N) ;

writeln ;

for i :=1 to 10 do writeln ( N,'x',i:2,'=',N*i:3 ) ;

readln 

end .

 khi chạy ấn số 5 

Câu 1: Hoạt động lặp nào dưới đây lặp với số lần biết trước?A. Đánh răng mỗi ngày 3 lầnB. Nhặt từng cọng rau cho đến khi xong.C. Gọi điện thoại 20 phút 1 lần cho đến khi có người nhấc máy.D. Học cho đến khi thuộc bàiCâu 2: Trong câu lệnh lặp               for i: = 0 to 10 do                 begin         …….    End;   Câu lệnh ghép sau từ khoá “do” được thực hiện bao nhiêu lần?A. 0                                B....
Đọc tiếp

Câu 1: Hoạt động lặp nào dưới đây lặp với số lần biết trước?

A. Đánh răng mỗi ngày 3 lần

B. Nhặt từng cọng rau cho đến khi xong.

C. Gọi điện thoại 20 phút 1 lần cho đến khi có người nhấc máy.

D. Học cho đến khi thuộc bài

Câu 2: Trong câu lệnh lặp 

              for i: = 0 to 10 do

                 begin         …….    End;  

Câu lệnh ghép sau từ khoá “do” được thực hiện bao nhiêu lần?

A. 0                                B. 9                      C. 10                    D. 11

Câu 3: Đoạn chương trình  sau đây thực hiện bao nhiêu lần lặp ?

       S:= 0; n:=0; while S <= 10 do n:= n + 1; S:= S + n ;

A.  0 lần                B. 1 lần                 C. 10 lần               D. Lặp vô hạn lần

Câu 4: Câu lệnh GotoXY(a,b) có tác dụng gì?

A. Đưa con trỏ về cột b, hàng a                    B. Đưa con trỏ về cột a hàng b

C. Đưa con trỏ về cột X, hàng Y                   D. Đưa con trỏ về cột Y, hàng X

Câu 5:  Thuật toán sau thực hiện bao nhiêu vòng lặp?

Bước 1. S ← 10, n←  0

Bước 2. Nếu S >= 10, chuyển tới bước 4.

Bước 3. n <   n + 3, S <   S - n và quay lại bước 2.

Bước 4. Thông báo S và kết thúc thuật toán

A.  0 lần                B. 1 lần                 C. 10 lần               D. Lặp vô hạn lần

Câu 6:  Pascal sử dụng câu lệnh nào sau đây để lặp với số lần chưa biết trước ?

A. if...then                                                   B. if...then...else            

C. While…do                                              D. For ... do

6

Câu 1: A

Câu 2: D

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If then...
Đọc tiếp

BÀI KIỂM TRA HỌC KÌ II - NĂM HỌC 2020-2021 *Bắt buộc TRẮC NGHIỆM Hãy chọn một phương án đúng nhất! Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình: * 5 điểm Chỉ viết số 3.5 mà thôi Viết số 1 rồi viết số 3.5 Giá trị biến đếm. Không thực hiện được vì giá trị cuối không phải là số nguyên. Cấu trúc rẽ nhánh dạng đầy đủ có dạng: * 5 điểm If then else ; If then else ; If then else ; If then ; else ; Mục khác: Nêu lợi ích của việc khai báo và sử dụng biến mảng: * 5 điểm Có thể thay thế nhiều câu lệnh nhập In dữ liệu ra màn hình bằng một câu lệnh lặp. Tất cả đều sai. Câu a và b đúng. Trong các từ cho dưới đây, đâu là từ khoá: * 5 điểm writeln readln write program Mục khác: Trong Pascal, câu lệnh lặp với số lần chưa biết trước có dạng: * 5 điểm While do ; While do; While do While do ; Mục khác: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng: * 5 điểm Kiểu dữ liệu có thể là integer hoặc real. Cả ba ý trên. Chỉ số đầu nhỏ hơn chỉ số cuối. Chỉ số đầu và chỉ số cuối là 2 số nguyên. Để khai báo A là một biến mảng có 10 phần tử kiểu nguyên, cách khai báo nào sau đây là đúng nhất: * 5 điểm Var A: array[1....10] of real; Var A: array[1..10] of integer; Var A: array[1..10] of real; Var A = array[1..10] of integer; Tên nào hợp lệ trong các tên sau: * 5 điểm 2a var CHUvi chu vi Hãy cho biết đâu là phần khai báo biến mảng A gồm 20 phần tử thuộc kiểu dữ liệu số nguyên: * 5 điểm var A: array[1..20] of real; var A: array[1..20] of integer; var A: array[11..30] of integer; var A: array[11..30] of real; Trong Pascal, cách khai báo mảng đúng là: * 5 điểm Tên mảng : array[: ] of ; Tên mảng : array[.. ] : ; Tên mảng : array[, ] of ; Tên mảng : array[.. ] of ; Câu lệnh nào sau đây là câu lệnh nhập cho phần tử thứ 10 của biến mảng A?: * 5 điểm Readln(A[k]); Readln(A10); Readln(A[10]); Readln(A[i]); Trong TP, biểu thức (10*((42 mod 5) + 19))/6 cho kết quả bằng: * 5 điểm 35 25 20 30 Để chạy chương trình TP ta sử dụng tổ hợp phím: * 5 điểm F + 9 Ctrl + F9 Alt + F9 Ctrl + S Mục khác: Lệnh lặp nào sau đây là đúng: * 5 điểm For i := 100 to 1 do writeln('A'); For i := 1.5 to 10.5 do writeln('A'); For i = 1 to 10 do writeln('A'); For i := 1 to 100 do writeln('A'); Cách khai báo nào là đúng trong các khai báo sau: * 5 điểm Var A: array[5 . . 10,5] of real; Var A: array[4. . 8] of integer; Var A: array[10,5 . . 13] of integer; Var A: array[3,4 . . 4,8] of real; Hãy cho biết đâu là lệnh lặp For .. do để in chữ O: * 5 điểm For i:=1.5 to 10.5 do writeln(‘O’); For i:=100 to 1 do writeln(‘O’); For i:=1 to 10 do; writeln(‘O’; For i:=1 to 10 do writeln(‘O’); Cho biết kết quả của T sau khi thực hiện đoạn chương trình sau: T:=0; For i:=1 to 5 do T:=T+i; * 5 điểm T = 5 T = 1 T = 15 T = 0 Mục khác: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) * 5 điểm 1 lần 2 lần 12 lần Không lần nào Câu lệnh dùng để khai báo biến x có kiểu dữ liệu là kiểu số nguyên là: * 5 điểm Const x: integer; Const x: real; Var x: integer; Var x: real; Chọn khai báo hợp lệ: * 5 điểm Var a,b: array[1 .. n] of real; Var a,b: array[1 : n] of Integer; Var a,b: array[1 .. 100] of real; Var a,b: array[1 … 100] of real;

2

Trắc nghiệm: Không thực hiện được vì giá trị cuối không phải là số nguyên

Cấu trúc rẻ nhánh dạng đầy đủ có dạng

If then else;

12 tháng 5 2021

S bằng 28

n bằng 7

12 tháng 5 2021

program tinh_tong;

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 200 do

if i mod 2=0 then t:=t+i;

write(t);

readln;

end.

12 tháng 5 2021

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=200) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.

12 tháng 5 2021

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc:real;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i;=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1];min:=a[1];

for i;1= to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln((max+min)/2:4:2);

readln;

end.