Câu 1 : tìm và sửa lỗi trong chương trình Pascal sau:
program Kiem tra loi;
var a, b: real;
const c:=3;
begin
a:=200
b:=a/c;
wrieln( ketquala a,b);
end.
Câu 2: viết chương trình xuất ra màn hình kết quả của phép toán 2.4^3+6/(25-16)-8
Câu 3: tìm cú pháp gán giá trị cho biến
biến<----- biểu thức, viết thuật toán hoán đổi 2 giá trị x và y
Câu 1 : tìm và sửa lỗi trong chương trình Pascal sau: program Kiem tra loi; var a, b: real; const c:=3; begin a:=200 b:=a/c; wrieln( ketquala
By Adeline
Câu 1:
program Kiem tra loi; → program Kiem_tra_loi;
var a, b: real;
const c:=3; → const c=3;
begin
a:=200 → a:=200;
b:=a/c;
wrieln( ketquala a,b); → writeln(‘Ketquala: ‘,a,b);
end.
Câu 2:
Uses crt;
Var x: real;
Begin
Clrscr;
x:=2*4*4*4+6/(25-16)-8;
Writeln(‘Ket qua la: ‘,x);
Readln
End.
Câu 3:
– Cú pháp: <tên biến>:=<biểu thức/giá trị>;
– Hoán đổi 2 giá trị x và y:
Uses crt;
Var x, y, t: real;
Begin
Clrscr;
Write(‘Nhap x va y: ‘); readln(x, y);
t:=x;
x:=y;
y:=t;
Writeln(‘x = ‘, x);
Writeln(‘y = ‘, y);
Readln
End.
Câu 1:
program Kiem tra loi; → program Kiem_tra_loi;
var a, b: real;
const c:=3; → const c=3;
begin
a:=200 → a:=200;
b:=a/c;
wrieln( ketquala a,b); → wrieln(‘ketquala’, a*b);
end.
Câu 2:
begin
writeln(‘Ket qua cua phep tinh 2.4^3+6/(25-16)-8 la: ‘, 2*4*4*4+6/(25-16)-8);
readln
end.
Câu 3:
Cú pháp gán giá trị cho biến: <tên biến> := <giá trị của biến>;
Chương trình hoán đổi 2 giá trị x và y:
uses crt;
var x, y, tam: integer;
begin
clrscr;
write(‘Nhap x, y: ‘); readln(x,y);
tam:=x;
x:=y;
y:=x;
writeln(‘Sau khi hoan doi: ‘);
writeln(‘x=’, x);
writeln(‘y=’, y);
readln
end.