Sửa lỗi sai và viết lại thành một chương trình hoàn chỉnh
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a='); readln(a)
Write('nhap b='); readln(b);
Tich:a*b
Writeln('tich cua a va b la:, Tich: 8:20);
Readln;
end;
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.
Những câu hỏi liên quan
4 tháng 12 2021
program nhom_ppt;
uses crt;
begin
writeln('Nhom chung minh Phan,My,Minh');
writeln('Chuc cac ban hoc tot');
readln;
end.
ML
16 tháng 12 2021
Program kiemtra: -> kết thúc phải là dấu ';', sửa: Program kiemtra;
Use crt -> thiếu dấu ';' khi kết thúc 1 lệnh, sửa: Use crt;
Var a, b: interger;
c: integerl; -> Sai tên kiểu dữ liệu, sửa: c: integer;
Begin
Clrscr;
a: = 10;
b = 3; -> lệnh gán sai, sửa: b:=3;
c: = a/b -> thiếu ';' khi kết thúc 1 câu lệnh sửa: c:=a/b;
Writeln(‘Gia tri cua c = ‘,c);
Readln;
End -> kết thúc thiếu dấu '.'. sửa: End.
31 tháng 10 2017
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
KV
5 tháng 5 2023
Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;
Lỗi: gia tri sửa lại: giatri
Lỗi: readin(n) sửa lại: readln(n);
Lỗi: i:=1 sửa lại: i:=1;
Lỗi: while i < n do sửa lại: while i <= n do
Lỗi: i:=i+2 sửa lại: i:=i+1;
Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);
21 tháng 8 2018
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
18 tháng 2 2022
Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
18 tháng 2 2022
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.
15 tháng 11 2021
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
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 Tich;
uses crt;
var a,b,Tich : integer;
begin
clrscr;
Write('Nhap a ='); readln(a);
Write('Nhap b='); readln(b);
Tich := a*b;
Writeln('Tich cua a va b la: ',Tich:8:20);
Readln;
end.