Составить программу на паскале.Вычислить корни квадратного
5-9 класс
|
уравнения, заданного коэффициентами A, B,
C (предполагается, что а<>0 и что дискриминант
уравнения неотрицателен)
var a,b,c,D,x1,x2:real;
begin
write('Введите коэффициенты 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('Два корня: ',x1,' и ',x2)
end;
if D=0 then
begin
x1:=-b/2/a;
writeln('Один корень: ',x1)
end;
if D<0 then writeln('Корней нет')
end.
груба говоря, написать просто уравнения на на паскале чтоб а<>0 не принажала 0
Другие вопросы из категории
1. Выделить фрагмент, Копировать, установить курсор, Вставить
2. Кнопка Формат по образцу, Выделить фрагмент
3. Формат/Копировать, Формат/Вставить
4. Выделить фрагмент-образец, кнопка Формат по образцу, Выделить фрагмент
рамма получает на вход числа n и m.
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
значении корней квадратного уравнения.