Question

Пожалуйста! Даю 100 баллов! 1) Найти ошибки в программах:а) Написать программу на Pascal, вычисляющую площадь круга.Program Z1;Var R,S: integer;Begin;Read (R);S=3,14*SQR(R);Write (S);End 2)Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)?

Answer 1

Ответ:

program Krug;

var r,s:real;

begin

Writeln('Введите радиус круга:');

read(r);

s:=3.14*r*r;

Writeln('Площадь круга:',s);

end.

program Temperatura;

var t:real;

begin

writeln('Vvedite temperaturu');

readln(t);

if ((t>=36) and (t<=37))then

begin

writeln('Chelovek zdorov');

end

else

begin

writeln('Chelovek bolen');

end;

readln;

end.

Объяснение:

Answer 2

С удовольствием помогу вам с исправлениями программ.

1. Программа на Pascal для вычисления площади круга:

pascalCopy code
Program Z1;
Var
  R: real; // Используем real для вещественных чисел
  S: real;
Begin
  Read(R);
  S := 3.14 * Sqr(R);
  Write(S);
End.

Исправления:

• Исправлено присваивание значения переменной S с использованием :=.
• Заменено integer на real для переменных R и S, чтобы поддерживать вещественные числа.

2. Программа на Pascal для определения здоровья человека на основе температуры:

pascalCopy code
Program Z2;
Var
  t: real; // Используем real для вещественных чисел
Begin
  Read(t);
  If (t > 36) And (t < 37) Then
    Write('Здоров')
  Else
    Write('Болен');
End.

Исправления:

• Использовано real для переменной t.
• Добавлена конструкция If для проверки условия здоровья и вывод соответствующего сообщения.

Обратите внимание, что в обоих программах использован тип real для работы с вещественными числами.