Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
MyNameIsIgor
0 / 0 / 1
Регистрация: 27.05.2015
Сообщений: 24
#1

Найти ошибку в коде, использующем модуль timers - Pascal ABC

27.05.2015, 17:41. Просмотров 199. Ответов 0
Метки нет (Все метки)

Всем доброго времени суток. Вот есть такая несложная программа с использованием модуля timers. При ее запуске по логике время выведенное функцией milliseconds должно приблизительно быть равным значению переменной t.Но почему Это не так?? Буду благодарен за понятный ответ))

Вот код программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses
  crt, graphabc, events, timers, utils;
 
const
  interval = 10; dt = interval / 1000;      //interval=interval srabatuvanuya taumera v milisekundah,    dt=interval vremeni v sekundah
 
var
  t_str, reg_str: string;    t: real;  //t=prowedwee vremya
  timer1: timer;     reg: integer;  //rseg=heyshuk kolishestva raz srabatuvanuya taimera
 
 
procedure displaytext;
var
  i, h: integer;
begin
  //for i:=1 to 8000 do h:=round(sin(i));
  textout(1, 70, 't=');   textout(35, 70, inttostr(milliseconds div 1000));
  str(t:4:2, t_str);      textout(1, 90, 't=');    textout(35, 90, t_str);
  str(reg, reg_str);  textout(1, 105, 'reg=');   textout(35, 105, reg_str);
end;
 
procedure updatestate;
begin
  reg := reg + 1;
  t := t + dt;
  displaytext;
end;
 
begin
  timer1 := timer.create(interval, updatestate);    timer1.start;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2015, 17:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти ошибку в коде, использующем модуль timers (Pascal ABC):

Модуль Timers в Free Pascal
Подскажите пожалуста если в Pascal ABC Модуль называется Timers то как он будет...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0...

Найти ошибку в коде
begin for j:=1 to msize do begin kol:=0; sum:=0; for i:=1 to nsize do ...

Найти ошибку в коде
program tab4; uses crt; const NN=3;MM=5; type Matrix=array of real;...

Найти ошибку в коде.
проверьте задачу!!! не могу найти ошибку var a,x,i1,i2:Integer; begin ...

Найти ошибку в коде
procedure form_menu; var i:byte; sizeof:integer; begin ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 17:41
Привет! Вот еще темы с решениями:

Найти ошибку в коде
program COSSET; uses crt; var c,d,a,k,i,u,z,r,q,w,e,n,y,m,b,v,o,s,x:real;...

Найти ошибку в коде
uses crt; const m=10; label met; var c:char; f,dt:text; k,i,j,z,b:byte;...

Найти ошибку в коде
Цель программы, она должна создавать текстовый файл, потом спрашивает сколько...

Найти ошибку в коде
Добрый день. Будьте добры, проверьте пожалуйста код, у меня выдаёт ошибку....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru