viết trương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ sử dụng hai biến trong turbo pascal
Viết chương trình cho phép tính trung bình cộng 4 số với điều kiện chỉ được sử dụng 2 biến
tham khảo https://hayhochoi.vn/cach-tinh-theo-phuong-trinh-hoa-hoc-va-bai-tap-van-dung-hoa-8-bai-22.html
viết trương trình tính điểm trung bình n của 1 học sinh với n và điểm các môn học được nhập từ bàn phím ( sử dụng biến mảng)
Viết chương trình Pascal sử dụng biến mảng để tính giá trị trung bình của n số nguyên nhập từ bàn phím.chiều dài của dãy cũng được nhập từ bàn phím.
Viết một chương trình pascal có sử dụng các câu lệnh : khai báo biến , nhập giá trị của biến , in lên màn hình giá trị của biến , gán giá trị cho biến , câu lệnh điều kiện dạng đủ
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
Viết chương trình cân nặng của các bạn trong lớp và tính trung bình cộng của 10 bạn đó sử dụng biến mảng
Program HOC24;
var i,n: integer;
tb: real;
a: array[1..10] of real;
begin
for i:=1 to n do
begin
write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do tb:=tb+a[i];
write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);
readln
end.
uses crt;
var i,n: integer;
tb: real;
a: array[1..10] of real;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do tb:=tb+a[i];
write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);
readln
end.
sử dụng chương trình turbo pascal
tính tổng các số tự nhiên chẵn<10000
các số tự nhiên chẵn < 10000 là:
0; 2; 4; 6;...; 9998
Số số hạng của dãy là:
( 9998- 0) : 2 +1 = 5000 ( số hạng)
Tổng dãy trên là:
( 9998 +0) x 5000 : 2 = 24995000
viết chương trình tính trung bình cộng của mộth dãy số .độ dài của dãy được nhập từ bàn phím (sử dụng biến mảng)
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
t: real;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
t:=t/n;
write('Trung binh cong cua day so la: ',t:5:2);
readln
end.
Viết chương trình pascal về chủ đề bất kì có sử dụng biến mảng +Nhập độ dài của dãy +Nhập giá trị các phần tử của dãy +Tính giá trị trung bình của dãy +Tự in ra giá trị trung bình của dãy
uses crt;
var a:array[1..100]of integer;
t,i,n:integer;
begin
clrscr;
write('Nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri trung binh cua day la: ',t/n:4:2);
readln;
end.
Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến
Uses CRT;
Var a,b,c,d,MAX : integer;
Begin
clrscr;
Readln(a,b,c,d);
MAX:=a
If MAX<b then MAX:=b;
If MAX<c then MAX:=c;
If MAX<d then MAX:=d;
Writeln('So lon nhat la',MAX);
Readln
End.
( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )