Главная / Информатика / Практическая работа по информатике "Программирование на PascalABC "Биквадратное уравнение" (9 класс)

Практическая работа по информатике "Программирование на PascalABC "Биквадратное уравнение" (9 класс)

9 класс Ветвление Pascal ABC (Биквадратное уравнение)

Составить программу для нахождения корней биквадратного уравнения. Ввод с клавиатуры. Использовать модуль CRT. Программа должна учитывать все случаи решения биквадратного уравнения.

Тесты:

а) a=4, b=-5, c=1___________ x1=1, x2=-1,x3=0.5,x4=-0.5;

б) a=1, b=-2, c=1___________ x1=1, x2=-1,x3=1,x4=-1;

в) a=1, b=2, c=-8___________ x1=1.41, x2=-1.41,x3 и x4 не являются действительными корнями;

г) a=1, b=1, c=1000___________ уравнение не имеет действительных корней.



ПРЕДПОЛАГАЕМОЕ РЕШЕНИЕ

Программа для нахождения корней биквадратного уравнения, представляет собой алгоритмическую структуру ветвление.


program bikv;

uses crt;

var a,b,c,d,x1,x2,x3,x4,t1,t2: real;

begin

writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');

write('введите a= ');

read(a);

write('введите b= ');

read(b);

write('введите c= ');

read(c);

d:=b*b-4*a*c;

if d<0 then writeln('Уравнение не имеет действительных корней')

else

begin

t1:=(-b+sqrt(d))/(2*a);

t2:=(-b-sqrt(d))/(2*a);

end;

if (t1<0) then writeln('x1 и x2 не действительные корни')

else

begin

if t1>0 then x1:=sqrt(t1);

x2:=-x1;

write('x1=',x1,';','x2=',x2,';');

end;

if (t2<0) then writeln('x3 и x4 не действительные корни')

else

begin

if t2>0 then x3:=sqrt(t2);

x4:=-x3;

write('x3=',x3,';','x4=',x4,'.');

end;

end.


Практическая работа по информатике "Программирование на PascalABC "Биквадратное уравнение" (9 класс)
  • Информатика
Описание:

Практическая работа по информатике рассчитана на учащихся 9 класса. Работа заключается в составлении программы для нахождения корней биквадратного уравнения. Файл содержит формулировку задания, тест программы (включающий все случаи решения биквадратного уравнения в действительных числах) и вариант решения. Используемый язык программирования: Pascal ABC.

Автор Лютов Руслан Александрович
Дата добавления 22.10.2015
Раздел Информатика
Подраздел Другое
Просмотров 920
Номер материала MA-061588
Скачать свидетельство о публикации

Оставьте свой комментарий:

Введите символы, которые изображены на картинке:

Получить новый код
* Обязательные для заполнения.


Комментарии:

↓ Показать еще коментарии ↓