Gun4o
06-23-2006, 07:33
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
Задача 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