Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 31.03.2015
Сообщений: 9
1

Почему не работает программа?

11.04.2015, 15:25. Показов 434. Ответов 2
Метки нет (Все метки)

Пишет ошибку,почему?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n,i,dl,ball1,ball2:integer;
a:string;
begin
ClrScr;
Write(' Введите количество человек: '); readln(i);
for n:=1 to 1 do
begin
dl:=12;
ball2:= StrToInt(copy(a,dl,1))+StrToInt(copy(a,dl-1,1))*10;
ball1:=StrToInt(copy(a,dl-3,1))+StrToInt(copy(a,dl-4,1))*10+ball2;
a:=copy(a,1,dl-6)+IntToStr(ball1);
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2015, 15:25
Ответы с готовыми решениями:

программа не работает,почему?
program fg; type zap = record prep:integer; hova:integer; end; label m1,m2,m3; var str:zap;...

почему не работает программа на паскале?
program Project2; {$APPTYPE CONSOLE} const cmNeg = -7; var PC: integer; K: array of...

Почему не работает программа на паскале?
VAR a,b,c, :integer; BEGIN writeln ('Вычисление стоимости покупки'); writeln ('Введите исходные...

почему у меня программа не работает ..подскажите
Задание: Создать в программе Блокнот текстовый файл. Написать программу, которая расшифровывает...

__________________
2
Эксперт Pascal/Delphi
6619 / 4451 / 4740
Регистрация: 05.06.2014
Сообщений: 21,871
11.04.2015, 15:38 2
Цитата Сообщение от Антон17 Посмотреть сообщение
copy(a,dl,1
Пытаетесь выдернуть из пустой строки символ, начиная с 12-й позиции. Понятно, что strtoint ругается на попытку преобразовать "ничто" в число.
0
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
11.04.2015, 15:39 3
Потому что не вводится а
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2015, 15:39

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Почему не работает программа с использованием записей?
Дан список друзей: фамилии, имена, адреса (город, улица, дом, квартира). Требуется: а) найти...

Объяснить, почему программа для подсчёта скобок в тексте работает не так, как ожидается
я ввожу текст в блокноте с скобками, мне нужно подсчитать количество скобок в программе, но у меня...

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти
{Ввести последовательность натуральных чисел Aj j=1...n (n<=1000). Упорядочить последовательность...

Почему программа не работает на MFC статичной библиотеки. а вот на стандартном мфс работает
почему программа не работает на MFC статичной библиотеки. а вот на стандартном мфс работает. Имею...


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

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

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