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.
Var a,b:integer;
Const c =3;
Begin
a :=200;
b :=a/c;
write(b);
readln; (ủa readln cái j)
end.
var a,b,c,P,S:real;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
P:=a+b+c;
S:=a*a/2;
writeln('chu vi: ',P);
write('dien tich: ',S);
readln
end.
- Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).
- Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)
- Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)
- Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.
Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
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: dư dấu ':'
Sửa lại: var a,b:integer;
Dòng 2: dư dấu ':'
Sửa lại const c=3;
Dòng 4: thiếu dấu ;
sửa lại: a:=200;
Dòng 5: sai kiểu dữ liệu:
sửa lại: b là real thì mới gán cho phép chia được
Dòng 6: thiếu;
Sửa lại: writeln(b:4:2);
Cảm ơn bạn nhiều Nguyễn Lê Phước Thịnh