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,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.
Câu 1 : A.while...do
Câu 2 : Var a: integer;
Câu 3 : *Câu này là A. Var a: array[1..100] of inrteger mới đúng nha bạn chứ bạn ghi "integer" là sai thành ra không có cái nào đúng đấy*
Câu 4 : C.Kiểu dữ liệu có thể là integer hoặc real *Hình như cái này thiếu ý D. ???*
Câu 5 : A.Khi điều kiện cho trước được thỏa mãn *Câu này bạn đánh máy sai kìa hai ý D mà còn lên xuống dòng tùm lum*
Câu 6 : D.6 lần
Câu 7 : *Bạn đánh máy sai câu này nên mình ko biết đáp án*
Câu 8 : B.5
Câu 9 : *Trùng câu 4*
Câu 10 : B.While < điều kiện > do < câu lệnh >;
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);
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
A. 1 lần