Курсовая работа Информатика и программирование 2 курс СибГУТИ

4.9/5 оценка (11 голосов)
3. Разработка программы на языке Паскаль для нахождения корней квадратного уравнения. //Курсовая работа по информатике //Выполнено 3-е задание (по окончанию пароля) //3. Разработка программы на языке Паскаль для нахождения корней квадратного уравнения. //Выполнил Кукса Д.В. ББЗ-32 program korni; var a, b, c : integer; d, x, x1, x2 : real; begin writeln('Курсовая работа по Информатике и программированию.'); writeln('Выполнил: Кукса Д.В.'); writeln('Группа: №ББЗ - 32'); writeln(''); writeln('Задание:'); writeln(''); writeln('Разработка программы на языке Паскаль для нахождения корней квадратного уравнения.'); writeln(''); writeln('Введите значения "a", "b", и "c" через пробел.'); readln(a, b, c); {Вводим значение переменных} d := b*b-4*a*c; if d>0 then {Проверяем значение дискриминанта} begin {Если условие верно, то имеется два корня} x1 := (-b + sqrt(d))/(2*a); x2 := (-b - sqrt(d))/(2*a); writeln('-------------------------------------------'); writeln('Корни данного уровнения равны:'); writeln('x1 = ', x1); writeln('x2 = ', x2); writeln('-------------------------------------------'); end else {Иначе...} if d=0 then {Если дискриминант равен нулю, то корень один} begin x := -b/(2*a); writeln('-------------------------------------------'); writeln('Данное уравнение имеет один корень. x= ', x); writeln('-------------------------------------------'); end else {Иначе корней нет} writeln('Корней нет.'); end.

Спецификации

  • Год: 2014
  • Внимание!!!: Вы можете скачать книгу по ссылке ниже - БЕСПЛАТНО.

Яндекс.Метрика