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.
A)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a
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é
a)
*Các lỗi sai là:
-Sai thứ tự các lệnh (begin trước, uses crt sau)
-Program vd: thiếu dấu ;
-Writeln('Chao cac ban!'): thiếu dấu ;
-Sai thứ tự các lệnh(end trước readln sau)
-Readln: thiếu ;
*Sửa lại:
Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.
b)
*Các lỗi sai là:
-Var a,b:=integer; Sai vì có dấu =
-Const c:=3; Sai vì có dấu :
-a:=200: Sai vì thiếu dấu ;
-b:=a/c: Biến b Sai kiểu dữ liệu;
-Writeln(b): Sai vì thiếu dấu ;
-Readln: Sai vì thiếu dấu ;
*Sửa lại:
Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.
Dòng 1 tên chương trình khai báo sai
sửa lại program hinh_tron;
Dòng 2 phần kahi báo k có dấu "=" trước integer
sửa lại vả cr,dt,t: integer;
Dòng 6 thiếu dấu"=" sau dấu ":"
sửa lại dt:=pi*r*r;
Dòng 7 lệnh in kq sai
sửa lại writeln(' chu vi la:',cv);
Dòng 8 lênh in kq sai
sửa lại writeln(' dien tich la:',dt);
Dòng 1,2,4,5,6,7,8,9 thiếu ;
và dòng 10 thiếu "."
Tên chương trình: có dấu cách, sửa: tinh_tong;
Khai báo biến sai cấu trúc, sửa : thay := thành :
Lệnh gán biến tong sai, sửa : tong:=a+b;
End thiếu chấm, sửa : end.
- program: có dấu cách
sửa: program tinh_tong;
- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán
sửa: var a, b, tong : integer;
- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị
sửa: tong := a+b;
- kết thúc chương trình: end viết thiếu
sửa: end.
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.
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.
Góp ý nha!