Viết chương trình nhập vào chiều cao bất kì và cân nặng bất kì của 2 bạn trong lớp so sánh chiều cao cân nặng của 2 bạn đó xuất ra màn hình
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);
a. Nhập cân nặng (W) và chiều cao ( h ) của một bạn bất kỳ
b. Tính chỉ số khối của cơ thể BMI (BMI=W/h2) và thông báo chỉ số khối đó ra màn hình.
c. In ra màn hình đánh giá về sự phát triển của bạn đó:
- BMI >=25 thông báo “bạn mập rồi đó nhé”
- 18.5<=BMI<25 thông báo “Bạn phát triển bình thường”
- BMI<18.5 thông báo “Bạn phát triển chậm rồi”
Tk
Program Can_nang;
Uses Crt;
Var W,h,BMI: Real;
Begin
Clrscr;
Writeln('Nhap can nang');Readln(W);
Writeln('Nhap chieu cao');Readln(h);
BMI:= W/h*h ;
Writeln(' Chi so khoi cua co the la', BMI:0:1);
If (BMI >=25) then Write(' Ban map roi do nhe');
If (18.5<=BMI) and (BMI<25) then Write(' Ban phat trien binh thuong') ;
If (BMI< 25) then Write(' Ban phat trien cham roi') ;
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 vào cân nặng của N hs trong một lớp N được nhập từ bàn phím . Tính cân nangwh trung bình của lớp , xuất kq ra màn hình. em cảm ơn ạ
uses crt;
var a:array[1..100]of real;
n,i:integer;
kq:real;
begin
clrscr;
write('Nhap so ban hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap can nang cua ban thu ',i,'='); readln(a[i]);
end;
kq:=0;
for i:=1 to n do
kq:=kq+a[i];
writeln('Can nang trung binh cua lop la: ',kq/n:4:2);
readln;
end.
Hãy viết chương trình ( có sử dụng chương trình con) để tính và xuất ra màn hình chu vi và diện tính hình chữ nhật với chiều dài và chiều rộng là số nguyên bất kì do người dùng nhập vào ?
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}
function cv(x,y:integer):integer;
begin
cv:=x+y;
end;
{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}
function dt(x,y:integer):integer;
begin
dt:=x*y;
end;
{-------------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',cv(a,b));
writeln('Dien tich la: ',dt(a,b));
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ông báo nhập cân nặng (w) và chiều cao (h) của một học sinh. Tính toán và thông báo ra màn hình chỉ số khối của cơ thể BMI, biết BMI=w/(h.h). Kiểm tra và thông báo ra màn hình một trong các kết quả sau: nếu BMI ≥ 25 : thừa cân; Nếu BMI ≥18,5 và BMI < 25: bình thường; Nếu BMI < 18,5 : suy dinh dưỡng. *
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.