Chỉ ra lỗi sai và sửa lỗi chương trình, nếu có :
Uses crt;
Var a,b:=byte
Const c:3;
Begin
b:=c;
a:=b/3;
write(a);
readln
end.
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
Bài 1: hãy chỉ ra lỗi sai và sửa lại?
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Bài 2 Hãy cho biết giá trị của y bằng bao nhiêu? giải thích?
var x: integer;
y: real;
begin
x:=225 div 9;
y:=(4+8*(9-5))/2-((4-5)^2+6)*15/5;
y:=y-x;
y:=x/y;
readln
end.
Bài 3 Hãy cho biết giá trị của x bằng bao nhiêu? Giải thích?
var y:integer;
x:=real;
begin
x:=(8*4+(5-3))*(9+6)/(3*2-4)
y:=18 mod 5;
x:=x*y;
x:=x-y:
readln
end.
Chương trình sau đây tính chu vi, diện tích của hình chữ nhật( chu vi, diện tích, chiều dài, chiều rộng là số thực; chiều dài, chiều rộng được nhập vào từ bàn phím). Hãy khoanh tròn vào các lỗi trong chương trình và sửa lại cho đúng.
Progam hinh chu nhat;
uses crt
var chd, chr, chuvi, dientich:read;
begin
clrscr;
writeln<‘nhap chieu dai hinh chu nhat:’);
readln(chd);
writeln(‘nhap chieu rong hinh chu nhat:’);
readln(chr)
chuvi=(chd+chr)*2;
dientich=chd*chr;
writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2);
writeln(‘Dien tich hinh chu nhat la:, dientich:10:2);
readln;
end.
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.
Sửa lỗi cho ct viết theo đề bài trên:
uses crt;
var a,n,i:integer;
begin
write('nhap so: ');readln(a);
n:=length(a);
for i:=1 to n do
if a[i] = a[n-i+1] then write('co') else write('khong');
readln
end.
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
viết chươngtrình nhập vào một số dương và kiểm tra xem nó có chia hết cho ba không?
câu 1: gõ chương trình sau
program chia het
var n:integer
Write ('nhap n:')
Readln
Câu2. Lưu chương trình dưới tên "chiahet.pas". Dịch và sửa lỗi ( nếu có)
Câu 3.Chạy chương trình với dữ liệu 4,6