Chương trình chuẩn nào là thủ tục chuẩn?

Câu hỏi liên quan

• Chức năng của kiểu bản ghi là gì?

• Vòng lặp While – do kết thúc lúc nào?

• Trong Turbo Pascal, để chạy chương trình ta dùng tổ hợp nào?

ZUNIA12

• Đoạn chương trình sau sẽ in ra kết quả nào?

  Program Welcome ;

  Var a : string[10];

  Begin

  a := ‘tinhoc ’;

  writeln(length(a));

  End.

• Thủ tục chuẩn Insert(S1,S2,vt) thực hiện ra sao?

• Khi thực hiện chương trình VD_bt1_txt sau sẽ ghi kết quả nào trong các kết quả cho dưới đây vào tệp văn bản BT1.TXT ?

  ProgramVD_bt1_txt;

  Uses crt ;

  Var f : text ;

  Begin

            Clrscr;

            Assign(f, ‘BT1.TXT ’) ;

            Rewrite(f) ;

  Write(f, 123 + 456) ;

  Close(f) ;

  End.

• Tệp có cấu trúc là gì?

• Mảng là kiểu dữ liệu biểu diễn một dãy các phần tử thuận tiện cho việc gì?

• Để thoát khỏi phần mềm Turbo Pascal ta dùng tổ hợp nào?

• Nhận định đúng khi nói về kiểu bản ghi?

• Mô tả nào về hàm là sai?

• Khai báo thư viện phải được đặt ở vị trí nào?

• Một chương trình Pascal, sau khi đã đóng tệp bằng thủ tục đóng tệp thì có thể mở lại tệp đó hay không?

• Hãy cho biết sau khi thực hiện đoạn lệnh sau thì tệp ketqua.txt có nội dung gì? Với f1 là biến tệp văn bản và tệp ketqua.txt có nội dung đang lưu trữ là: Tich 2 so la: 20

  a := 10; b :=2;

  assign(f1, 'ketqua.txt');

  rewrite(f1);

  writeln(f1, 'Thuong 2 so la: ', a/b);

• Với S là biến có kiểu xâu (String) và y là biến kiểu thực. Trong các cách sau đây, khi thực hiện câu lệnh readln(S,y) nhập giá trị cho S = ‘ Tran Van Thong’ và y = 7.5 từ bàn phím, cách nhập nào đúng?

• Đoạn chương trình sau sẽ hiển thị kết quả gì?

  Begin

  Writeln ('Day la lop TIN HOC');

  End.

• Procedure p;

      Var n : integer ;

  Begin

  …… ……

  End ;  

• Cho khai báo mảng hãy cho biết đoạn chương trình sau thực hiện công việc gì dưới đây?

  Var a : array[0..50] of real ;

  k := 0 ;

  for i := 1 to 50 do

  if a[i] > a[k] then k := i ;

• Thế nào là tệp truy cập trực tiếp?

• Đoạn chương trình sau có lỗi gì?

  Procedure End (key : char ) ;

      Begin

             If key = ‘ q ’  then  writeln( ‘ Ket thuc ’ )

      End;