![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 06.09.2016
Сообщений: 3
|
![]()
Program raschet_vremeny;
uses dos; var h,m,s,ms:word; a,t,t1,t2:longint; begin GetTime(h,m,s,ms); t:=((h*1000000)+(m*10000)+(s*100)+m s); Writeln(t); end. Помогите почему переполнение не могу понять, не должно быть. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
m*10000 промежуточный результат тоже пытается в word или типа того. Есть такая проблема
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 06.09.2016
Сообщений: 3
|
![]()
h,m,s,ms:word; пробовал заменить на h,m,s,ms:longint; то же плохо получается может посоветуете нормальный паскаль для семёрки.
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
А так:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#5 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,826
|
![]()
ставь Delphi и там консольные приложения создавай
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 06.09.2016
Сообщений: 3
|
![]()
Спасибо сейчас попробую.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти номер строки заданной целочисленной матрицы 10×10 | bm1 | C# (си шарп) | 0 | 18.06.2015 19:01 |
Дана матрица размера M × N | Timmurz | Visual C++ | 1 | 07.04.2015 10:39 |
exitcode 215 в чем проблема? | anton.dasuik | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.01.2013 18:03 |
Ошибка 215 Переполнение | Uzver004 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 02.01.2013 20:50 |
Исправление ошибки 215 в коде | Stefansson | Помощь студентам | 3 | 20.01.2011 23:13 |