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.

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

uses crt;

var n,i:integer;

begin

clrscr;

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

if n mod 2<>0 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else begin

for i:=1 to n do

  if i mod 2=0 then write(i:4);

end;

readln;

end.

Có thể dùng cấu trúc lặp để thay cho cấu trúc rẽ nhánh trong mô tả thuật toán chứ hình như là không có điều ngược lại

16 tháng 12 2021

Có thể dùng cấu trúc lặp để thay cho cấu trúc rẽ nhánh trong mô tả thuật toán chứ hình như là không có điều ngược lại

17 tháng 10 2017

Đáp án đúng : D

20 tháng 12 2021

Đáp án đúng : D

2 bài toán có dùng cấu trúc lặp:

-Xuất 20 số bắt đầu từ số 1

-Tính tổng 10 số bắt đầu từ số 1

Thuật toán

-Tính tổng 10 số bắt đầu từ số 1

+Bước 1: t←0; a←1; i←1;

+Bước 2: t←t+a; 

+Bước 3: a←a+1;

+Bước 4: i←i+1;

+Bước 5: Nếu i<=10 thì quay lại bước 2

+Bước 6: Xuất t

+Bước 7: Kết thúc

18 tháng 3 2022

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

18 tháng 3 2022

;v từ từ hình như viết sai bảng 

Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trịCâu 2: Cấu trúc lặp thường có mấy dạng?A. 3                                  B. 4                                  C. 2                                  D. 1Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?A. While –...
Đọc tiếp

Câu 1: Điền vào dấu (…): Mảng một chiều là một dãy hữu hạn các phần tử có cùng (…)

A. Thông tin                    B. Dữ liệu                        C. Kiểu                            D. Giá trị

Câu 2: Cấu trúc lặp thường có mấy dạng?

A. 3                                  B. 4                                  C. 2                                  D. 1

Câu 3: Để tính S=1+22+32+…+n2 cho đến khi S>1000 em sẽ sử dụng lệnh lặp nào?

A. While – do                  B. If – Then                     C. For – do                      D. Cả ba đều đúng.

Câu 4: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử?            Var a:array [0..10] of byte;

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

Câu 5: Để lưu trữ dãy số thực A1, A2, … A50 thì khai báo nào sau đây là đúng?

A. Var A:=array[1..50] of real;                                B. Var A:array[1..50] of word;

C. Var A:array[1..30] of extended;                         D. Var A:array[1..50] of Real;

Câu 6: Cho đoạn lệnh: S:= 0; For i:=1 to 10 do S:=S+i; kết quả S sau khi thực hiện là bao nhiêu?

A. 10                                B. 55                                C. 1                                  D. 50

Câu 7: Trong câu lệnh while: While <điều kiện> do <câu lệnh>; khi nào kết thúc lặp?

A. Điều kiện đúng           B. Điều kiện sai               C. Cả A và B đúng          D. Cả A và B sai.

Câu 8: Cho lệnh lặp: While (abs(x) >= 5) do write(x); lệnh write(x) được lặp lại bao nhiêu lần?

A. Lặp vô hạn                  B. 5 lần                            C. 6 lần.                           D. Chưa biết

Câu 9: Lệnh lặp nào sau đây là đúng.

A. For i:=1 two 10 do S:=S+i;                                 B. For i:=1 to 10 do S:=S+i;

C. For i=1 to 10 do S:=S+i;                                     D. For i:=1 to -10 do S:=S+i;

Câu 10: Có Var A:Array[1..100] of byte; Để tham chiếu đến phần tử 5 của mảng, ta viết thế nào?

A. A<5>                          B. A(5)                            C. A{5}                           D. A[5]

1

Câu 1: C

Câu 2: C

Câu 3: D

Câu 4: C

Câu 5: D

Câu 6: B
Câu 7: B

Câu 9: B

Câu 10: D