Добрый день. Сегодня я хочу поделиться программой, написанной на языке программирования Паскаль, а именно исходник программы, которая находит корни квадратного уравнения.
Итак, задача звучит следующим образом:
«Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов».
Решение задачи на языке паскаль довольно простое. Вначале необходимо считать данные (значения коэффициентов) в три переменные a,b,c. Затем нужно посчитать дискриминант, после проверить больше или меньше нуля или равно ему значение дискриминанта. В зависимости от значения дискриминанта считать значение корней или вывести сообщение о том, что корней нет.
Исходный код программы нахождения корней:
Скачать исходник: koren2.pas
var a:real;
var b:real;
var c:real;
var d:real;
var x:real;
var x1:real;
var x2:real;
writeln(‘program that is count of the discriminant’);
writeln (‘enter of a var ‘);
Весь Pascal для ОГЭ за 25 Минут — Подготовка к ОГЭ по Информатике 2023
readln (a);
writeln (‘enter of b var ‘);
readln (b);
writeln (‘enter of c var ‘);
readln (c);
write (‘discriminant equal = ‘);
d:= b*b — 4 * a * c;
writeln (d);
x:= -b / 2 * a;
x1:= (-b — sqrt(d)) / (2 * a);
x2:= (-b + sqrt(d)) / (2 * a);
Уравнение вида a⋅x 2 + b⋅x + c = 0 — квадратное уравнение.
a, b, c — действительные числа, a ≠ 0.
Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.
- если D 0, то уравнение имеет два действительных корня:
- x1 = (-b + √D) / (2⋅a);
- x2 = (-b + √D) / (2⋅a).
Программа для решения квадратного уравнения на языке программирования Паскаль
Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.
Источник: rufus-rus.ru
Запиши программу на языке Паскаль для y = 0, если х +1
Найди верный ответ на вопрос ✅ «Запиши программу на языке Паскаль для y = 0, если х . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Информатика. Язык Pascal: Оператор цикла repeat-until в Pascal. Центр онлайн-обучения «Фоксфорд»
Источник: urokam.net
Напишите программу на языке Паскаль, которая вычисляет значение функции
y=0, если х меньше или равно 0
y=x, если 0 меньше х меньше или равно 1
y=x², если х больше 1
ХЕЛП ХЕЕЕЕЕЛП
если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены — ответ 200
маша может закрасит клеточки в шахматном порядке
Ответ разместил: Гость
21 24 27 30 33 36 39 42 45 48
Ответ разместил: Гость
интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.
(жирным шрифтом для всех, обычным для жестких, флеш и тд.)
Ответ разместил: Гость
если я правильно понял и функция sin в квадрате и cos в квадрате то
по идее она будет равна 1 в любом случае
writeln(x: 8: 2,y: 8: 2);
вот результат выполнения
-3.14 1.00 -2.94 1.00 -2.74 1.00 -2.54 1.00 -2.34 1.00 -2.14 1.00 -1.94 1.00 -1.74 1.00 -1.54 1.00 -1.34 1.00 -1.14 1.00 -0.94 1.00 -0.74 1.00 -0.54 1.00 -0.34 1.00 -0.14 1.00 0.06 1.00 0.26 1.00 0.46 1.00 0.66 1.00 0.86 1.00 1.06 1.00 1.26 1.00 1.46 1.00 1.66 1.00 1.86 1.00 2.06 1.00 2.26 1.00 2.46 1.00 2.66 1.00 2.86 1.00 3.06 1.00
если брать 2x тогда
writeln(x: 8: 2,y: 8: 2);
-3.14 1.00 -2.94 1.31 -2.74 1.41 -2.54 1.29 -2.34 0.97 -2.14 0.49 -1.94 -0.07 -1.74 -0.61 -1.54 -1.06 -1.34 -1.34 -1.14 -1.41 -0.94 -1.26 -0.74 -0.91 -0.54 -0.41 -0.34 0.15 -0.14 0.68 0.06 1.11 0.26 1.36 0.46 1.40 0.66 1.22 0.86 0.84 1.06 0.33 1.26 -0.23 1.46 -0.76 1.66 -1.16 1.86 -1.38 2.06 -1.39 2.26 -1.17 2.46 -0.77 2.66 -0.25 2.86 0.31 3.06 0.82
Источник: vse-znaniya.com