Câu lệnh dưới đây giải bài toán nào:

While M <> N do

If M > N then M:=M-N else N:=N-M;

Câu hỏi liên quan

• Khai báo mảng hai chiều nào sai?

• Muốn tính diện tích S của hình vuông có cạnh A với giá trị nguyên nằm trong phạm vi từ 10 đến 100, cách khai báo S nào dưới đây là đúng và tốn ít bộ nhớ nhất?

• Thế nào là tệp truy cập tuần tự?

ZUNIA12

• Với cấu trúc rẽ nhánh IF <điều kiện> THEN <câu lệnh>, câu lệnh đứng sau THEN được thực hiện khi nào?

• 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.

• Với biến bản ghi sinh_vien gồm các trường ho_ten, ngay_sinh. Biểu thức nào truy cập đến trường ho_ten  của bản ghi này?

• Để mô tả cấu trúc rẽ nhánh trong thuật toán, nhiều ngôn ngữ lập trình bậc cao dùng câu lệnh IF – THEN, sau IF là <điều kiện>. Điều kiện là gì?

• Phát biểu nào có thể lấy làm biểu thức điều kiện trong cấu trúc rẽ nhánh?

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

• Khai báo nào sai khi khai báo x là tham số giá trị và y, z là tham số biến (x, y, z thuộc kiểu Byte) trong thủ tục “ViduTT”?

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

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

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

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

  Procedure End (key : char ) ;

      Begin

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

      End;

• 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ì?

• 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 ;

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

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

• Cú pháp của thủ tục ghi dữ liệu vào tệp văn bản như thế nào?

• 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);