Question

Câu 1: Mỗi câu lệnh dưới đây đều có lỗi sai, em hãy sửa lại cho đúng

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  n:=n+s;

d) Var a:=array [1…100] of real;

Câu 2: Viết chương trình Pascal tính và in giá trị của tổng S ra màn hình với

S= 1000+1001+1002+…+1021

Câu 3: Nêu cú pháp sử dụng lệnh For…do lệnh While…do:

Câu 4: Nêu cú pháp khai báo biến mảng trong chương trình Pascal:

Giải giúp mình với mai cô kiểm tra rồi!!!

Answer 1

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>

 

Answer 2

Câu 1: 

a) for i:=17 to 109 do 

  writeln('a');

Answer 3

Câu 1: 

b) for i:=1 to 10 do 

x:=x+1;

Answer 4

Câu 1: 

c) S:=7;

while s<15 do

n:=n+s;

Answer 5

Câu 1: 

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

Answer 6

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1000 to 1021 do 

  s:=s+i;

writeln(s);

readln;

end.

Answer 7

Câu 3: 

Cú pháp câu lệnh For..do:

For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Answer 8

Câu 3:

Cú pháp lệnh While...do

while <điều kiện> do

<câu lệnh>;

Answer 9

Câu 4: Cú pháp khai báo biến mảng:

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