0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 31
1

Арифметическое переполнение

09.12.2015, 19:47. Показов 878. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Арифметическое переполнение в чем проблема не могу понять помогите
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
const nn=16;
type mas=array[1..nn] of integer;
var a:mas;
n,k:integer;
procedure init(var a:mas;var n:integer);
var i:integer;
begin
write('razmer massiva ->');readln(n);
writeln('vvedite el-ty massiva');
for i:=1 to n do begin write('el[',i,'] = ');readln(a[i]);end;
end;
procedure vyvod(a:mas;n:integer);
var i:integer;
begin
writeln('massiv a');
for i:=1 to n do write(a[i]:7);
writeln;
end;
function prov(a:integer):boolean;
var b,r,c:integer;
t:boolean;
begin
b:=a;
r:=1;
repeat
b:=b div 10;
r:=r*10;
until b=0;
b:=a;
repeat
r:=r div 10;
c:=c+(b mod 10)*r;
b:=b div 10;
until b=0;
t:=true;
repeat
if a mod 10<>c mod 10 then t:=false;
a:=a div 10;
c:=c div 10;
until a=0;
prov:=t;
end;
function max(a:mas;n:integer):integer;
var i,imax:integer;
begin
imax:=-1;
for i:=1 to n do if prov(a[i]) then imax:=i;
for i:=1 to n do
if (prov(a[i]))and(a[i]>a[imax]) then imax:=i;
max:=imax;
end;
begin
writeln(' massiv');
init(a,n);
vyvod(a,n);
k:=max(a,n);
if k=-1 then writeln('net takih') else
writeln(a[k]:10,' i=',k);
readln;
end.
0
09.12.2015, 19:47
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.12.2015, 19:47
Ответы с готовыми решениями:

Арифметическое переполнение
У меня проблема: все программы выдают арифметическое переполнение. В универе дали методичку перевести паскаль в асм, но проблема в том что...

Арифметическое переполнение
Ребят, пишет &quot; Арифметическое переполнение &quot;, в чем ошибка?program lab04; //------------------------------ uses crt; procedure lab4; ...

Подскажите где ошибка. Выдаёт арифметическое переполнение?
program z1; USES crt; const N= 10; var x: array of integer; i: integer; y: array of integer; begin ClrScr; randomize; for...

7
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
09.12.2015, 20:14 2
А при каких исходных данных это происходит?
У меня не получилось получить ошибку.
0
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 31
09.12.2015, 20:29  [ТС] 3
размер массива 8
1 55 31200 676 4884 30503 31412 29692
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
09.12.2015, 20:44 4
Попробуйте сменить integer на longint
0
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 31
09.12.2015, 20:46  [ТС] 5
пробовал
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
09.12.2015, 20:52 6
Не знаю, у меня и с integer нет никакого переполнения, да и откуда ему взяться?
0
0 / 0 / 0
Регистрация: 01.10.2015
Сообщений: 31
09.12.2015, 20:59  [ТС] 7
вот
Миниатюры
Арифметическое переполнение  
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
09.12.2015, 21:04 8
Это какой-то глюк вашего Паскаля.
У меня так.
Миниатюры
Арифметическое переполнение  
0
09.12.2015, 21:04
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.12.2015, 21:04
Помогаю со студенческими работами здесь

Переполнение
Var z, k, temp, MaxExtended:extended; n, i:integer; Begin k:=13; z:=15; n:=100001; for i:=1 to n do

Почему происходит переполнение?
Только учусь паскалю так что имейте ввиду если не знаю чего-то элементарного. Вобщем вот код с книжки Program fsaf; Var a :...

найти ошибку(переполнение.)
Задание во вложении. На 11 строке выдает переполнение. Или ,если не сможите увидеть ошибку,предложите свой вариант программы) ...

Вещественное переполнение, исправить код
помогите пожалуйста, при решении данной матрицы 3 2 10 -7 1 -4...

Переполнение в арифметической операции
Вот код, говорит, что ошибка находится на строке 10 uses crt; var n,i : integer; max : longint; mass: array of integer; ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru