Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Devil40rus
0 / 0 / 0
Регистрация: 29.09.2014
Сообщений: 102
#1

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

19.11.2014, 23:58. Просмотров 352. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Арифметическое переполнение (Pascal):

Арифметическое переполнение - Pascal
Арифметическое переполнение в чем проблема не могу понять помогите const nn=16; type mas=array of integer; var a:mas; n,k:integer; ...

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

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

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

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

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

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 575
Регистрация: 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
Привет! Вот еще темы с ответами:

Вычислить сумму ряда (Ошибка, переполнение. Где?) - Pascal
Вычисление суммы ряда. Program fuuuuu; Const e=0.0001; Var a,s,f,x:real; k:integer; Function F1(n:real;m:byte):real; Var...

Переполнение плавающей точкой. Где ошибка в программе? - Pascal
Program U2ITELb; Uses graph, crt; Const w1:real=1e8; w:real=1e7; l:real=0.2; w0:real=2e-8;{sobsvetna chastota...

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

Сортировка методом Хоара, исправить ошибку (переполнение стека, бесконечный цикл) - Pascal
Сортировка методом Хоара. Нужно первую четверть рассортировать по убыванию, а всё остальное - по возрастанию. Сделал две процедуры...


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

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

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