Помогите решить пожалуйста!!!! срочно нужно!!!!!!

[Андрюха]

Турбо Паскаль..

1) Даны действительные числа а1, b1, с1, a2, b2, c2. Выяснить, верно

ли, что |a1b2 – a2b1|≥ 0,0001 и если верно, то найти решение систе-

мы линейных уравнений

a1x + b1y + c1 = 0

а2х + b2у + c2 = 0

Нужен текст программы.

2)

program prim4(input, output);

VAR a, b: INTEGER;

procedure swap(VAR x: INTEGER;

y: INTEGER);

VAR a: INTEGER;

BEGIN

a := x;

x := y;

y := a

END;

BEGIN

READ(a, ;

swap(a, ;

WRITELN(a,

END.

Здесь нужна трассировка.

Пожалуйста, помогите!!!! нужно срочно!!

[TolkienDRR]

500 рублёв

[SaS]

1.

Хз, вроде так.

d:=(a1*b2) – (a2*b1)

if Abs(d)>= 0,0001 then

x:= (b1c2 - b2c1)/(a1b2 - a2b1)

y: = (c1a2 - c2a1)/(a1b2 - a2b1)

else

нет решения так как не удовлетваряет условиям.

2.

Что именно надо сделать???

[Андрюха]

SaS

Трассировку только

[SaS]

Андрюха трассировка же в самом паскале выполнятся, как я её тебе сделаю.

Вот я и спросил, что именно надо.

ЗЫ. Ну если, что

F7 – трассировка программы – при каждом повторном нажатии этой клавиши выполняется очередная строка программы; если в этой строке есть обращение к процедуре или функции, то эта процедура или функция также будет выполнена строка за строкой по мере нажатия клавиши (режим трассировки используется для отладки составляемых программ);

Всё? xD

[Андрюха]

Все, всем спасибо!!!!!

[sasha33]

Помогите решить задачу по информатике со схемой и в Exel