Задержка на экране

[Torlad]

Привет, у меня вопрос: как задержать что-то на экране на определенное время?
Задание звучит так:

"Напишите процедуру-заставку к программе вычисления математических функций в виде (тут табличка). Заставка выводится на очищенный экран, удерживается на экране 3 секунды, затем экран очищается."

Прогу на вывод таблички через procedure я сделал, а вот как задержать точно 3 сек и снова clrscr я что-то не в курсе... Это школьный курс, если что, так что не мудрите особо =)

Заранее спасибо.

[D61C76h]

В Паскале есть функция delay(x:longint), где х - милисекунды.

[Torlad]

тоесть это будет выглядеть так:

begin (тело проги); delay(30:longint); readln; end.

?

[D61C76h]

Будет выглядеть так:
begin
(тело проги);
delay(3000); // задержка в 3 сек.
(тело прого или что там...);
end;

Так же нужно в начале кода подключить модуль crt: uses crt;

[Torlad]

Спасибо, работает=)

Друзья, я уже видел темы, где люди просили написать прогу и видел отказы, так как вопросы - пожалуйста, а прогу пиши сам. Это правильно, но у меня как бы такая ситуация: дали 3 задания, которые я сделал, написал три проги, и дали сложное необязательное задание, за которое или поставят 5 или ничего. Но мы его не проходили, поэтому "делай как хочешь". Если поможете - будет супер.

"Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника."

Спасибо =)

[D61C76h]

Программа простая. Вот держи код:

var x0,y0,x1,y1,x2,y2,x,y,d0,d1,d2:Real;
begin
  Writeln('Vvedite koordinati 1 vershini: ');
  Readln(x0,y0);
  Writeln('Vvedite koordinati 2 vershini: ');
  Readln(x1,y1);
  Writeln('Vvedite koordinati 3 vershini: ');
  Readln(x2,y2);
  Writeln('Vvedite koordinati tochki: ');
  Readln(x,y);
  d0:=((y0-y1)*x+(x1-x0)*y+(x0*y1-x1*y0))/sqrt(Sqr(x1-x0)+sqr(y1-y0));
  d1:=((y1-y2)*x+(x2-x1)*y+(x1*y2-x2*y1))/sqrt(Sqr(x2-x1)+sqr(y2-y1));
  d2:=((y2-y0)*x+(x0-x2)*y+(x2*y0-x0*y2))/sqrt(Sqr(x0-x2)+sqr(y0-y2));
  if d0 < d1
   then if d0 < d2 then Writeln('Pryamaya iz tochek 1,2:  ', d0)
           else Writeln('Pryamaya iz tochek 2,3:  ', d2)
    else if d1 < d2 then Writeln('Pryamaya iz tochek 2,3:  ', d1)
           else Writeln('Pryamaya iz tochek 1,3:  ', d2);
  Readln;
end.

[D61C76h]

Программа выводит номера вершин, из которых состоит ближайшая сторона треугольника и расстояние до нее.

[Torlad]

Спасибо большое

[Torlad]

А формулы у расстояний, это специальные формулы перпендикуляров, наподобие установленной формулы окружности "R*R=x*x+y*y" ? Или Вы их сами как-то вывели?)

[Torlad]

Сообщение от D61C76h

Программа простая. Вот держи код:

var x0,y0,x1,y1,x2,y2,x,y,d0,d1,d2:Real;
begin
  Writeln('Vvedite koordinati 1 vershini: ');
  Readln(x0,y0);
  Writeln('Vvedite koordinati 2 vershini: ');
  Readln(x1,y1);
  Writeln('Vvedite koordinati 3 vershini: ');
  Readln(x2,y2);
  Writeln('Vvedite koordinati tochki: ');
  Readln(x,y);
  d0:=((y0-y1)*x+(x1-x0)*y+(x0*y1-x1*y0))/sqrt(Sqr(x1-x0)+sqr(y1-y0));
  d1:=((y1-y2)*x+(x2-x1)*y+(x1*y2-x2*y1))/sqrt(Sqr(x2-x1)+sqr(y2-y1));
  d2:=((y2-y0)*x+(x0-x2)*y+(x2*y0-x0*y2))/sqrt(Sqr(x0-x2)+sqr(y0-y2));
  if d0 < d1
   then if d0 < d2 then Writeln('Pryamaya iz tochek 1,2:  ', d0)
           else Writeln('Pryamaya iz tochek 2,3:  ', d2)
    else if d1 < d2 then Writeln('Pryamaya iz tochek 2,3:  ', d1)
           else Writeln('Pryamaya iz tochek 1,3:  ', d2);
  Readln;
end.

Друг, не работает, как надо! Выдает иногда отрицательное число вообще, даже если внутри треугольнику точка взята. Да дело даже не в этом - учитель сказал, что она лично делала через формулу полупериметров, как-то выражала. Ну это уже чистая геометрия пошла=)