Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:

Program Giai_PTB2;

Uses crt;

var a,b,c: real;

D, x1, x2: real;

begin

clrscr;

write(' a, b, c: ');

readln(a, b, c);

D:= b*b-4*a*c;

If D<0 then writeln (' Phương trinh vo nghiem.')

else

begin

x1:= (-b-sqrt(D))/(2*a);

x2:= -b/a-x1;

writeln(' x1= ', x1:8:3, x2= ', x2:8:3);

end;

readln

end.

Cho chương trình sau

Program Xep_so;

Const T = 10;

Var M : Array[ 1 . . T ] of Integer;

Tg, i, j: Integer;

Begin

For i: = 1 to T do

Begin

Write(‘Hay nhap gia tri so thu’ , i , ’la :’);

Readln(M[ i ]);

End;

For i : = 1 to T - 1 do

For j : = i + 1 to T do

Begin

If M[ i ] > M[ j ] then

Begin

Tg: = M[ i ];

M[ i ]: = M[ j ];

M[ j ]: = Tg;

End;

End;

Writeln(‘ KET QUA SU CHUONG TRINH CHAY LA:’);

For i: = 1 to T do Writeln(M[ i ]);

Readln

End.

A. Cho biết đoạn chương trình này làm gì?

Cho chương trình Pascal sau:

Program chuvi_duongtron:

uses crt;

const pi = 3,14;

var cv, r: real;

Begin

    clrscr;

    write(nhap ban kinh r = );

    readln(r);

    cv:= 2*pi*r;

    writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);

 readln

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.

Cho chương trình Pascal sau:

Program chuvi_duongtron :

uses crt;

const pi := 3.14;

var cv, r: real;

Begin

clrscr;

write(‘nhap ban kinh r = ‘);

 writeln(r);

cv:= 2*pi*r;

writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);

readln

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.

Cho chương trình Pascal sau:

Program dientich_duongtron;

uses= crt;

const pi = 3.14;

var: dt, r: real;

clrscr;

write(‘nhap ban kinh r = ‘);

readln(r);

dt = pi*sqr(r);

writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);

readln

End.

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);

d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.