Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
Lê Thị Uyên Hân- MG EaTr...
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 BML25 người mập, BML18.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)
Đọc tiếp
Lớp 8 Tin học
Những câu hỏi liên quan
An An

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

Xem chi tiết
Lớp 8 Tin học Bài 6. Câu lệnh điều kiện

Khách
 
Đạt quốc
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 (BMIW/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.5BMI25 thông báo “Bạn phát triển bình thường”-         BMI18.5 thông báo “Bạn phát triển chậm rồi” 
Đọc tiếp
Xem chi tiết
Lớp 8 Tin học

Khách
 
Chanh Xanh
11 tháng 12 2021 lúc 18:05

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.

Bình luận (0)
Nguyễn Trần Hồng Ngọc

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.

Xem chi tiết
Lớp 11 Tin học

Khách
 
Phía sau một cô gái
7 tháng 5 2023 lúc 20:02

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.

Bình luận (0)
Kiều Trân

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.

Xem chi tiết
Lớp 8 Tin học

Khách
 
Nguyễn Văn bình

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.

Xem chi tiết
Lớp 8 Tin học

Khách
 
Nguyễn Văn bình

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

Xem chi tiết
Lớp 8 Tin học

Khách
 
Nguyễn Văn bình

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 với

Xem chi tiết
Lớp 9 Tin học

Khách
 
An Đỗ

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

Xem chi tiết
Lớp 8 Tin học

Khách
 
Nguyễn Minh Thiên

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 sinh

b)In ra màn hình tất cả điểm

c) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm >9

Xem chi tiết
Lớp 8 Tin học

Khách
 
Kiều Vũ Linh
2 tháng 5 2023 lúc 8:47

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.

Bình luận (0)

Khoá học trên OLM (olm.vn)