Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Приложение языков программирования Паскаль и Python к решению задач по аналитической геометрии.

Приложение языков программирования Паскаль и Python к решению задач по аналитической геометрии.


До 7 декабря продлён приём заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)

  • Информатика

Поделитесь материалом с коллегами:


Среднее общеобразовательное учреждение МОУ СОШ № 15
имени В. Д. Сабанеева











Проект:

Приложение языков программирования Паскаль и Python к решению задач по аналитической геометрии.







Автор проекта: Учащийся 10 класса

Ермоленко Сергей





Руководитель проекта: учитель высшей категории

Глушков Н.В.







Подольск





2016 г



{Задача №1 Решение системы уравнений с 3 переменными методом Крамора}
{Программный код на Паскале}

program sysur;

{Описание переменных: d,dx,dy,dz – определители системы;

a1,b1,c1; a2,b2,c2,d2; a3,b3,c3,d3-коэффициенты в уравнении

; x,y,z-переменные}

var d,dx,dy,dz:real; d1:integer ; a1,b1,c1 :integer;

a2,b2,c2,d2:integer; a3,b3,c3,d3:integer; x,y,z:real;

begin cls; write('wwod a1,b1,c1,d1');readln(a1,b1,c1,d1); write('wwod a2,b2,c2,d2'); readln(a2,b2,c2,d2); write('wwod a3,b3,c3,d3'); readln(a3,b3,c3,d3); writeln;

{Вычисление определителей системы}

d:=a1*b2*c3+a2*b3*c1+a3*b1*c2-a1*b3*c2-a2*b1*c3-a3*b2*c1;

dx:= d1*b2*c3+d2*b3*c1+d3*b1*c2-d1*b3*c2-d2*b1*c3-d3*b2*c1;

dy:= a1*d2*c3+a2*d3*c1+a3*d1*c2-a1*d3*c2-a2*d1*c3-a3*d2*c1;

dz:=a1*b2*d3+a2*b3*d1+a3*b1*d2-a1*b3*d2-a2*b1*d3-a3*b2*d1;

{Решение системы уравнений по условию}

if d<>0 then begin x:=dx/d; y:=dy/d; z:=dz/d; writeln(x,' ',y, ' ', z) end

else if (d=0) and ((dx<>0) or (dy<>0)) then writeln('нет корней')

else if (d=0) and ((dx=0) and (dy=0)) then writeln(' бесч множ корней');

end.



# Решение системы уравнений с 3 переменными методом Крамора.
# Программный код на Питоне

# Ввести коэффициенты при неизвестных и свободные члены

a1=float(input(" a1 "))

b1=float(input("b1 "))

c1=float(input("с1 "))

d1=float(input("d1 "))

a2=float(input("a2 "))

b2=float(input("b2 "))

c2=float(input("c2 "))

d2=float(input("d2 "))

a3=float(input("a3 "))

b3=float(input("b3 "))

c3=float(input("c3 "))

d3=float(input("d3 "))

# Вычисление определителей системы

d=a1*b2*c3+a2*b3*c1+a3*b1*c2-a1*b3*c2-a2*b1*c3-a3*b2*c1

dx= d1*b2*c3+d2*b3*c1+d3*b1*c2-d1*b3*c2-d2*b1*c3-d3*b2*c1

dy= a1*d2*c3+a2*d3*c1+a3*d1*c2-a1*d3*c2-a2*d1*c3-a3*d2*c1

dz=a1*b2*d3+a2*b3*d1+a3*b1*d2-a1*b3*d2-a2*b1*d3-a3*b2*d1

# Решение системы уравнений по условию
if d!=0:
x=dx/d; y=dy/d; z=dz/d; print("x=", x,"y=" , y,"z=", z)
if (d==0) and ((dx!=0) or (dy!=0)):
print("
нет корней")
if (d==0) and ((dx==0) and (dy==0)):
print("
бесч множ корней")
Результат работы программы

hello_html_6173e4e2.png



#Задача . Определить принадлежность точки М плоскости , проходящей через 3 данные точки М1,М2,М3

# Программный код на питоне

# Ввести координаты точек М1,М2,М3

x1=float(input("x1 "))

y1=float(input("y1 "))

z1=float(input("z1 "))

x2=float(input("x2 "))

y2=float(input("y2 "))

z2=float(input("z2 "))

x3=float(input("x3 "))

y3=float(input("y3 "))

z3=float(input("z3 "))

# Ввести координаты точки М

x=float(input(" x "))

y=float(input(" y "))

z=float(input(" z "))

# Вычисление определителя из 3 векторов

d=(x-x1)*(y2-y1)*(z3-z1)+(z-z1)*(x2-x1)*(y3-y1)+(x3-x1)*(y-y1)*(z2-z1)-(x3-x1)*(y2-y1)*(z-z1)-(x-x1)*(y3-y1)*(z2-z1)-(x2-x1)*(y-y1)*(z3-z1)



if d==0:

print("точка М лежит на плоскости")

if (d!=0):

print("точка М нележит на плоскости ")









hello_html_1de0a3b3.png




57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)

Автор
Дата добавления 15.06.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров43
Номер материала ДБ-123234
Получить свидетельство о публикации
Похожие материалы

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