Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса. ПОДАТЬ ЗАЯВКУ НА КОНКУРС.
Главная / Информатика / Практическая работа по информатике "Программирование на 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.



Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 11 октября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

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

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

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

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


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

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