Question

Màn hình đồ họa của một máy tính có độ phân giải: 640x480. Biết rằng, mỗi điểm trên màn hình chiếm 1 byte. Hỏi cần bao nhiêu byte để lưu trữ một vùng có kích thước bằng 1/10 màn hình đồ họa đó?

Có 2 sinh viên viết chương trình giải bài toán này như sau:

Program Sinhvien1;

Var       a,b:Word;

                        s: LongInt;

Begin

            a:=640; b:=480;

            s:=a;

            s:=s*b;

            s:=s DIV 10;

            writeln(s); readln;

End.

 

Program Sinhvien2;

Var       a,b:Word;

                        s: LongInt;

Begin

            a:=640; b:=480;

            s:=a*b DIV 10;

            writeln(s); readln;

End.

Hãy cho biết 2 chương trình trên cho kết quả đúng hay sai? Tại sao?

Answer 1

Program Swap;Vara,b,tam: Integer;BeginWrite('Nhap vao a= '); Readln(a);Write('Nhap vao b= '); Readln(b);tam:=a; {tam lấy giá trị của a}a:=b; {a lấy giá trị của b}b:=tam;{b lấy lại giá trị của tam}Writeln('a = ',a,’ b = ‘,b);Readln;End.b/ Không được phép dùng biến trung gian.Program Swap;Vara,b: Integer;BeginWrite('Nhap vao a= '); Readln(a);Write('Nhap vao b= '); Readln(b);a:=a+b; {a lấy tổng giá trị của a+b}b:=a-b; {b lấy giá trị của a}a:=a-b;{a lấy lại giá trị của b} Writeln('a = ',a,’ b = ‘,b); Readln; End