Преобразование кода

@Bohes · Регистрация: 10.07.2011

Студворк — интернет-сервис помощи студентам

Есть код:

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
const
 x1=1000;
 y1=1000;
var
 j, N, p, x :integer;
 A:array [0..x1,0..y1] of integer;
 i,i1,i2,count,summ:integer;
 
 
 F1, F2:text;
Begin
 
 Assign(F1, 'input.txt');
 Reset(F1);
 Assign(F2,'output.txt');
 Rewrite(F2);
 
 A[0,0]:=0;
 
 Readln(F1,N);
 for i:=1 to N do
  Begin
   Readln(F1,p,x);
   count:=A[p,0];
   if x < 0 then count:= count - 1;
   A[i,0]:=count;
   for i1:=1 to count do
    Begin
      A[i,i1]:=A[p,i1];
    end;
 
    if x>0 then
     begin
      inc (count);
      A[i,0]:=count;
      A[i,count]:=x;
     end;
    summ:=0;
   for i2:=1 to count do
    summ:=summ+A[i,i2];
    Writeln(F2,summ);
 
  end;
 close(F1);
 close(F2);
End.

Как его переделать так, чтобы он работал при 0<=x1,y2 <=10^9; 1 ≤ N ≤ 4*10^5, −1 ≤ x ≤ 10^9, 1 ≤ i ≤ N, 0 ≤ p ≤ j − 1

@Dmitrinik · 08.09.2012, 11:38

Использовать переменные типа LongInt и внимательно читать Help о типах и диапазонах их значений

@Bohes · 08.09.2012, 11:46 **[ТС]**

простая смена inegera на longint не помогает. Ошибки выдаются, когда x1,y1 ==<1000 000 000

@Puporev · 08.09.2012, 11:51

Вообще-то нужно писать какой Паскаль или создавать тему в соответствующем подразделе, а то напишут как в лужу....

Добавлено через 2 минуты
Да и задание свое секретное не грех бы написать, а то говорят есть форумы экстрасенсов..

@Bohes · 08.09.2012, 11:51 **[ТС]**

freepascal

@Puporev · 08.09.2012, 11:53

Сообщение от Bohes

Ошибки выдаются,

Какие ошибки, что в них сообщается? Может у Вас в коде вообще чушь написана.

@Bohes · 08.09.2012, 11:57 **[ТС]**

На улице зима. N детей захотело поиграть в снеговиков. Каждый ребенок имеет свой номер 1 ≤ i ≤ N. Каждый ребенок выбирает одного из уже существующих снеговиков, строит такого же, и либо добавляет с своему какой-то снежный ком сверху, либо убирает один ком сверху, либо оставляет как есть. Каждый снеговик имеет свою высоту - это сумма радиусов всех комов, из которых он составлен. Вам нужно для каждого снеговика узнать его высоту.
Формат входного файла
В первой строке записано целое число N. В следующих N строках задано по 2 числа - p, x. p - номер уже существующего снеговика, которого выбирает ребенок, и x - как ребенок его изменяет. Будем считать, что снеговик с номером 0 - пустой, с нулевой высотой. Если x == −1 - он убирает верхний ком. x == 0 - он не изменяет снеговика. x > 0 - он кладет сверху на снеговика снежный ком радиуса x. Все запросы корректны (снеговик с номером p всегда будет существовать. Если ребенок попробует убрать верхний ком, но его нет, высота снеговика останется нулевой).
Формат выходного файла
Вывести N чисел - высоту каждого снеговика.
Ограничения
1 ≤ N ≤ 4*10^5, −1 ≤ x ≤ 10^9, 0 ≤ p ≤ i − 1

Добавлено через 1 минуту
При массиве 1000х1000 код выполняется...
Пример входных данных:
6
0 10
1 2
2 6
3 -1
2 -1
4 -1

Сообщение от Puporev

Какие ошибки, что в них сообщается? Может у Вас в коде вообще чушь написана.

Добавлено через 2 минуты
Programm recived signal SIGSEGV sigmentation fault

@Dmitrinik · 08.09.2012, 13:00

Во Free Pascal есть тип DWord<=4 294 967 295 < 10^9

@Bohes · 08.09.2012, 13:06 **[ТС]**

Переформулировать задачу можно вот так:

Как создать массив 10^9 x 10^9 (если такое возможно)?

@Puporev · 08.09.2012, 13:11

Сообщение от Bohes

Как создать массив 10^9 x 10^9 (если такое возможно)?

Думаю Остапа понесло, при чем не в ту сторону...

@Bohes · 08.09.2012, 13:21 **[ТС]**

Сообщение от Puporev

Думаю Остапа понесло, при чем не в ту сторону...

Вы правы...прийдется искать другой путь

@Dmitrinik · 08.09.2012, 16:21

Сообщение от Bohes

Переформулировать задачу можно вот так:

Как создать массив 10^9 x 10^9 (если такое возможно)?

Да нет, вобщем-то понятные вопросы.
FreePascal - 32-разрядная система. Поэтому возможна адресация не более 4Гбайт, т.е. максимально можно добраться до 4 294 967 295-го байта ОП. На самом деле, если еще учесть базу сегмента, объем доступной памяти меньше (еще операционка съедает - телипается в верхних адресах, остается около 2Гбайт). А т.к. 4 294 967 295 < 10^18, то отсюда следует что? Правильно - Programm recived signal SIGSEGV sigmentation fault.

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Dmitrinik 539 / 399 / 99 Регистрация: 18.08.2012 Сообщений: 1,024
	08.09.2012, 11:38
	Использовать переменные типа LongInt и внимательно читать Help о типах и диапазонах их значений 0

@Bohes 12 / 8 / 6 Регистрация: 10.07.2011 Сообщений: 374 Записей в блоге: 1
	08.09.2012, 11:46 [ТС]
	простая смена inegera на longint не помогает. Ошибки выдаются, когда x1,y1 ==<1000 000 000 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.09.2012, 11:51
	Вообще-то нужно писать какой Паскаль или создавать тему в соответствующем подразделе, а то напишут как в лужу.... Добавлено через 2 минуты Да и задание свое секретное не грех бы написать, а то говорят есть форумы экстрасенсов.. 0

@Bohes 12 / 8 / 6 Регистрация: 10.07.2011 Сообщений: 374 Записей в блоге: 1
	08.09.2012, 11:51 [ТС]
	freepascal 0

@Dmitrinik 539 / 399 / 99 Регистрация: 18.08.2012 Сообщений: 1,024
	08.09.2012, 13:00
	Во Free Pascal есть тип DWord<=4 294 967 295 < 10^9 0

@Bohes 12 / 8 / 6 Регистрация: 10.07.2011 Сообщений: 374 Записей в блоге: 1
	08.09.2012, 13:06 [ТС]
	Переформулировать задачу можно вот так: Как создать массив 10^9 x 10^9 (если такое возможно)? 0