Question

[Lý Quốc Huy]

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

[nguyễn an phát]

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

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

Câu 1: 

a) for i:=17 to 109 do 

  writeln('a');