NP
0
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
5 tháng 12 2017
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
30 tháng 12 2020
Sai ở chỗ vị trí đặt của Uses crt; Thiếu chấm phẩy sau lệnh Writeln và sai chính tả chữ Reason
Sửa lại:
program chao;
uses crt;
begin
writeln('Chao cac ban');
readln;
end.
BH
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);
3
NP
13 tháng 11 2018
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 !
13 tháng 11 2018
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é
28 tháng 12 2020
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.
