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 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.
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.
Câu e sai vì trong phần điều kiện không thể có dấu gán ':='
Câu f sai vì sau else chưa hết câu mà đã có dấu chấm phẩy
và Write phải chuyển thành Writeln và chu 'bang' chuyen thanh' = ' và 'khac' chuyển thành '\(\ne\)'
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
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é