Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Sửa:
Program thunghiem;
uses crt;
writeln (`Xin chao cac ban`);
writeln (`Hay hoc hanh cham chi`);
readln;
end.
+thứ nhất, chỗ S:=a*b bạn thiếu ";"
+thứ hai, chỗ readln trước "end." thì ko đc thêm ";" vào sau "readln"
Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
Tìm và sửa các lỗi sau:
Uses ; crt ;
Var x:real; y:integer;
Begin
X:=10;
Y:=5/2
y=x+y
Write('Y=' Y);
Uses crt;
Var x: real; y: Integer;
Begin
x:= 10;
y:= 5/2;
y:= x+y;
Write('Y=',Y);
Bài này bạn làm sai nhiều lắm, k có End. r mấy câu gán x và y bị lặp nhau nói chung là bài làm này chưa đúng. Nếu k hiểu thì bạn đặt câu hỏi ra luôn r mình giải hộ cho. Chúc bạn học tốt !
lỗi thứ 1:
uses ; crt ; ➝ uses crt;
lỗi thứ 2:
bạn đã khai báo y là số nguyên thì không thể thực hiện được phép chia 5/2 được nên phải khai báo y là số thực( mình chỉ giải thích thêm thôi)
nên sửa lại:
var x,y;real; hay Var x:real; y:real;
và thêm dấu chấm phẩy vào sau y:=5/2
lỗi thứ 3
phải thêm dấu hai chấm và dáu chấm phẩy vào y:=x+y;
nếu bạn để trùng cũng được bởi vì pascal chạy tuần tự từng câu lệnh
lỗi thứ 4:
thêm end vào cuối bài nữa nhé (nếu bạn muốn xem chương trình thì thêm readln trên end nhé)
nếu thiếu bỏ qua cho mình nhé
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
1 tỷ =
program vd2;
uses crt;
var x,y:integer;
S:real;
begin
readln(x,y,S);
S:=(x+y+5)/3;
write(S);
readln;
End.