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. Составить программу вычисления значения выражения:
.
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).
Видео:Pascal.Программа квадратное уравнение.Скачать
Программа для решения квадратного уравнения на языке программирования Паскаль
Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.
Видео:Программа для решения корней квадратного уравнения с использованием дискриминанта на языке ПаскальСкачать
Решить квадратное уравнение
Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a , b , c , которые вводит пользователь.
Квадратное уравнение имеет вид ax 2 + bx + c = 0 . Коэффициенты a , b и c — это конкретные числа, а x надо найти, решив уравнение.
- Вычислить дискриминант по формуле d = b 2 — 4ac .
- Если дискриминант больше нуля, то вычислить два корня уравнения:
x1 = (-b+√d) / 2a
x2 = (-b-√d) / 2a - Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
- Если дискриминант отрицателен, то вывести сообщение, что корней нет.
Видео:Pascal Coding Quadratic Решение квадратного уравненияСкачать
Pascal
квадратное уравнение паскаль
Видео:Pascal (Урок 4) Квадратное уравнениеСкачать
Язык Си
Ключ -lm при компиляции gcc.
Видео:Урок 1. Первая программа на Pascal (Сложение чисел)Скачать
Python
Видео:Программирование на языке ПаскальСкачать
КуМир
Видео:Информатика 8 класс. Решение линейного и квадратного уравнения на PascalABCСкачать
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 указывает сколько знаков после запятой следует выводить.
📽️ Видео
Решение квадратного уравнения в PascalABC.NETСкачать
Программа решения квадратного уравнения. Паскаль 5.Скачать
Pascal GUI Android - Решение квадратного уравнения ►◄Скачать
Линейные программы. Решение задач. Ч.1.Скачать
Уроки на языке Pascal. Урок 15. ЗаписиСкачать
Запись вспомогательных алгоритмов на языке Паскаль. ПроцедурыСкачать
Условные операторы Паскаля. Составление программы для решения квадратных уравнений на ПаскалеСкачать
Паскаль с нуля [ч5]. Математические функции. Простой калькулятор. От блок-схемы к программеСкачать
Программирование на Pascal. Переменные, типы данных, линейные алгоритмы. Видеокурс.Скачать
Туториал: как написать Дискриминант в TURBO PASCAL#1Скачать