I/ Khoanh tròn  chữ cái đứng trước phương án em cho là đúng:

Câu 1: Lệnh lặp nào sau đây là đúng?

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

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

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

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

Câu 2: Vòng lặp While <Điều kiện> do <Câu lệnh>;  là vòng lặp:

A. Chưa biết trước số lần lặp                            B.  Biết trước số lần lặp       

C. Biết trước số lần lặp nhưng giới hạn là <=100                D. Biết trước số lần lặp nhưng giới hạn là >=100

Câu 3: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:

    s:=1;

    for i:=1 to 5 do s := s*i;

A.120                                      B. 55                                        C. 121                         D. 151

Câu 4: Phần thân chương trình bắt đầu bằng từ khóa:

A. End.                                    B. Begin.                                  C. Uses.                       D. Var.

Câu 5: Cú pháp khai báo biến mảng trong Pascal là:

A.  var  <Tên mảng> ; array [<chỉ số đầu>..<chỉ số cuối>] of  <kiểu dữ liệu >;

B.  var  <Tên mảng> : aray [<chỉ số đầu>…<chỉ số cuối>] of  <kiểu dữ liệu >;

C.  var  <Tên mảng> : array [<chỉ số đầu>..<chỉ số cuối>] of  <kiểu dữ liệu >;

D.  var  <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for  <kiểu dữ liệu >;

Câu 6: Câu lệnh pascal nào sau đây là hợp lệ?

A. For i:=100 to 1 do writeln(‘A’);             B. For i:=1.5 to 10.5 do writeln(‘A’);

 C. For i= 1 to 10 do writeln(‘A’);              D. For i:= 1 to 10 do writeln(‘A’);

Câu 7: Chọn khai báo hợp lệ:

A. Var  a,b: array[1 .. n] of real;                        C.  Var  a,b: array[1 : n] of Integer;

            B. Var  a,b: array[1 .. 100] of real;                    D.  Var  a,b: array[1 … 100] of real;

Câu 9: Trong lệnh lặp for…do của Pascal, trong mỗi vòng lặp, biến đếm thay đổi như thế nào?

            A. +1               B. +1 hoặc -1               C. Một giá trị bất kì                  D. Một giá trị khác 0

Câu 10: Cú pháp của câu lệnh While…do là:

Câu 11:  Đâu là công việc phải thực hiện nhiều lần  với số lần biết trước?

A.     Hàng ngày em đi học.                   

B.     Em bị ốm vào một dịp có dịch cúm

C.     Đến nhà bà ngoại chơi vào một hôm cả bố và mẹ đi vắng  

D.     Ngày đánh răng  ba lần               

Câu 12: Lệnh lặp nào sau đây là đúng?

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

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

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

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

Câu1 3: Sau khi thực hiện đoạn chương trình sau:

S:=0; For i:=1 to 5 do S:=S+i;

Giá trị của biến S bằng bao nhiêu?

 A. 20                    B. 15                  C. 10                                        D. 0

Câu 14: Pascal sử dụng câu lệnh lặp nào sau đây để lặp với số lần chưa biết trước?

a/ For…do;                   b/While…do;               c/ If..then;           d/ If…then…else;

Câu 15: Em được học vẽ hình với phần mềm nào?

a/ Pascal;                  b/  Geogebra;                 c/ Mario;               d/ Finger Break out;

Câu 16: Câu lệnh gotoXY(a,b) có tác dụng gì?

A. Đưa con trỏ về hàng a cột b                            B. Đưa con trỏ về cột a hàng b

C. Cho biết thứ tự của hàng con trỏ đang đứng.  D. Đưa con trỏ về cuối dòng

Câu 17:  Biến a được nhận các giá trị là 0  ;   -1  ;   1  ;   2,3 . Ta có thể khai báo a thuộc kiểu dữ liệu nào?

a. Integer                                                         b. Char

c. Real                                                  d. Integer và Longint

Câu 18:  Cấu trúc chung hợp lý của một chương trình Pascal là:

A. Begin -> Program -> End.               B. Program -> End -> Begin.

C. End -> Program -> Begin.                           D. Program -> Begin -> End.

Câu 19:  Cho các câu lệnh sau hay chỉ ra câu lệnh đúng:

 a. for i:=1 to 10; do x:=x+1                    c. for i:=1 to 10 do x:=x+1

          b. for i:=10 to 1 do x:=x+1.                     d. for i:= 1 to 10 for j:=1 to 10 do x:=x+1

Câu 20:  Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

    s:=1;

    for i:=1 to 5 do s := s *i;

    writeln(s);

    Kết quả in lên màn hình là :

    a.    s = 72                     b.     s = 101             c.      s = 55               d.      s = 120

tin đó mn ơi giúp em vsss

em sẽ tick cho ng nhanh nhất!!!

Bài 1 : đối với từng đoạn chương trình Pascal sau đây ,cho biết lệnh writeln in ra màn hình giá trị của j và k là biến.

Đoạn chương trình 1:

j:=2;k:=3;

for i:=1 to 5 do j:=j+1;

k:=k+j;

cach:='  ' ;

writeln(j,cach,k);

Đoạn chương trình 2:

j:=2; k:=3;

for i:= 1 to 5 do

begin

         j:=j+1;k:=k+j;

        end;

        cach:='  ';

        writeln(j,cach,k);

đoạn chương trình 3:

j:=2;k:=3;

for i:=1 to 5 do then j:=j+1;

k:=k+j;

cach:='  ';

writeln(j,cach,k);

Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else

Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.

Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.

uses crt;
var s:string; a:array[1..1000]of longint;
    i,t,n,max,j:longint;
begin
  clrscr;
  write('s=');
  readln(s);
  n:=length(s);
  t:=1;
  For i:=1 to n do
    If(s[i]<>' ')or(i=1)then
    a[t]:=a[t]+1 else inc(t);
  for i:=1 to t do
    begin
      j:=i;
      while a[j]=a[i] do inc(j);
      If j-i>max then max:=j-i;
    end;
  writeln(max);
 readln
end.

đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ

1.   em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?

2.   Viết chương trình tính tổng chẵn, lẽ của  10 số bất kỳ nhập vào từ bàn phím

3.   Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả

4.   Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?

a.   K:=7;

While (K=7) Do write(“ lap lan thu may”);

b.   H:=3;n:=6;

While (n<= 20) Do H:=H+n;

              c. For F:=3 to 23 do readln 

Mọi người giúp em . Mai là kiểm tra rồi ạ

1: This time next month i (sit)....on a beach

2: I(wait) .....for you when you come out

3: You (wait)....for her when her plane arrives tonight?

4: next week at this time, you(lie) on the beach

5:You(meet) ..... your form teachers at 9a.m tomorrow morning, won't you?

6: Do more exercise and you(feel)...healthier

7: I (not study)....this evening.Do you want to go out?

8: My brother and I(not camp)...this week.We will be too busy studying for exams.

9: My friend(practice)....for the TOEFL exam over her summer vacation

10: At this time tomorrow,what.....you...(do)?

11: Next week I(drive)....from HN to HCM city.You won't able to contact me for a couple of days

12: Tomorrow, I....(sit) in the same seat that I am sitting now.

13: I..........(not travel) with my brother through Eorope because I don't have enough money

14: My brother......(not get) married any time soon. He has no job and he doesn't seem to want to do anything

19: We......(ride) our bicycles around Hoan Kiem Lake from 6a.m to 8a.m tomorrow

20: Don't worry.If we (not understand).......the lesson, the teacher (explain)....... it again