Лінійне рівняння

Розглянути випадки:

1. Якщо a не дорівнює нулю то x=b/a єдиний розв’язок.

2.Якщо a=0 i b=0 то розв’зків безліч.

3.Якщо a=0 i b не дорівнює нулю, то розв’язків не існує.

Лінійне рівняння

222

Ров’язання квадратного рівняння.

Квадратне рівняння.

Створити програму розв’язування квадратних рівнянь при виконанні якої значення коефіцієнтів квадратного рівняння вводять з клавіатури а інформація про розв’яки та значення коренів (якщо вони існують) виводять на екран.

Для всіх зображень, розташованих нижче, виконати наступне:

• Сформулювати текст задачі;
• Створити та зберегти текстовий файл із текстом цих задач;
• Створити програму для кожної задачі.
• Запустити програму на виконання.
• Всі вхідні та вихідні дані до кожної задачі розмістити у відповідному коментарі.

Строк виконання 17 жовтня 2009 року.

Паралельне сполучення опорів.

Program OpirParalelno;

Var R1,R2,R3:integer;

R:real;

bnegin

Write('R1,R2,R3 = ');

Readln(R1,R2,R3);

R:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);

Writeln('R = ',R:5:2);

end.

Послідовне сполучення опорів.

Program OpirPoslidovno;

Var R1,R2,R3,R:integer;

begin

Write('R1,R2,R3 = ');

Readln(R1,R2,R3)
R=R1+R2+R3;

Writeln('R = ',R);

end.

ЕЛЕМЕНТИ ПРЯМОКУТНИКА.

Program Priamokutnyk1;

var a,b:integer;

S,P,d:real;

begin

Writeln('a,b = ');

Readln(a,b);

S:=a*b;

P:=2*(a+b);

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

Writeln('S=',S:5:2);

Writeln('P = ',P:5:2);

Writeln('d = ',d:5:2);

end.