Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Devil40rus
0 / 0 / 2
Регистрация: 29.09.2014
Сообщений: 105
#1

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

19.11.2014, 23:58. Просмотров 362. Ответов 1
Метки нет (Все метки)

Ребят, пишет " Арифметическое переполнение ", в чем ошибка?
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
program lab04;
//------------------------------
uses crt;
procedure lab4;
var y:array[1..100] of integer;
i,n,k1,k2:byte;
t:integer;
begin
clrscr;
write('кол-во элементов: ');
readln(n);
for i:=1 to n do
begin
t:=random(35)-20;
if t>0 then
begin
inc(k1);
y[k1]:=t;
write(y[k1]:4);
end 
else
begin
inc(k2);
y[n-k2+1]:=t;
write(y[n-k2+1]:4);
end;
end;
for i:=1 to n do
writeln('otv=',y[i]:4);
end;
//----------------------------
begin
lab4;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2014, 23:58
Ответы с готовыми решениями:

Арифметическое переполнение
Арифметическое переполнение в чем проблема не могу понять помогите const...

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

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

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

Почему происходит переполнение?
Только учусь паскалю так что имейте ввиду если не знаю чего-то элементарного....

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
20.11.2014, 02:45 #2
у вас k1 и k2 не инициализированы (начальное значение не задано)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2014, 02:45

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

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее...

Переполнение плавающей точкой. Где ошибка в программе?
Program U2ITELb; Uses graph, crt; Const w1:real=1e8; w:real=1e7; ...


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

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

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