Внести необходимые изменения в программу

@of · Регистрация: 01.04.2016

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

Программа не запускается в фри паскале потому что сделана в абс что поменять нужно?

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
const
  NUMBER_OF_DIGITS = 16;
  HEX_DIGITS: array[1..NUMBER_OF_DIGITS] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
  DEC: array[1..NUMBER_OF_DIGITS] of string = ('0','1','2','3','4','5','6','7','8','9','10','11','12','13','14','15');
  Nmax = 100;  
type
  vector = array[1..Nmax] of string;                                     
var
  digitsFile: text; 
  digits: vector;
  digitsNumber: integer; 
  newDigitsFile: text;
  i: integer;
  firstPart, secondPart, allResults: string;
{процедура посимвольного чтения файла}   
procedure loadFromFile(path: string; var digitsFile: text; var digits: vector;var digitsNumber: integer);
  var 
    symbol: char; 
  begin
    digitsNumber := 1; 
    assign(digitsFile, path);
    reset(digitsFile);
    while not eof(digitsFile) do begin
      while not Eoln(digitsFile) do begin
        read(digitsFile, symbol);
        if (symbol <> ' ') then
          digits[digitsNumber] := digits[digitsNumber] + symbol;
        if (symbol = ' ') then
          digitsNumber := digitsNumber + 1;
      end;
      Readln(digitsFile);
    end;
  end;
{функция перевода символов из массива чисел шестнадцатеричной системы}  
function getDecimal(source: string): string;
  var 
    i, j: integer;
    res: string;
  begin
    res := '';
    for i := 1 to length(source) do begin
      for j := 1 to NUMBER_OF_DIGITS do begin
        if source[i] = HEX_DIGITS[j] then begin
          res := res + DEC[j];
        end;
      end;
    end;
    getDecimal := res;
  end; 
{перевод исходного числа в десятичную систему счисления}
function hexToDecimal(source: string): string;
  var 
    i: integer;
    numberStr: string;
    numberVal: integer;
    sum: integer;
    res: string;
    processingString: string;
  begin
    processingString := source;
    if source[1] = '-' then begin
        processingString := Copy(source, 2, length(source) - 1);
        res := res + '-'; 
    end;
    for i := length(processingString) downto 1 do begin
      numberStr := getDecimal(processingString[i]);
      numberVal := StrToInt(numberStr);
      sum := sum + numberVal * Round(Power(16, Length(processingString) - i));
    end;
    res := res + IntToStr(sum);
    hexToDecimal := res;
  end;
  
begin
firstPart := 'Исходные числа: ';
  loadFromFile('Source.txt', digitsFile, digits, digitsNumber);
  for i := 1 to digitsNumber do 
   begin
     firstPart := firstPart + digits[i];
     if i=digitsNumber then break;
     firstPart := firstPart + ' ';
   end; 
secondPart := 'В десятичной СС: ';
   for i := 1 to digitsNumber do
    begin
     secondPart := secondPart + hexToDecimal(digits[i]);
     if i=digitsNumber then break;
     secondPart := secondPart + ' ';
    end;  
allResults:= firstPart + #13#10 + secondPart;
assign (newDigitsFile, 'Results.txt');
rewrite (newDigitsFile);
write (newDigitsFile,allResults);
close(newDigitsFile);
end.

@ZX Spectrum-128 · 20.05.2016, 09:25

Pascal
1
2
uses
  sysutils, math;

@of · 30.05.2016, 21:14 **[ТС]**

Сообщение от ZX Spectrum-128

PascalВыделить код
1
2
uses
* sysutils, math;

вот такая ошибка

@ZX Spectrum-128 · 30.05.2016, 21:25

Я же вам уже сказал, что добавить эти строчки в начало программы:

Pascal
1
2
uses
  sysutils, math;

@of · 30.05.2016, 22:01 **[ТС]**

Сообщение от ZX Spectrum-128

Я же вам уже сказал, что добавить эти строчки в начало программы:
Pascal

ну я подставил только он теперь неправильно переводит из системы в ситему числа огромные слишком

Добавлено через 24 минуты
ZX Spectrum-128, можете подсказать почему просто очень срочно нужно

@ZX Spectrum-128 · 31.05.2016, 11:26

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
uses
  math,sysutils;
const
  NUMBER_OF_DIGITS = 16;
  HEX_DIGITS: array[1..NUMBER_OF_DIGITS] of char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
  DEC: array[1..NUMBER_OF_DIGITS] of string = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15');
  Nmax = 100;
 
type
  vector = array[1..Nmax] of string;
 
var
  digitsFile: text;
  digits: vector;
  digitsNumber: integer;
  newDigitsFile: text;
  i: integer;
  firstPart, secondPart, allResults: string;
{процедура посимвольного чтения файла}
procedure loadFromFile(path: string; var digitsFile: text; var digits: vector; var digitsNumber: integer);
var
  symbol: char;
begin
  digitsNumber := 1;
  assign(digitsFile, path);
  reset(digitsFile);
  while not eof(digitsFile) do
  begin
    while not Eoln(digitsFile) do
    begin
      read(digitsFile, symbol);
      if (symbol <> ' ') then
        digits[digitsNumber] := digits[digitsNumber] + symbol;
      if (symbol = ' ') then
        digitsNumber := digitsNumber + 1;
    end;
    Readln(digitsFile);
  end;
end;
{функция перевода символов из массива чисел шестнадцатеричной системы}
function getDecimal(source: string): string;
var
  i, j: integer;
  res: string;
begin
  res := '';
  for i := 1 to length(source) do
  begin
    for j := 1 to NUMBER_OF_DIGITS do
    begin
      if source[i] = HEX_DIGITS[j] then begin
        res := res + DEC[j];
      end;
    end;
  end;
  getDecimal := res;
end;
{перевод исходного числа в десятичную систему счисления}
function hexToDecimal(source: string): string;
var
  i: integer;
  numberStr: string;
  numberVal: integer;
  sum: integer;
  res: string;
  processingString: string;
begin
  res:='';
  processingString := source;
  if source[1] = '-' then begin
    processingString := Copy(source, 2, length(source) - 1);
    res := res + '-';
  end;
  sum:=0;
  for i := length(processingString) downto 1 do
  begin
    numberStr := getDecimal(processingString[i]);
    numberVal := StrToInt(numberStr);
    sum := sum + numberVal * Round(Power(16, Length(processingString) - i));
  end;
  res := res + IntToStr(sum);
  hexToDecimal := res;
end;
 
begin
  firstPart := 'Исходные числа: ';
  loadFromFile('Source.txt', digitsFile, digits, digitsNumber);
  for i := 1 to digitsNumber do
  begin
    firstPart := firstPart + digits[i];
    if i = digitsNumber then break;
    firstPart := firstPart + ' ';
  end;
  secondPart := 'В десятичной СС: ';
  for i := 1 to digitsNumber do
  begin
    secondPart := secondPart + hexToDecimal(digits[i]);
    if i = digitsNumber then break;
    secondPart := secondPart + ' ';
  end;
  allResults := firstPart + #13#10 + secondPart;
  assign(newDigitsFile, 'Results.txt');
  rewrite(newDigitsFile);
  write(newDigitsFile, allResults);
  close(newDigitsFile);
  readln;
end.

@volvo · 01.06.2016, 11:55

Опять же непонятно, в чем состоит задача, и каково содержимое файла Source.txt. Если что, с использованием библиотеки gmp и других возможностей FPC, этот код можно переписать гораздо более компактно.

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

он теперь неправильно переводит из системы в ситему числа огромные слишком

Огромные слишком - это насколько огромные? Содержимое файла данных приведи, вместе с точным заданием.

@of · 08.06.2016, 22:31 **[ТС]**

Сообщение от ZX Spectrum-128

processingString: string;

Сообщение от ZX Spectrum-128

res := res + '-';

может кто нибудь сказать что означают эти 2 строки в программе и вообще что значит res i j

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

Внести необходимые изменения в программу

Решение

Решение