bratleta hackeri i programisti Heeeelpppppppp

[Gun4o]

na4i za dneska mi trqqq 1 zada4a na Turbo pascal gospojata mi q dade da q re6a i 6e mi pi6e 6 za god taka 4e pls nqkoi da mi help za neq



Задача 3.: Дадена е точка P с координати (xp,yp) и права L с уравнение Ax+By+C = 0. Да се състави програма, която изчислява разстоянието от точката до правата.
Анализ
Входни данни: xp, yp, A, B, C - реални.
Изходни данни: s - реална.
Знание:
Алгоритъм
Начало
1.Въведи xp, yp
2.Въведи A, B, C
3.
4.Изведи s
Край.
Програма
Упътване: sqrt(x) е библиотечна функция в Pascal за квадратен корен.
Задача 3.2. Даден е интервал от две числа (a,b) и трето число x. Да се състави програма, която проверява дали числото е в интервала.
Анализ
Входни данни: a, b, x - реални.
Изходни данни: yes - логическа.
Знание Числото е в интервала, ако (a<x) and (x<b) = true.
Алгоритъм
Начало
1.Въведи a, b
2.Въведи x
3.yes <- (a < x) and (x < b)
4.Изведи yes
Край.
Забележка. Тази програма не проверява дали a<b.
ta ako nqkoi slu4aino q re6i moje da mi pi6e na emaila joro_14_lp@mail.bg blagodarq predvaritelno

[WILD__BOY]

Това въобще не го разбирам (Паскала). Просто не съм го учил никога. Вземи питай в Датата. Там има доста повече посетители.

[ne6i4]

Това въобще не го разбирам (Паскала). Просто не съм го учил никога. Вземи питай в Датата. Там има доста повече посетители.

[bl00dmage]

Za vtorata mislq 4e 6te e ne6to takova


Program Zad2;

var a,b,x:Real;

begin

writeln('a=');readln(a);
writeln('b=');readln(b);
writeln('x=');readln(x);

If (x>a) and (x<b) then writeln('x e v intervala mejdu a i b');
If (x<a) or (x>b) then writeln('x e izvan intervala a i b');
end.

dano da e taka i da ti svar6i rabota

[InHell]

Program Zad2;

var a,b,x:Real; (може и integer, зависи какви стойности ти трябват)

begin

writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('x=');
readln(x);

if ((x>a) and (x<b))
then writeln('Х в интервала', a, "-", b); //не съм сигурен дали така можеше в паскал
else writeln('Х е извън интервала', a, "-", b);
end.