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.
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.
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.
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;
program nhom_ppt;
uses crt;
begin
writeln('Nhom chung minh Phan,My,Minh');
writeln('Chuc cac ban hoc tot');
readln;
end.
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.
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Program GPTBN ;
var a,b: Real ;
Begin
Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)
else if b=0 then writeln (' Phuong trinh co vo so nghiem ')
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
program gptbn;
uses crt;
var a,b:real;
begin
write('Nhap he so a,b cua phuong trinh: ');readln(a,b);
if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)
else if b = 0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem');
readln
end.