Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
RossWales
3 / 3 / 4
Регистрация: 12.05.2015
Сообщений: 40
1

Нет индексного свойства по умолчанию для функционального типа

14.05.2015, 09:42. Просмотров 898. Ответов 1
Метки нет (Все метки)

Ошибка в строке 42, помогите исправить. За ранее спасибо

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
program test;
 
const
  s0 = '00000001';
 
var
  s, ss: string;
  c, a, carry, i: integer;
  f1: boolean;
 
begin
  Writeln('-127 <= a <= 127');
  s := ''; 
  readln(a);
  if abs(a) > 127 then exit;
  
  if a < 0 then f1 := true else f1 := false;
  a := abs(a);
  while not (a = 0) do
  begin
    c := (a mod 2);
    a := a div 2;
    if c = 0 then s := '0' + s else s := '1' + s;
  end;
  
  while length(s) < 7 do 
    s := '0' + s;
  if f1 = true
    then s := '1' + s
  else s := '0' + s;
  if f1 = false 
    then writeln('прямой код= ', s, 'обратный код= ', s, 'дополнительный код= ', s)
  else begin
    write('прямой код=', s);
    carry := 0;
    for i := 0 downto 1 do 
    begin
      c := (ord(s[i]) - ord('0')) + (ord(s0[i]) - ord('0')) + carry;
      carry := c div 2;
      c := c mod 2;
      ss := '';
      ss := char(c + ord['0']) + ss;
    end;
    if carry <> 0 then ss := '1' + ss;
    writeln('dop= ', ss);
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2015, 09:42
Ответы с готовыми решениями:

Нет индексного свойства по умолчанию для типа real
uses graphABC; type point = record x, y: integer; end; var ...

Нет индексного свойства по умолчанию для типа integer
var n, m, x, y, a, i:integer; begin readln(n,m); for i:=1 to n do...

Нет индексного свойства по умолчанию для типа integer
Program Massivi; uses crt; Type Digit=array of integer; Matrix=array of...

Нет индексного свойства по умолчанию для типа integer
В общем дошел до процедур и функций и решил попрактиковаться в них, написав...

Ошибка: Нет индексного свойства по умолчанию для типа char
program kajdiuvtoroi; var a, b : string; begin writeln('введите строку:');...

1
JuriiMW
1992 / 1077 / 1573
Регистрация: 10.12.2014
Сообщений: 4,040
14.05.2015, 10:07 2
ord['0'] — заменить на круглые скобки!

A лучше внести константу:

Pascal
1
const ord0 = ord('0');
… и затем везде в коде подставить вместо „ord('0')“ новую константу „ord0“.

Т.е. один раз получить значение и использовать его, чем три раза рассчитывать одно и то же значение для каждого символа строки!
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2015, 10:07

Нет индексного свойства по умолчанию для типа integer (поиск крайних точек)
Всю плешь выела чёртова задача. День думал над тем как реализовать, день писал...

Program1.pas(144) : Нет индексного свойства по умолчанию для типа real
При компиляции программы выводит ошибку в 144 строке : Нет индексного свойства...

"Нет индексного свойства по умолчанию для типа integer"
При написании программы Pascal выдает такую ошибку . Вот код программы type ...


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

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

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