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.
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.
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.
Không đúng (biên dịch lỗi).
Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).
Chắc chắn là chương trình sẽ bị lỗi rồi
Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập
thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồ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
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
cảm ơn bạn nhiều nha