Question

1/ Các câu lệnh trên có hợp lệ không , nếu chưa hợp lệ thì hãy sửa lại cho đúng ?

a/ For i:=1,5 to 10.5 do s:=s+i;

b/ Var X : array [100..1] of integer;

c/ X:=1 ; while X:=10 do X:=X+5;

d/For i:=1 to n do begin s:=s+i ; i:=i-1;

2/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 X gồm 50 phần tử thuộc kiểu dữ liệu số nguyên

b/ Phần tử thứ 9 của mảng A được gán bằng 5

c/Khai báo mảng diemtin gồm 100 phần tử thuộc kiểu dữ liệu số thực

d/ Nhập giá trị phần tử thứ 5 trong mảng diemtin

Giúp mình với , mai mình thi r ~~~

Answer 1

1

a/ For i:=1,5 to 10.5 do s:=s+i;

=> For i:=1 to 10 do s:=s+i;

b/ Var X : array [100..1] of integer;

=>Var X : array [100..1] of integer;

c/ X:=1 ; while X:=10 do X:=X+5;

=>X:=1 ; while X=10 do X:=X+5;

d/For i:=1 to n do begin s:=s+i ; i:=i-1;

=>For i:=1 to n do begin s:=s+i ; i:=i-1;end;

2

a) X:ARRAY[1..50]OF INTEGER;

B) A[9]:=5;

C)DIEMTIN:ARRAY[1..100] OF REAL;

D) WRITE('DIEM TIN[5]:');READLN(DIEMTIN[5]);