Viết chương trình nhập vào mãn chiều cao của học sinh lớp 8 in ra màn hình chiều cao của các bạn 1 mét 5 trở lên
viết chương trình nhập chiều cao của các bạn trong lớp ,in ra màn hình chiều cao của các bạn trong lớp , chiều cao cao nhất , chiều cao thấp nhất và trung bình của lớp .Biết rằng số lượng học sinh và chiều cao được nhập từ bàn phím .(sau mỗi giá trị đc in chỉ lấy 1 chữ số thập phân).
Cho mình biết đáp án vs :D
Var a:array:[1..1000] of real;
i,n:integer;
max,min,s,tb:real;
Begin
Write('Nhap so luong hoc sinh: ');readln(n);
For i:=1 to n do
Begin
Write('Nhap chieu cao hs thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
max:=a[1];min:=a[1];
For i:=2 to n do
Begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('Chieu cao lon nhat la ',max:10:1);
Writeln('Chieu cao nho nhat la ',min:10:1);
Write('Chieu cao trung binh la ',tb:10:1);
Readln
End.
Viết chương trình nhập vào chiều cao của 5 bạn trong lớp. Tính chiều cao trung bình của 5 bạn đó. In kết quả tính toán được ra màn hình
uses crt;
var cao:array[1..60]of real;
i,n:integer;
max,min:real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);
end;
max:=cao[1];
min:=cao[1];
for i:=1 to n do
begin
if max<cao[i] then max:=cao[i];
if min>cao[i] then min:=cao[i];
end;
writeln('Chieu cao thap nhat la: ',min:4:2);
writeln('Chieu cao cao nhat la: ',max:4:2);
readln;
end.
#include<iostream>
using namespace std;
int main() {
int a, b, c, d, e;
cin >> a >> b >> c >> d >> e;
int g = a + b + c + d + e;
cout << g / 5;
return 0;
}
Viết chương trình nhập vào chiều cao của 5 bạn trong lớp. Tính chiều cao trung bình của 5 bạn đó. In kết quả tính toán được ra màn hình
tham khảo
uses crt;
var cao:array[1..60]of real;
i,n:integer;
max,min:real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);
end;
max:=cao[1];
min:=cao[1];
for i:=1 to n do
begin
if max<cao[i] then max:=cao[i];
if min>cao[i] then min:=cao[i];
end;
writeln('Chieu cao thap nhat la: ',min:4:2);
writeln('Chieu cao cao nhat la: ',max:4:2);
readln;
end.
Tham khảo
uses crt;
var cao:array[1..60]of real;
i,n:integer;
max,min:real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Chieu cao cua ban thu ',i,'='); readln(cao[i]);
end;
max:=cao[1];
min:=cao[1];
for i:=1 to n do
begin
if max<cao[i] then max:=cao[i];
if min>cao[i] then min:=cao[i];
end;
writeln('Chieu cao thap nhat la: ',min:4:2);
writeln('Chieu cao cao nhat la: ',max:4:2);
readln;
end.
Viết chương trình nhập chiều cao của N bạn trong lớp , với N và giá trị chiều cao nhập từ bàn phím . In ra màn hình chiều cao trung bình các bạn trong lớp
#include <bits/stdc++.h>
using namespace std;
double a[1000],t;
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<fixed<<setprecision(2)<<t/(n*1.0);
return 0;
}
viết chương trình thực hiện các công việc sau:
a) Nhập chiều cao(đơn vị mét) của N học sinh(N được nhập từ bàn phím).
b) Thông báo ra màn hình chiều cao lớn nhất của N học sinh đó.
c) Thông báo ra màn hình số học sinh cao hơn 1.6m
Mng ơi giúp mình với ạ :((
a)
var a:array[1..100] of longint;
n,i,max,d:longint;
begin
read(n);
for i:=1 to n do
write('nhap chieu cao, don vi cm');read(a[i]);
b) max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('ban cao nhat cao',max);
c) for i:=1 to n do
if a[i]>160 then d:=d+1;
write('so ban cao hon 160 cm la: ',d);
end.
uses crt;
var a:array[1..50]of real;
max:real;
i,n,dem:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap chieu cao cua ban thu ',i,':'); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Chieu cao lon nhat la: ',max);
dem:=0;
for i:=1 to n do
if a[i]>1.6 then inc(dem);
writeln('So hoc sinh cao hon 1,6m la: ',dem);
readln;
end.
Viết chương trình nhập vào chiều cao của 2 bạn Long và Trang. So sánh chiều cao rồi in ra màn hình bạn nào cao hơn.
program Chieu_cao;
uses crt;
var Long, Trang : integer;
begin
writeln('Nhap chieu cao cua Long (Duoi dang cm)');
readln(Long);
writeln('Nhap chieu cao cua Trang (Duoi dang cm)');
readln(Trang);
if Long > Trang then writeln('Long cao hon Trang')
else writeln('Trang cao hon Long);
end.
#AeMZn
program Chieu_cao;
uses crt;
var Long, Trang : integer;
begin
writeln('Nhap chieu cao cua Long (Duoi dang cm)');
readln(Long);
writeln('Nhap chieu cao cua Trang (Duoi dang cm)');
readln(Trang);
viết chương trình nhập vào điểm kiểm tra môn tin học của các học sinh trong lớp (k học sinh). in ra màn hình điểm số cao nhất.
input: điểm của k học sinh
output: điểm số cao nhất
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
ln:=0;
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln:4:2);
readln;
end.
viết chương trình Pascal thực hiện các yêu cầu sau: Nhập họ và tên học sinh (HT), lớp(L). Nhập cân nặng (W) và chiều cao (H) của học sinh. Tính chỉ số khối của cơ thể BML (với BML = W/H2). In ra màn hình đánh giá về sự phát triển của hs là mập, bình thường hoặc phát triển chậm (theo tiêu chuẩn nếu BML>=25 người mập, BML>=18.5 phát triển bình thường, các trường hợp còn lại là phát triển chậm)