K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

26 tháng 8 2019

Chọn B

15 tháng 10 2017

a, var start , begin : real ;

( tên biến không được trùng với từ khóa)

=> var start, biến bất kì (vd: a, b, c..):real;

b, const x : = 3 . 14 , y : 1000 ;

( khai báo hằng phải dùng dấu "=", giữa các hằng phải được ngăn cách = dấu chấm phẩy)

=> const x=3.14; y=1000;

c, var a : 5 ;

(khai báo biến là khai báo kiêu dữ liệu của biến chứ không khai báo giá trị của biến)

=> var a: kiểu dữ kiệu bất kì (vd: integer, real,...);

d, const ten lop = ' 8a2 ' ;

(tên hằng không được chứa ký tự đặc biệt);

=> const ten_lop (tenlop) = '8a2';

e, var xep _ loại , diem : integer , real ;

(tên biến không được chứa ký tự đặc biệt và không có dấu, không được khai báo 1 biến mà nhiều kiểu dữ liệu)

=> var xep_loai, diem:integer (real) ;

f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;

( tên biến không được chứa ký tự đặc biệt, dư dấu phẩy, giữa các kiểu khai báo biến phải ngăn cách = dấu chấm phẩy)

=>var nguyen1 (nguyen_1), nguyen2 (nguyen_2) : integer; thuc1( thuc_1), thuc2 (thuc_1) : real;

g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;

(tên hằng k được bắt đầu = chữ số, các giá trị phải ghi chung chứ k ghi riêng)

=> const ten3ban = 'Phan, Tuan, Thanh';

h, const tên _ nhom = Tin hoc ;

( tên hằng không chứa ký tự đặc biệt và không có dấu, giá trị là chữ thì phải đặt trong dấu ' ')

=>const ten_nhom='Tin hoc';

chúc bạn học tốt!!ok

25 tháng 3 2020

A) Lỗi: Tên biến không được trùng với từ khóa

Sửa: (Ten biến bất kì vd:a): real;

B) lỗi : Dư dấu " : "

Sửa: const a = 3.14; b = 500;

C) Lỗi: Thiếu kiểu giá trị của biến

Sửa: var d: integer;

D) Lỗi: Tên hằng ko được chứa kí tu đặc biệt

Sửa: const ten_lop = '9A 3';

E) Lỗi: Không dược khia báo 1 biến có nhiều kiểu dữ liệu

Sửa: var xep_loai, diem: integer;

24 tháng 3 2020

a, var start , begin : real ;

( tên biến không được trùng với từ khóa)

=> var start, biến bất kì (vd: a, b, c..):real;

b, const x : = 3 . 14 , y : 1000 ;

( khai báo hằng phải dùng dấu "=", giữa các hằng phải được ngăn cách = dấu chấm phẩy)

=> const x=3.14; y=1000;

Câu 40:  Hãy cho biết các  khai báo được đánh số sau đây , khai báo nào là sai ?1. Const a=1;2. Const  MaxData  = 1024 * 64 - 16;3. Const NumChars = Ord('Z') - Ord('A') + 1;4. Const  Message  = Hello Pascal; a.  1.b.  2.c.  3.d.  4.Câu 41: Cho biết  chương trình sau in ra gì trong các phương án cho dưới đây?Var st : string;  i, dd : integer;Beginst :='So Buu chinh Vien thong'; dd:=Length(st); For i := 1 to dd doif (st[i] >= 'a') and (st[i] <= 'z') then st[i]:= Upcase (st[i]);  ...
Đọc tiếp

Câu 40:  Hãy cho biết các  khai báo được đánh số sau đây , khai báo nào là sai ?

1. Const a=1;

2. Const  MaxData  = 1024 * 64 - 16;

3. Const NumChars = Ord('Z') - Ord('A') + 1;

4. Const  Message  = Hello Pascal; 

a.  1.

b.  2.

c.  3.

d.  4.

Câu 41: Cho biết  chương trình sau in ra gì trong các phương án cho dưới đây?

Var st : string;  i, dd : integer;

Begin

st :='So Buu chinh Vien thong'; dd:=Length(st); 

For i := 1 to dd do

if (st[i] >= 'a') and (st[i] <= 'z') then st[i]:= Upcase (st[i]);

   Write (st);

End. 

a.  SO BUU CHINH VIEN THONG.

b.  so buu chinh vien thong.

c.  So Buu Chinh Vien Thong.

d. So buu chinh VIEN THONG.

Câu 42: Cho biết khi thực hiện đoạn lệnh sau ‘’songay’’ bằng bao nhiêu(biết  nam=2002 thang=2) trong các phương án cho dưới đây?

begin

Write(nhap thang:’);Readln(thang);

   Write('Cho biet nam : ');   Readln(nam);

      Case thang Of

       1,3,5,7,8,10,12: songay:=31;

      4,6,9,11 : songay:=30;

      2    :Case nam Mod 4 Of

               1,2,3 :songay:=28;

                    0      :songay:=29;

          End;

  End.

a. 28.

b. 29.

c. 2.

d. 0.

Câu 43:   Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?

Var n, i , s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   s:=2;

   For i:=1 to n do s:=s+1;

End;

a. 6.

b. 8.

c. 10.

d. 12.

Câu 44: Kết quả  khi thực hiện  đoạn mã sau bằng bao nhiêu trong các phương cho dưới đây ?

s:=0

For i:=1 To 2 Do

     For j:=1 to 3 Do

Begin

s:=s*i*j;

Writeln('s=',s);

End

a. 120.

b. 625.

c. 0.

d. 112.

Câu 45: Hãy cho biết kết quả đoạn mã sau bằng bao nhiêu trong các phương án cho dưới đây ?

Var

a,b,s:Real;

Begin

a:=9;

b:=34;

s:= sqrt(b-a);

Writeln ('s = ', s);

End.

a. 3.

b. 0.

c. 5.

d. 100.

Câu 46: Hãy cho biết  chương trình đệ quy sau khi n=3 thì  factorial bằng bao nhiêu trong các phương án sau đây?

Function  Factorial(N:integer):Longint;

Begin

If N=0 Then  Factorial:=1

  Else    Factorial:=N* Factorial(N-1);

End;

a. 3.

b. 0.

c. 6.

d. 10.

Câu 47: Hãy cho biết kết quả của đoạn  mã sau bằng bao nhiêu trong các phương án dưới đây ?

s:=0;

For i=1 To 2 Do

    For j =1 to 2 Do

s:=s+i*0;

Writeln('S=',s);

a. 12.

b. 0.

c. 15.

d.10.

Câu 48: Hãy cho biết kết quả a,b,c  của chương trình sau  bằng bao nhiêu trong các phương án cho dưới đây?

Var a,b,c:integer;

Procedure tt(  a:integer; var b,c:integer);

Begin

a:=a+1; b:=b+1; c:=a+b;

End;

Begin

a:=1;b:=1;

tt(a,b,c);

Write(‘a=’,a,’b=’,b,’c=’,c);

Readln;

End.

a. a=2 b=2 c=4.

b. a=1 b=1 c=2.

c. a=1 b= 2c=4.

d. a=1 b=2 c=0.

Câu 49: Muốn xoá tệp có tên ‘LyLich.Dat’   trên đĩa (được đặc trưng qua biến F ) ta viết như thế nào trong các cách viết cho dưới đây ?

a. Assign(F,  'LyLich.dat');remove(F);

b. Assign(F,  'LyLich.dat');del(F);

c. Assign(F,  'LyLich.dat');delete(F);

d. Assign(F,  'LyLich.dat');erase(F);

Câu 50: Hãy cho biết đoạn chương trình sau khi n=4 thì s bằng bao nhiêu trong các phương án dưới đây?

 Var n,i, s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   S:=0;

   For i:=1 to n do s:=s*i;

End;

a. 10.

b. 0.

c. 11.

d. 12.

Câu 51:Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M>A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.

 

Câu 52: Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M<A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.

 

2
24 tháng 12 2021

1D,2A,3A,...

Bạn tách từng câu ra nhé mình dễ giải thích hơn cho bạn

25 tháng 12 2021

Câu 50:D 

Câu 52: A

a)

-Lỗi sai: begin là biến

-Sửa lỗi: Var a:real;

-Giải thích: Biến trùng với từ khóa là sai nguyên tắc đặt tên biến trong pascal

b)

-Lỗi sai:

+ Có dấu: giữa chữ y và integer

+ Gán giá trị hằng số y là một kiểu dữ liệu

-Sửa lỗi: Const y=10;

-Giải thích: Sai cú pháp hằng

15 tháng 4 2020

Lỗi sai mình đóng trong ngoặc và in đậm nhé.

a, Var begin:real;

---> Lỗi sai : Var (begin):real;

---> Sửa lỗi : Var begi : real;

---> Giải thích lỗi sai : Khai báo biến trùng với từ khóa

b) Const y:integer;

---> Lỗi sai : Const y(:)integer;

---> Sửa lỗi : Const y=integer;

---> Giải thích: sai cú pháp khai báo hằng

c) Var bk=3

---> Lỗi sai : (Var) bk=3

---> Sửa lỗi : Const bk=3

---> Giải thích : Khai báo hằng nhưng lại dùng từ khóa khai báo của biến

d) Var AB:array[1...100] of integer;

---> Lỗi sai : Var AB:array[1..(.)100] of integer;

---> Sửa lỗi : Var AB:array[1..100] of integer;

---> Giải thích : sai cú pháp khai báo mảng

e) Var Diem: array[3.8..4.5] of real;

---> Lỗi sai : array[(3.8)..(4.5)] of real;

---> Sửa lỗi : array[3..5] of real;

---> Giải thích:

Cú pháp khai báo mảng là: var <biến mảng> ; array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;

Trong đó giá trị đầu và giá trị cuối là kiểu dữ liệu số nguyên.

28 tháng 3 2017

Ai trả lời hộ em với

2 tháng 1 2017

Câu e sai vì trong phần điều kiện không thể có dấu gán ':='

Câu f sai vì sau else chưa hết câu mà đã có dấu chấm phẩy

và Write phải chuyển thành Writeln và chu 'bang' chuyen thanh' = ' và 'khac' chuyển thành '\(\ne\)'

3 tháng 1 2017

câu f bạn sai nặng nề lun đó, trong ngôn ngữ pascallafm j có dấu âsy