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...

LT

Lê Thị Uyên Hân- MG EaTrol Phòng GD...

15 tháng 12 2022 - olm

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...

Đọc tiếp

#Tin học lớp 8

0

AA

An An

28 tháng 12 2021

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...

Đọc tiếp

#Tin học lớp 8

0

DQ

Đạt quốc

11 tháng 12 2021

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...

Đọc tiếp

#Tin học lớp 8

1

CX

Chanh Xanh

11 tháng 12 2021

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.

Đúng(0)

NT

Nguyễn Trần Hồng Ngọc

6 tháng 5 2023

Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.

#Tin học lớp 11

1

PS

Phía sau một cô gái

7 tháng 5 2023

program TinhTBCTimSoNT;

var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;

begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);

// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;

// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;

// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.

Đúng(0)

KT

Kiều Trân

18 tháng 11 2021

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...

Đọc tiếp

#Tin học lớp 8

0

NV

Nguyễn Văn bình

19 tháng 11 2021

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...

Đọc tiếp

#Tin học lớp 8

0

NV

Nguyễn Văn bình

19 tháng 11 2021

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...

Đọc tiếp

#Tin học lớp 8

0

NV

Nguyễn Văn bình

19 tháng 11 2021

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ấy anh chị giúp em...

Đọc tiếp

#Tin học lớp 9

0

AD

An Đỗ

19 tháng 11 2021

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

#Tin học lớp 8

0

NM

Nguyễn Minh Thiên

1 tháng 5 2023

Viết chương trình sử dụng biến mảng lưu điểm Tin học của học sinh trong lớp 8A, số lượng 35 học sinh thực hiện những yêu cầu sau:a)Nhập vào điểm của 35 bạn học sinhb)In ra màn hình tất cả điểmc) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

2 tháng 5 2023

Var a:array[1..35] of real;

i:integer;

Begin

For i:=1 to 35 do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac > la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

Đúng(1)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP