Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.09.2016, 20:51   #1
MIXONUS
Новичок
Джуниор
 
Регистрация: 06.09.2016
Сообщений: 3
По умолчанию Ошибка 215

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.

Помогите почему переполнение не могу понять, не должно быть.
MIXONUS вне форума Ответить с цитированием
Старый 06.09.2016, 21:28   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

m*10000 промежуточный результат тоже пытается в word или типа того. Есть такая проблема
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.09.2016, 21:36   #3
MIXONUS
Новичок
Джуниор
 
Регистрация: 06.09.2016
Сообщений: 3
По умолчанию

h,m,s,ms:word; пробовал заменить на h,m,s,ms:longint; то же плохо получается может посоветуете нормальный паскаль для семёрки.
MIXONUS вне форума Ответить с цитированием
Старый 06.09.2016, 21:40   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А так:
Код:
t:=((Longint(h)*1000000)+(Longint(m)*10000)+(Longint(s)*100)+ms);
PS нет паскаля
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.09.2016, 22:21   #5
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

ставь Delphi и там консольные приложения создавай
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 06.09.2016, 23:04   #6
MIXONUS
Новичок
Джуниор
 
Регистрация: 06.09.2016
Сообщений: 3
По умолчанию

Спасибо сейчас попробую.
MIXONUS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти номер строки заданной целочисленной матрицы 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