Срочно надо, помогите пожалуйста составьте программу на паскале для вычисления значений у по формуле...

Тематика Информатика
Уровень 5 - 9 классы
паскаль программирование вычисление корень условное ветвление
0

срочно надо, помогите пожалуйста составьте программу на паскале для вычисления значений у по формуле у=корень из х для х,заданного с клавиатуры.Если х число отрицательное, то выведите сообщение, что значение у не существует.

avatar
задан 6 месяцев назад

3 Ответа

0

program CalculateY;

var x, y: real;

begin write('Введите значение x: '); readln(x);

if x < 0 then

writeln('Значение y не существует')

else begin

y := sqrt(x);
writeln('Значение y = ', y);

end; end.

avatar
ответил 6 месяцев назад
0

Программа на языке Pascal для вычисления значения у по формуле у=корень из х:

program CalculateY;
var
  x, y: real;
begin
  writeln('Введите значение x: ');
  readln(x);
  
  if x >= 0 then
  begin
    y := sqrt(x);
    writeln('Значение y = ', y);
  end
  else
    writeln('Значение y не существует, так как x отрицательное.');
end.

Эта программа позволит пользователю ввести значение x с клавиатуры, а затем вычислит значение у по формуле у=корень из х. Если введенное значение x отрицательное, то программа выведет сообщение о том, что значение у не существует.

avatar
ответил 6 месяцев назад
0

Для того чтобы написать программу на языке Pascal, которая вычисляет значение ( y = \sqrt{x} ), где ( x ) вводится пользователем, и выводит сообщение об ошибке при отрицательных значениях ( x ), можно использовать следующий скрипт:

program SquareRootCalculator;
uses crt, math;
var
  x, y: Real;

begin
  clrscr;  // Очистка экрана
  writeln('Введите значение x:');
  readln(x);  // Ввод значения x

  if x < 0 then
    writeln('Значение y не существует, так как x отрицательное.')
  else
    begin
      y := sqrt(x);  // Вычисление квадратного корня
      writeln('Значение y = ', y:0:2);  // Вывод значения y с двумя знаками после запятой
    end;
  
  readln;  // Ожидание ввода, чтобы окно консоли не закрывалось сразу после выполнения
end.

В этой программе:

  1. Используется модуль crt для работы с терминалом и math для математических функций.
  2. Объявляются переменные x и y типа Real.
  3. С помощью функции writeln выводится приглашение ко вводу.
  4. Производится чтение значения x с клавиатуры через readln.
  5. Проверяется условие: если x меньше нуля, то выводится сообщение об ошибке.
  6. Если x неотрицательный, то с помощью функции sqrt вычисляется корень и результат выводится на экран.
  7. В конце программы readln используется для задержки закрытия окна программы, позволяя пользователю увидеть результат.

avatar
ответил 6 месяцев назад

Ваш ответ

Вопросы по теме