Question

Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий. Вот начало программы: PROGRAM rost; VAR A,B,N:REAL; BEGIN ?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ) WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0); READLN(A); WHILE A=1 DO; BEGIN WRITELN ('ВВЕДИТЕ СВОЙ РОСТ'); READLN (B); N=N+1 IF B<160 THEN................. .................. .................. ....................

Answer 1

Var
  Rost: array[1..50] of real;
  n, i: integer;

begin
  write('Сколько человек в классе? ');
  readln(n); {Ввод и чтение кол-ва человек в классе}
  for i := 1 to n do
  begin
    write('Рост ученика: ');
    readln(Rost[i]);
    if Rost[i] < 160
      then writeln('Рост ', i, '-ого ученика низкий')
    else
    if (Rost[i] > 159) and (Rost[i] < 170)
      then writeln('Рост ', i, '-ого ученика средний')
    else
      writeln('Рост ', i, '-ого ученика высокий');
  end;
end.

Answer 2

Конечно, я помогу вам закончить программу на языке Pascal.

Ниже представлен полный код программы с исправлениями и дополнениями:

pascalCopy code
PROGRAM rost;
VAR
  B, N: INTEGER; // Заменим REAL на INTEGER, так как нам не нужны дробные значения для роста
BEGIN
  N := 0; // Инициализируем счетчик учеников
  
  WRITELN('ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0');
  READLN(A);
  
  WHILE A = 1 DO
  BEGIN
    WRITELN('ВВЕДИТЕ СВОЙ РОСТ');
    READLN(B);
    N := N + 1; // Увеличиваем счетчик учеников на 1 при каждом вводе роста

    IF B < 160 THEN
      WRITELN('Низкий')
    ELSE IF (B >= 160) AND (B < 170) THEN
      WRITELN('Средний')
    ELSE
      WRITELN('Высокий');
      
    WRITELN('ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0');
    READLN(A);
  END;
  
  // Выведем общее количество учеников
  WRITELN('Всего учеников в классе: ', N);
END.

Обратите внимание на следующие изменения:

1. Заменили тип переменных A и B с REAL на INTEGER, так как для роста нет необходимости вещественных чисел.
2. Инициализировали счетчик учеников N с помощью N := 0; перед началом ввода данных.
3. Добавили N := N + 1; после каждого ввода роста, чтобы увеличить счетчик учеников.
4. Добавили условия и вывод для каждого диапазона роста (низкий, средний, высокий).
5. Переместили запрос о наличии учеников в конец цикла, чтобы программа могла продолжать работу после ввода роста каждого ученика.
6. Вывели общее количество учеников в конце программы.

Теперь программа будет запрашивать рост каждого ученика и выводить соответствующую категорию (низкий, средний, высокий) и общее количество учеников в классе.