viết chương trình nhập vào ds a gồm n phần tử là tên và chie cao của hs trong lớp in ra bạn có chiều cao lớn nhất bé nhất(yêu cầu tên và chiều cao) giúp em với đng kiểm tra
Bài toán một chương trình yêu cầu nhập vào số lượng hs ,họ và tên ,địa chỉ ,chiều cao của các hs trong một lớp học hãy cho biết: bào toán gồm các biến nào , chọn kiểu dữ liệu sao cho phù hợp với các biến, viết câu lệnh bằng ngôn ngữ lập trình pascal để khai báo các biến trên
Bài toán một chương trình nhập vào yêu cầu số lượng hs, địa chỉ, họ và tên, chiều cao của các hs trong lớp học hãy cho biết : bài toán gồm những biến nào? chọn kiểu dữ liệu cho các biến sao cho phù hợp? viết câu lệnh bằng ngôn ngữ lập trình pascal để khai báo trên biến.
Giúp mik với ak
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)
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 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;
}
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
Bài toán: Một chương trình yêu cầu nhập vào số lượng học sinh, họ và tên, địa chỉ, chiều cao của các học sinh trong một lớp học.
Hãy cho biết:
- Trong bài toán gồm các biến nào?
- Chọn kiểu dữ liệu cho các biến sao cho phù hợp
- Viết câu lệnh bằng ngôn ngữ lập trình Pascal để khai báo các biến trên.
Một chương trình yêu cầu nhập vào số lượng học sinh, họ và tên, địa chỉ, chiều cao của các học sinh trong một lớp học.
Hãy cho biết:
- Trong bài toán gồm các biến nào?
- Chọn kiểu dữ liệu cho các biến sao cho phù hợp
- Viết câu lệnh bằng ngôn ngữ lập trình Pascal để khai báo các biến trên.
Một chương trình yêu cầu nhập vào số lượng học sinh, họ và tên, địa chỉ, chiều cao của các học sinh trong một lớp học.
Hãy cho biết:
- Trong bài toán gồm các biến nào?
- Chọn kiểu dữ liệu cho các biến sao cho phù hợp
- Viết câu lệnh bằng ngôn ngữ lập trình Pascal để khai báo các biến trên.
GIÚP VỚI CHUẨN BỊ NỘP RỒI Ạ CÒN 12 PHÚT