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.
Chưa chắc giống nhau nhưng tham khảo :
Câu 1 : Viết các phép tính sau trong pascal :
a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)
b) \(a^2+b^2-5ab-\frac{43}{3}\)
c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)
Câu 2 :
Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.
Câu 3 :
Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.
Tự luận:
Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.
Câu 2: Máy thực hiện 5 vòng lặp:
Vòng lặp 1: M=2
Vòng lặp 2: M=4
Vòng lặp 3: M=6
Vòng lặp 5: M=8
Vòng lặp 5: M=10
Câu 3:
program tỉntong;
uses crt;
var s :real; i, n : integer;
begin
clrscr;
write('So thu n la: '); readln(n);
S:=0; i:=1;
while i<= n do begin
S:=S+1/i; i:= i+1; end;
writeln('Tong cac so do la: ',S:2:3);
readln
end.
Ko hiểu chỗ nào thì bạn hỏi nhé!
Trắc nghiệm: Không thực hiện được vì giá trị cuối không phải là số nguyên
Cấu trúc rẻ nhánh dạng đầy đủ có dạng
If then else;
thiếu hai dấu chấm phẩy ";" ở: 
sửa thành:
TB: real;
A: array [1..100] of real;
lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:
và 
và 
Sửa lại thành:
readln (a[i]);
TB:=0;
TB:=TB/n;
Cần có thêm readln trên end. để dừng chương trình lại để xem.
uses crt;
var a:array[1..20]of real;
t,tb,ln,nn:real;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t:4:2);
writeln(t/n:4:2);
nn:=a[1];
ln:=a[1];
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(nn);
writeln(ln);
readln;
end.
Đáp án A