|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.04.2010, 20:24 | #1 |
Регистрация: 01.04.2010
Сообщений: 7
|
Задержка на экране
Привет, у меня вопрос: как задержать что-то на экране на определенное время?
Задание звучит так: "Напишите процедуру-заставку к программе вычисления математических функций в виде (тут табличка). Заставка выводится на очищенный экран, удерживается на экране 3 секунды, затем экран очищается." Прогу на вывод таблички через procedure я сделал, а вот как задержать точно 3 сек и снова clrscr я что-то не в курсе... Это школьный курс, если что, так что не мудрите особо =) Заранее спасибо. |
01.04.2010, 21:00 | #2 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 24
|
В Паскале есть функция delay(x:longint), где х - милисекунды.
|
01.04.2010, 21:04 | #3 |
Регистрация: 01.04.2010
Сообщений: 7
|
тоесть это будет выглядеть так:
begin (тело проги); delay(30:longint); readln; end. ? |
01.04.2010, 21:22 | #4 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 24
|
Будет выглядеть так:
begin (тело проги); delay(3000); // задержка в 3 сек. (тело прого или что там...); end; Так же нужно в начале кода подключить модуль crt: uses crt; |
01.04.2010, 22:15 | #5 |
Регистрация: 01.04.2010
Сообщений: 7
|
Спасибо, работает=)
Друзья, я уже видел темы, где люди просили написать прогу и видел отказы, так как вопросы - пожалуйста, а прогу пиши сам. Это правильно, но у меня как бы такая ситуация: дали 3 задания, которые я сделал, написал три проги, и дали сложное необязательное задание, за которое или поставят 5 или ничего. Но мы его не проходили, поэтому "делай как хочешь". Если поможете - будет супер. "Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника." Спасибо =) |
01.04.2010, 23:42 | #6 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 24
|
Программа простая. Вот держи код:
Код:
|
01.04.2010, 23:45 | #7 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 24
|
Программа выводит номера вершин, из которых состоит ближайшая сторона треугольника и расстояние до нее.
|
01.04.2010, 23:48 | #8 |
Регистрация: 01.04.2010
Сообщений: 7
|
Спасибо большое
|
02.04.2010, 00:05 | #9 |
Регистрация: 01.04.2010
Сообщений: 7
|
А формулы у расстояний, это специальные формулы перпендикуляров, наподобие установленной формулы окружности "R*R=x*x+y*y" ? Или Вы их сами как-то вывели?)
|
07.04.2010, 22:26 | #10 | |
Регистрация: 01.04.2010
Сообщений: 7
|
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Временная задержка | zleyshiy | Общие вопросы Delphi | 4 | 14.08.2009 08:15 |
Задержка экрана | Paul_AG | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 19.07.2009 04:44 |
Задержка | JRcoker | Общие вопросы Delphi | 11 | 08.08.2008 00:38 |
Задержка | Syred | Общие вопросы Delphi | 2 | 07.06.2008 08:16 |
Задержка | MaTBeu | Общие вопросы C/C++ | 3 | 24.12.2007 10:29 |