Не запускает програму

@Ylubochka · Регистрация: 10.11.2011

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

Запускаю програму на турбо паскале и оно выбивает ошибку на StrIntTo. Что делать с прогой можно и почему ошибка?

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
program algoritm;
uses crt;
var i,des,n,l,dva,delo:integer;
s,dvaS,s2:string;
begin
Writeln('Vvedite shestnadtsatichnoe chislo:');
read(s);
l:=length(s);
for i:=1 to length(s) do
begin
if (s[i]>#47) and (s[i]<#58) then 
begin
dva:=StrToInt(s[i]);
if dva=0 then s2:='0000';
if dva=1 then s2:='0001';
if dva=2 then s2:='0010';
if dva=3 then s2:='0011';
if dva=4 then s2:='0100';
if dva=5 then s2:='0101';
if dva=6 then s2:='0110';
if dva=7 then s2:='0111';
if dva=8 then s2:='1000';
if dva=9 then s2:='1001';
end
else 
begin
if s[i]='A' then s2:='1010';
if s[i]='B' then s2:='1011';
if s[i]='C' then s2:='1100';
if s[i]='D' then s2:='1101';
if s[i]='E' then s2:='1110';
if s[i]='F' then s2:='1111';
end;
dvaS:=dvaS+S2;
end;
Writeln('Dvoichnoe chislo: ',dvaS);
end.

@Puporev · 02.12.2011, 20:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var dva:char;
..............
for i:=1 to length(s) do
begin
if s[i]in ['0'..'9'] then
begin
if dva='0' then s2:='0000';
if dva='1' then s2:='0001';
if dva='2' then s2:='0010';
if dva='3' then s2:='0011';
if dva='4' then s2:='0100';
if dva='5' then s2:='0101';
if dva='6' then s2:='0110';
if dva='7' then s2:='0111';
if dva='8' then s2:='1000';
if dva='9' then s2:='1001';

@Ylubochka · 02.12.2011, 21:39 **[ТС]**

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

if s[i]in ['0'..'9] then

Cнова ошибка...

@Puporev · 02.12.2011, 21:45

Pascal
1
if s[i]in ['0'..'9'] then

Пропустил апостроф после 9, надо бы такое самой уметь находить.

@Ylubochka · 02.12.2011, 21:50 **[ТС]**

я подумала, но малоли, лучше спрошу... Уже три дня нет нормального сна с этой учёбой

Добавлено через 3 минуты
А как настроить, чтобы прога прибавляла правильно 1010+1111=10101111 считаетО_о
1010+1111=11000 - правильно

@Puporev · 03.12.2011, 09:21

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

чтобы прога прибавляла правильно

Здесь же не сложение, а приписывание, тетрады это цифры в СС16, записанные в СС2.
Например 10101111 это число AF

Добавлено через 2 минуты
Сложение чисел в СС2 это совсем другое, если нужно, вот пример.

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
uses crt;
var s1,s2:string;
    a,b,c:array[byte] of 0..1;
    n,m,i,j,p:byte;
    k:integer;
begin
clrscr;
repeat
p:=0;
write('Введите число A в СС 2:');
readln(s1);
i:=1;
while(i<=length(s1))and(p=0) do
if not(s1[i] in ['0','1']) then p:=1
else i:=i+1;
until p=0;
repeat
p:=0;
write('Введите число B в СС 2:');
readln(s2);
i:=1;
while(i<=length(s2))and(p=0) do
if not(s2[i] in ['0','1']) then p:=1
else i:=i+1;
until p=0;
if length(s1)<length(s2) then
while length(s1)<length(s2) do
s1:='0'+s1
else if length(s1)>length(s2) then
while length(s2)<length(s1) do
s2:='0'+s2;
writeln('  ',s1);
writeln(' +');
writeln('  ',s2);
for i:=1 to length(s1)+2 do
write('-');
writeln;
n:=length(s1);
m:=n;
for i:=1 to n do
 begin
  val(s1[i],a[i],k);
  val(s2[i],b[i],k);
 end;
p:=0;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>1)and(i>1) then
      begin
       c[i]:=c[i] mod 2;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>1 then
  begin
    c[1]:=c[1] mod 2;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
  end;
if n=m then write('  ')
else write(' ');
for i:=1 to n do
write(c[i]);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	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. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Ylubochka 14 / 0 / 0 Регистрация: 10.11.2011 Сообщений: 15
	02.12.2011, 21:50 [ТС]
	я подумала, но малоли, лучше спрошу... Уже три дня нет нормального сна с этой учёбой Добавлено через 3 минуты А как настроить, чтобы прога прибавляла правильно 1010+1111=10101111 считаетО_о 1010+1111=11000 - правильно 0