• 
  • 28 December 2020
  Информатика
  • Автор: anyaartemova01

  

  написать программы в паскале
  1) Проверить является ли введенное с клавиатуры число х корнем уравнения ax^2+bx+c=0
  2) Вычислить сумму n членов последовательности, задаваемой формулой a^n=1/(2n+1)^2
  очень срочно!!!!!

• 
  • 28 December 2020
  • Ответ оставил: Cr0mvel

  Как и сказал, смог только первый.
  
  Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
  Вот сам код:
  
  program name;
  var a, b, c, d, x1, x2, x3: real;
  begin
  writeln('Введите коэффициенты квадратного уравнения') ;
  readln(a, b, c);
  d:=sqr(b) - (4*a*c);
  x1:= (-b-sqrt(d)) / 2*a;
  x2:= (-b+sqrt(d)) / 2*a;
  Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
  readln(x3);
  If x3 = x1 then
  Writeln('Число ', x3, ' является корнем уравнения.')
  Else If x3 = x2 then
  Writeln('Число ', x3, ' является корнем уравнения.')
  Else
  Writeln('Число ', x3, ' не является корнем уравнения.') ;
  End.
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (05.11.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы