Em hãy xác định các câu lệnh sau đây đúng hay sai? Nếu sai hãy giải thích tại sao?a) For i:=150 to 1 do writeln(‘A’);...

Nguyễn Lê Phước Thịnh

30 tháng 4 2022

a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối

b: Sai vì chỉ số đầu, chỉ số cuối là số thực

c: Sai vì chỗ end thiếu chấm phẩy

d: Sai vì chỉ số đầu lớn hơn chỉ số cuối

e: Sai vì chỉ số đầu và chỉ số cuối là số thực

d: Đúng

Đúng(2)

quân nguyễn

30 tháng 4 2022

cảm ơn bạn nha

Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!

Vy Nguyễn Khánh

24 tháng 6 2020

Cách khai báo sau đây là đúng hay sai? Nếu sai hãy sửa lại:

Var x:array [10,13] of integer;

S:=0; n:=0; while S < for do n:=n + 1; S:= s+n

For i:=1 to 10 do; writeln ('A')

Var x: real; begin for x:=1 to 10 do writeln ('A'); end.

Phan Tiến Đạt

25 tháng 6 2020

A/ Sai.

Sửa: Var x:array[10..13] of integer;

B/ Sai.

Sửa: S:= 0; n:= 0; while S < 50 do

begin n:= n + 1; S:= S + n; end;

C/ Sai.

Sửa: for i:= 1 to 10 do writeln('A');

D/ Sai.

Sửa x: integer; begin for x:= 1 to 10 do writeln('A'); end.

trịnh minh anh

19 tháng 4 2022

Xác định lỗi sai và sửa lại
a) Var X : Array [1;50] of integer;
b) Var X : Array [5..50.5] of real;
c) For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A');
e) While x:=10 do x:=x+5;

Cách khai báo biến mảng sau đây đúng hay sai? Nếu sai giải thích tại sao?a) Var X: Array[10 , 13] of real;b) Var X: Array[3..4.8] of integer;c) Var X: Array(10..1) of integer;d) Var X: Array[-7..7] of...

Minh Lệ

19 tháng 4 2022

a) Var X : Array [1;50] of integer; (sai cách khai báo mảng)

-> Var X : Array [1..50] of integer;
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)

-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)

-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)

->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)

-> While x=10 do x:=x+5;

Đúng(1)

Ngọc Trâm

27 tháng 4 2023

Biên Dg

4 tháng 5 2023

đây đúng hay sai? Nếu sai hãy giải thích tại sao? a) For i:=150 to 1 do writeln(‘A’); b) For i:=1.5 to 30.5 do writeln(‘B’); c) S:=0;n:=0; While S

Ngô Bá Hùng

4 tháng 5 2023

a) Đúng. Vòng lặp for được sử dụng để lặp lại việc xuất chuỗi 'A' từ i=150 đến i=1.

b) Sai. Vòng lặp for yêu cầu chỉ sử dụng các giá trị nguyên, không phải là các giá trị số thực => không thể sử dụng i làm biến đếm trong vòng lặp này. (bạn có thể sử dụng một biến số nguyên khác để đếm số lần lặp lại, hoặc sử dụng vòng lặp while)

c) Sai. Câu lệnh While cần có một điều kiện để kiểm tra, trong khi trong câu lệnh này không có điều kiện nào để kiểm tra. Nếu không có điều kiện để kiểm tra, vòng lặp sẽ lặp vô hạn và không bao giờ dừng lại.

Sách Giáo Khoa

23 tháng 3 2018

Các khai báo biến mảng sau đây trong Pascal đúng hay sai:

a) var X: Array[10,13] Of Integer;

b) var X: Array[5..10.5] Of Real;

c) var X: Array[3.4..4.8] Of Integer;

d) var X: Array[10..1] Of Integer;

e) var X: Array[4..10] Of Real;

Nguyễn Đạo

23 tháng 3 2018

d,e ko sai

Diệp Bích Thiên

24 tháng 3 2018

a, sai vì dấu "," phải được thay bằng ".."

b, c, sai vì chỉ số đầu và cuối đều phải kiểu nguyên

d, sai vì chỉ số đầu phải nhỏ hơn chỉ số cuối

e, đúng

Câu 1: Mỗi câu lệnh dưới đây đều có lỗi sai, em hãy sửa lại cho đúnga) For i:= 17 to 109 do writeln (‘a);’b) For i:= 1 to 10 do x=x+1;c) S:= 7While S:= 15 do n:=n+s;d) Var a:=array [1…100] of real;Câu 2: Viết chương trình Pascal tính và in giá trị của tổng S ra màn hình vớiS= 1000+1001+1002+…+1021Câu 3: Nêu cú pháp sử dụng lệnh For…do lệnh While…do:Câu 4: Nêu cú pháp khai báo biến mảng trong chương trình Pascal:Giải...

Lý Quốc Huy

18 tháng 4 2021

nguyễn an phát

19 tháng 4 2021

câu 1:

a)for i:=17 to 109 do writeln('a');

b)for i:=1 to 10 do x:=x+1;

c)s:=7;

while s<=15 do

begin

n:=n+s;

s:=s+1;

end;

d)var a:array[1..100] of real;

câu 2:

program tihn_tong;

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;s:=1000;

while i<=21 do

begin

s:=s+1000+i;

i:=i+1;

end;

writeln(s);

readln;

end.

câu 3:

cú pháp của lệnh for...to...do:

for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>

cú pháp của lệnh while...do:

while<điều kiện>do<công việc>

câu 4:

cú pháp khai báo biến mang trong chương trình pascal:

khai báo trực tiếp:

var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>

khai báo gián tiếp:

type <biến mang> =array[chỉ số]of <kiểu dữ liệu>

Nguyễn Lê Phước Thịnh

19 tháng 4 2021

Câu 1:

a) for i:=17 to 109 do

writeln('a');

ai làm giúp mik vs ạ mình sắp thi rCâu 1: Chọn khai báo hợp lệ:A. Var a, b: array[1 .. n] of real; B. Var a, b: array[1 : n] of integer;C. Var a, b: array[1 .. 100] of real; D. Var a, b: array[1 … 100] of real;Câu 2: 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?A. Không thực hiện được vì giá trị cuối không phải là số nguyên.B. Giá trị biến đếm.C. Viết số 1 rồi viết số 3.5D. Chỉ viết số 3.5 mà thôiCâu 3: Trong...

Hoàng Vũ

11 tháng 5 2022

ai làm giúp mik vs ạ mình sắp thi r

Câu 1: Chọn khai báo hợp lệ:
A. Var a, b: array[1 .. n] of real; B. Var a, b: array[1 : n] of integer;
C. Var a, b: array[1 .. 100] of real; D. Var a, b: array[1 … 100] of real;
Câu 2: 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?
A. Không thực hiện được vì giá trị cuối không phải là số nguyên.
B. Giá trị biến đếm.
C. Viết số 1 rồi viết số 3.5
D. Chỉ viết số 3.5 mà thôi
Câu 3: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); lệnh Write(‘A’) được thực
hiện bao nhiêu lần (bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 1 lần C. 2 lần D. 12 lần
Câu 4: Sau khi thực hiện lệnh if (45 mod 3) = 0 then x:=x+1; thì giá trị của x bằng
bao nhiêu, nếu trước đó giá trị của x bằng 5?
A. 5 B. 45 C. 3 D. 6
Câu 5: 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ố thực?
A. var A: array[20..1] of integer; B. var A: array[20..1] of real;
C. var A: array[1..20] of integer; D. var A: array[1..20] of real;
Câu 6: Chương trình sau đây cho kết quả gì?
x:=1;
while x < 10 do writeln(x);
x:= x + 1;
A. In ra các số từ 1 đến 9; B. In ra vô hạn lần số 1
C. In ra các số từ 1 đến 10; D. Bị lỗi khi dịch chương trình
Câu 7: 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’;
Câu 8: Câu lệnh nhập cho phần tử thứ 15 của biến mảng A?
A. Readln(A[15]); B. Readln(A[k]);
C. Readln(A[i]); D. Readln(A15);
Câu 9: Theo quy ước đặt tên của ngôn ngữ Pascal, tên nào sau đây hợp lệ?
A. too_hot B. See you C. 8a D. Lop.8a
Câu 10: Khi dùng lệnh writeln(3+4*5); kết quả hiển thị trên màn hình là gì?
A. 3 B. 4 C. 35 D. 23
Câu 11: Để xóa màn hình, Pascal sử dụng lệnh:
A. Read B. Clrscr C. Delay D. Write
Câu 12: Lệnh xuất dữ liệu trong Pascal là lệnh nào?
A. read/readln B. begin C. end. D. Write/writeln
Câu 13: Giá trị nào sau đây thuộc kiểu Integer?
A. 15 mod 7 B. 2000*2000 C. 15/2-3 D. 8/2
Câu 14: Lệnh gán trong Pascal được viết như thế nào?

A. => B. >= C. := D. #
Câu 15: Trong Pascal, biến a biểu diễn điểm trung bình môn Tin học của một học
sinh, theo em biến a thuộc kiểu dữ liệu nào?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu boolean D. Kiểu kí tự
Câu 16: Ban đầu n có giá trị bằng 7. Sau khi thự hiện lệnh n := 2+ n*3; thì giá trị của
n bằng bao nhiêu?
A. 3 B. 2 C. 23 D. 27
Câu 17: Khi dùng lệnh writeln(4+2*3); kết quả hiển thị trên màn hình là gì?
A. 18 B. 24 C. 8 D. 10
Câu 18: Để xóa màn hình, Pascal sử dụng lệnh:
A. Read B. Write C. Delay D. Clrscr
Câu 19: Lệnh nhập dữ liệu vào từ bàn phím trong Pascal là lệnh nào?
A. read/readln B. begin C. end. D. Write/writeln
Câu 20: Giá trị nào sau đây thuộc kiểu Real?
A. 15 mod 7 B. 20*2 C. 15/2-3 D. 8*2
Câu 21: Lệnh gán trong Pascal được viết như thế nào?
A. => B. >= C. := D. #
Câu 22: Trong Pascal, biến a biểu diễn số cây trồng được của lớp 8a, theo em biến a
thuộc kiểu dữ liệu nào?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu boolean D. Kiểu kí tự
Câu 23: Ban đầu n có giá trị bằng 4. Sau khi thự hiện lệnh n := 2+ n*3; thì giá trị của
n bằng bao nhiêu?
A. 3 B. 14 C. 6 D. 18
II. Tự luận
Câu 24. Viết các biểu thức sau bằng các ký hiệu trong ngôn ngữ Pascal.
a) x
y


8
74

b) 5xy 2 + 2y 2 – 8xy + 15 c) 4
2222aca

Câu 25. Hãy viết các câu lệnh, khai báo theo yêu cầu sau:
a) Khai báo mảng B gồm 100 phần tử thuộc kiểu dữ liệu số nguyên
b) Phần tử thứ 4 của mảng B được gán giá trị là 7.
c) Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số thực.
d) Nhập giá trị cho phần tử thứ 5 trong mảng diem.
III. Thực hành
Câu 26. Giải bài toán sau:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó
Hỏi có bao nhiêu trâu đứng , trâu nằm , trâu già ?
................................................................................................................................................................................................................................................

Câu 27.Mảnh vườn hình vuông
Cho mảnh vườn hình vuông có độ dài cạnh là a (m). Em hãy viết chương trình
Pascal tính chu vi mảnh vườn hình vuông trên (độ dài a là số thực được nhập từ bàn
phím).

Câu 28. Khởi động phần mềm Free Pascal, viết chương trình hiển thị hai dòng lệnh
sau:
Xin chao cac ban
To la hoc sinh lop 8 truong THCS THỊ TRẤN
Câu 29. Khởi động phần mềm Free Pascal, viết chương trình tính và hiển thị giá trị
của biểu thức P = a + 2.y : 5 với a là hằng số có giá trị bằng 1, còn y là số nguyên
được nhập vào từ bàn phím.
Câu 30. Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được
nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả.
Câu 31. Dùng lệnh For-do viết chương trình Pascal in ra màn hình các số từ 1 đến
20.
Câu 32. Hãy viết chương trình Pascal nhập chiều cao của hai bạn Quân và Anh, in ra
màn hình kết quả so sánh chiều cao của hai bạn. Chẳng hạn “Bạn Quân cao hơn” hay
“Bạn Anh cao hơn”.
Câu 33. Viết chương trình Pacscal tính tổng của các số tự nhiên từ 1 đến 10.
(Sử dụng lệnh lặp For-do).

Kiều Vũ Linh

11 tháng 5 2022

Tách ra mà hỏi chứ hỏi cả đống ko ai giải giùm đâu em

câuđúngsainếu sai sửa lại cho đúngfor i:=1 to 10 do writeln('A'); var X; Array[5...10] of char; X:=10;while X:=10 do X:=X+5; for i=1.5 to 10.3 do...

duc99duc

10 tháng 5 2021

Nguyễn Lê Phước Thịnh

10 tháng 5 2021

For i:=1 to 10 do writeln('A'); Đúng

Var x; array[5...10]of char; Sai

Sửa lại: var x:array[5..10]of char;

Nguyễn Thái Phương Thảo

22 tháng 4 2023

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?