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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
H
25 tháng 4 2019
1, var a:array[1..32000] of integer;
i,n,tong:integer;
tbc:real;
begin
write('nhap do dai cua day so:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:=1 to n do tong:=tong+a[i];
tbc:=tong/n;
write('trung binh cong la:',tbc);
readln
end.
2, tb=42
1 tháng 7 2020
Vòng lặp 1: a=2⇒i=3⇒s=3+3=6
Vòng lặp 2: a=3⇒i=3⇒s=6+3=9
Vòng lặp 3: a=4⇒i=3⇒s=9+3=12
Vòng lặp 4: a=5⇒i=3⇒s=12+3=15
Vậy: s=15
ML
28 tháng 4 2020
Chú ý :Lần sau bạn hỏi nhớ ghi A,B,C,D và giãn câu hỏi ra nhé.
Trong câu lệnh lặp: For i := 50 to 100 do j:= j + 2; câu lệnh lặp được thực hiện bao nhiêu lần?
49
50
51
52
Sau khi thực hiện đoạn chương trình sau,j:= 0; For i:= 1 to 5 do j:= j + 2; giá trị của biến j bằng bao nhiêu ?
8
10
12
14
Cho đoạn chương trình: J:= 0; For i:= 1 to 5 do J:= j + i;Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? *
1 điểm
12
22
15
42
Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào? *
1 điểm
Tăng 1
Tăng 2
Tăng 3
Tăng 4
Câu lệnh Pascal nào sau đây hợp lệ. *
1 điểm
For i:=1 to 10.5 do Write(‘Toi yeu tin hoc’);
For i:=’A’ to ‘Z’ do Write(‘Tôi yêu tin học’);
For i:=1 to 10 do Write(Toi yeu tin hoc);
For i:=’A’ to ‘AB’ do Write(‘Toi yeu tin hoc’);
Trong lệnh lặp For – do (chọn phương án đúng nhất) *
1 điểm
Giá trị đầu phải nhỏ hơn giá trị cuối
Giá trị đầu phải bằng giá trị cuối
Giá trị đầu phải lớn hơn giá trị cuối
Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
Lệnh lặp For ... to ... do được sử dụng khi: (chọn phương án đúng nhất) *
Lặp với số lần chưa biết trước
Lặp với số lần biết trước
Lặp với số lần có thể biết trước
Lặp với số lần không bao giờ biết trước
Với ngôn ngữ lập trình Pascal câu lệnh vòng lặp For i:=1 to 10 do x:=x+1; thì biến đếm i phải được khai báo là kiểu dữ liệu: *
Real
String
Integer
Cả 3 câu trên đều đúng
Kiểu dữ liệu của biến đếm trong lệnh lặp For ... to ... do *
1 điểm
Không cần phải xác định kiểu dữ liệu
Cùng kiểu với các biến trong câu lệnh
Chỉ cần khác kiểu với giá trị đầu
Cả 3 câu trên đều đúng
Cùng kiểu với giá trị đầu và giá trị cuối
17 tháng 12 2019
xin lỗi ví máy tính mik bị lỗi và mik sửa câu 1 nha :
c1 : 1tam giác cân làm từ các dấu *(số lượng như 1. phía trên)
2 câu kia mik ko cần nữa nhé
các bạn giúp mik nha!!!!!!!!!!!!!!!
22 tháng 3 2020
a)
*Các lỗi sai là:
-Sai thứ tự các lệnh (begin trước, uses crt sau)
-Program vd: thiếu dấu ;
-Writeln('Chao cac ban!'): thiếu dấu ;
-Sai thứ tự các lệnh(end trước readln sau)
-Readln: thiếu ;
*Sửa lại:
Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.
b)
*Các lỗi sai là:
-Var a,b:=integer; Sai vì có dấu =
-Const c:=3; Sai vì có dấu :
-a:=200: Sai vì thiếu dấu ;
-b:=a/c: Biến b Sai kiểu dữ liệu;
-Writeln(b): Sai vì thiếu dấu ;
-Readln: Sai vì thiếu dấu ;
*Sửa lại:
Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.
19 tháng 3 2020
soluong: Biến
Dongia: Biến
thanhtien: Biến
phi: Hằng
Tinh_tien: Không phải hằng hoặc biến
19 tháng 3 2020
|
|
Hằng |
Biến |
Không phải hằng hoặc biến |
|
soluong |
|
x |
|
|
Dongia |
|
x |
|
|
thanhtien |
|
x |
|
|
phi |
x |
|
|
|
10000 |
|
|
x |
|
Tinh_tien |
|
|
x |
GD
29 tháng 6 2024
+thứ nhất, chỗ S:=a*b bạn thiếu ";"
+thứ hai, chỗ readln trước "end." thì ko đc thêm ";" vào sau "readln"
18 tháng 3 2020
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
19 tháng 3 2020
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt