cho đến khi được tổng đầu tiên lớn hơn 2000 thì ngừng đúng không?

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.

program tinh_trung_binh;

uses crt;

var i, s,n: integer;

A: array[1..100] of integer;

begin

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

begin write('A[',i,']='); readln (A[i]); end;

s:=0;

for i:=1 to n do s:=s + A[i];

write('Gia tri trung binh la: ', s div n);

Readln;

End.

Program phi_dichvu;

const n = 12;

Var a, b, c: array[1..n] of integer;

i, tong1, tong2, tong3, tong, max, k: integer;

begin

{a. Nhập cước phí điện thoại, điện tiêu dùng và Internet(đừng ghi nhé, chỉ là để làm dấu chỗ làm thôi)}

for i:=1 to n do

begin

writeln('Nhap cac khoan chi dich vu thang thu ', i);

write('Tien dien thoai: '); readln(a[i]);

write('Tien dien tieu dung: '); readln(b[i]);

write('Tien Internet: '); readln(c[i]);

end;

writeln;

{b. Tính tổng số tiền phải trả trong năm}

tong1:=0; tong2:=0; tong3:=0;

for i:=1 to n do

begin tong1:=tong1+a[i];

tong2:=tong2+b[i];

tong3:=tong3+c[i];

end;

tong:=tong1+tong2+tong3;

writeln('Tong so tien chi dinh ki trong nam qua: ', tong);

writeln:

{c.tìm dịch vụ có tổng chi cao nhất}

max:=tong1; k:=1;

if max<tong2 then k:=2;

if max< tong3 then k:=3;

if k=1 then writeln('Tiền chi cho điện thoại cao nhất.')

else if k=2 then writeln ('Tiền chi cho điện cao nhất.')

else writeln('Tien chi cho Internet cao nhat.');

writeln;

{d. Tính trung bình khoản chi dịch vụ mỗi tháng}

writeln('Chi dich vu trung binh hang thang la: ', tong div n);

readln;

end.

Bạn hãy vào phần thông tin tài khoản, sau đó chọn đổi ảnh đại diện, rồi nháy chọn ảnh mà bạn muốn đặt làm ảnh đại diện chọn open để tải lên, chờ trong giây lát ảnh sẽ được đổi, và pahir chờ khoảng 1 đến 2 tiếng để thay đổi hoàn toàn ảnh đại diện cho bạn đấy.

Program tinh_tong;

uses crt;

Var i,n,sum: integer;

Begin

write('Nhap so n: n= '); readln(n);

while (n>= 20) or (n<=3) do begin ('Nhap lai n: n='); readln (n); end;

sum:=0;

for i:=1 to n do sum:=sum+i;

writeln('Tong can tinh là:', sum);

Readln;

End.

Trả lời bạn,em là giá đỗ.

Bài 3:

Khi vật bắt đầu rơi từ h thì thế năng trọng trường của vật sẽ dần chuyển sang động năng, trong quá trình rơi đó, động năng sẽ tăng lên và thế năng trọng trường sẽ giảm đi. Đến một lúc thì động năng dần chuyển thành nhiệt năng làm cho quả bóng và không khí xung quanh nóng lên.

Tóm tắt:

\(m=50kg\\ h=2m\\ F=125N\\ \overline{A=?}\\ l=?\)

Giải:

Trọng lượng của vật là:

\(P=10m=10.50=500\left(N\right)\)

Công để nâng vật là:

\(A=P.h=500.2=1000\left(J\right)\)

Chiều dài của mặt phẳng nghiêng là:

\(l=\dfrac{A}{F}=\dfrac{1000}{125}=8\left(m\right)\)

Vậy công nâng vật là 1000J và chiều dài của mặt phẳng nghiêng là 8m.

Tóm tắt:

\(P=500N\\ h=1,2m\\ \overline{1.A=?}\\ 2.s=4,8m\\ a,F_k=?\)

b,\(=?,t=12s\)

\(c,F_{tp}=150N\\ F_{ms}=?\\ H=?\)

Giải:

1. Công kéo trực tiếp của người đó là:

\(A=P.h=500.1,2=600\left(J\right)\)

2. a, Theo định luật về công ta được công kéo bằng mặt phẳng nghiêng đúng bằng công kéo trực tiếp hay:

\(F_k.s=P.h=A=600\left(J\right)\)

\(\Rightarrow F_k=\dfrac{A}{s}=\dfrac{600}{4,8}=125\left(N\right)\)

b, Công suất của hoạt động đó là:

\(=\dfrac{A}{t}=\dfrac{600}{12}=50\left(W\right)\)

c, Công toàn phần để kéo vật là:

\(A_{tp}=F_{tp}.s=150.4,8=720\left(J\right)\)

Công của lực ma sát là:

\(A_{ms}=A_{tp}-A=720-600=120\left(J\right)\)

Lực ma sát khi kéo vật là:

\(A_{ms}=F_{ms}.s\Rightarrow F_{ms}=\dfrac{A_{ms}}{s}=\dfrac{120}{4,8}=25\left(N\right)\)

Hiệu suất của mặt phẳng nghiêng là:

\(H=\dfrac{A}{A_{tp}}.100\%=\dfrac{600}{720}\cdot100\%\approx83,3\left(\%\right)\)

Vậy hiệu suất của mặt phẳng nghiêng là 83,3%