Как записать уравнение в паскале

Как записать уравнение в паскале

3. Подберите такие значения x, y, z, чтобы значение а= 2.000

4. Что изменится и почему, если в программе заменить команду Writeln(‘a=’,a:7:3); на команду Writeln(a);?

5. Как распечатать только целую часть результата?

Примечание . Тип real предназначен для переменных вещественного типа. Переменные данного типа выводятся на экран монитора с большим дробным хвостом. Во избежание этого можно указать количество цифр выводимых вообще и после запятой (дробной части). Например, Writeln(‘a=’,a:7:3) — первая цифра 7 обозначает количество мест выделенных для цифр всего числа, вторая 3 — цифры дробной части. Точка тоже захватывается в количество мест для всего числа (т.е. в 7, в данном случае).

Этапы выполнения задания (b).

I Определение исходных данных: переменные x, y.

II Определение результатов: переменная b.

III Алгоритм решения задачи.

1. Ввод исходных данных

2. Вычисление значения выражения

3. Вывод результата.

IV Описание переменных:

Все переменные, определенные для решения задачи, имеют тип real. (Переменные x, y могут быть и целого типа, а переменная b только вещественного типа, поскольку в выражении используется функция вычисления квадратного корня.)

Write(‘введите значение x=’);

Write(‘введите значение y=’);

Можешь загрузить! Пример 3_б

VI Тестирование программы:

1. Запустите программу и введите значения

Проверьте, результат должен быть следующим:

Проверить правильность вычислений можно на калькуляторе.

2. Заполните таблицу

-1.2358

3. Подберите такие значения x, y, чтобы значение b= 2.000.

Проверка знаний Тест: Построение простейших арифметических выражений

Задачи для самостоятельного решения

Составить программу вычисления значения выражения:

а) ; б) ; в) .

Перевести из линейной записи в обычную следующие выражения :

Примечание. В программах на Паскале дробное число записывается с помощью точки. Например, 12.6; 3.6; 4.7.

Составить программу вычисления значения функции при любом значении переменных:

  1. ;
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;
  11. ;
  12. .

Составить программу вычисления значения функции:

Проверка знаний Тест: Арифметические выражения

Примеры решения задач

1. Составить программу вычисления значения выражения:

.

program Prim_3_1;
var a,b,c, d : r eal ;
begin
writeln (‘Введите 3 численных значения через пробел и нажмите :’);
readln (a,b,c );
d := (4.2/a-3.2*b)/(c/7+8) ;
writeln (‘ d =’, d );

writeln (‘Для завершения работы программы нажмите :’);
readln
end .

Можешь загрузить! Пример 3_1

2. Перевести из линейной записи в обычную следующие выражение : (1,2 a+sqr(b))/(3,6 b+abs(c)); .

.

3. Составить программу вычисления значения функции при любом значении переменных:

a) ;

b) .

program Prim_3_ 3_a ;
var x,y : r eal ;
begin
writeln (‘Введите з начение х и нажмите :’);
readln ( x );
y :=2 .5*sqr(x)-0.7*x+4.1 ;
writeln (‘ y =’, y );

writeln (‘Для завершения работы программы нажмите :’);
readln
end .

Можешь загрузить! Пример 3_3_а

program Prim_3_ 3_b ;
var x,y , z : r eal ;
begin
writeln (‘Введите з начени я х ,y и нажмите :’);
readln ( x , y );
z := 8.1*x*x*x-1.5*x*y*y+4*y-x-0.2 ;
writeln (‘ z =’, z );

writeln (‘Для завершения работы программы нажмите :’);
readln
end .

Можешь загрузить! Пример 3_3_б

4. Составить программу вычисления значения функции:

program Prim_ 3_4 ;
var t,g : r eal ;
begin
writeln (‘Введите з начени я t и нажмите :’);
readln ( t );
g := abs(2.4*t-100)+abs(t-2.2)-sqrt(sqr(t)/(18+abs(t))) ;
writeln (‘ g =’, g );

writeln (‘Для завершения работы программы нажмите :’);
readln
end .

Можешь загрузить! Пример 3_4

Решение квадратного уравнения

Уравнение вида 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 под дробную.

Решить квадратное уравнение

Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a , b , c , которые вводит пользователь.

Квадратное уравнение имеет вид ax 2 + bx + c = 0 . Коэффициенты a , b и c — это конкретные числа, а x надо найти, решив уравнение.

  1. Вычислить дискриминант по формуле d = b 2 — 4ac .
  2. Если дискриминант больше нуля, то вычислить два корня уравнения:
    x1 = (-b+√d) / 2a
    x2 = (-b-√d) / 2a
  3. Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
  4. Если дискриминант отрицателен, то вывести сообщение, что корней нет.

Pascal

квадратное уравнение паскаль

Язык Си

Ключ -lm при компиляции gcc.

Python

КуМир

Basic-256

  • Total 0
  • 0
  • 0
  • 0
  • 0

квадратное уравнение паскаль

var
a,b,c,d,x1,x2: real;
begin
write(‘a=’); readln(a);
write(‘b=’); readln(b);
write(‘c=’); readln(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=’,x1:3:2,’; x2=’,x2:3:2);
end
else
if d = 0 then begin
x1 := (-b) / (2*a);
writeln(‘x=’,x1:5:2);
end
else
writeln(‘Корней нет’);
end.

main() <
float a,b,c,d,x1,x2;
printf(«a=»); scanf(«%f»,&a);
printf(«b=»); scanf(«%f»,&b);
printf(«c=»); scanf(«%f»,&c);
d = b*b — 4*a*c;
if (d>0) <
x1 = (-b + sqrt(d)) / (2*a);
x2 = (-b — sqrt(d)) / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else
if (d = 0) <
x1 = -b / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else printf(«Корней нет.»);
printf(«\n»);
>

Ключ -lm при компиляции gcc.

python квадратное уравнение

print(«Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):»)
a = float(input(«a = «))
b = float(input(«b = «))
c = float(input(«c = «))

discr = b**2 — 4 * a * c;
print(«Дискриминант D = %.2f» % discr)
if discr > 0:
import math
x1 = (-b + math.sqrt(discr)) / (2 * a)
x2 = (-b — math.sqrt(discr)) / (2 * a)
print(«x1 = %.2f \nx2 = %.2f» % (x1, x2))
elif discr == 0:
x = -b / (2 * a)
print(«x = %.2f» % x)
else:
print(«Корней нет»)

input «a = «, a
input «b = «, b
input «c = «, c
d = b^2 — 4*a*c

if d > 0 then
x1 = (-b + sqrt(d)) / (2*a)
x2 = (-b — sqrt(d)) / (2*a)
print «x1 = » + x1 + «, x2 = » + x2
else
if d = 0 then
x = -b / (2*a)
print «x = » + x
else
print «Корней нет»
endif
endif

Команда decimal указывает сколько знаков после запятой следует выводить.


источники:

http://programm.top/pascal/programm/quadratic-equation/

http://gospodaretsva.com/quadratic-equation.html