Разделить введеную строку на 2 части и прибавить число из второй части к переменнной

@Андрей1926 · Регистрация: 18.03.2015

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

Задание:
если вводится "сила 5" прибавить 5 (или другое введенное число) к переменной str и вывести "Сила +5". Если вводится "ловкость" то прибавить число к переменной dex и вывести "Ловкость +введенное число."

Pascal

uses crt;
var
s: string;
str,dex: integer;
begin
str:=0;
read(s);
s.towords; // здесь я делю строку на 2 части
if (towords[0] = сила) then //если первая часть равно "сила"
str:=str + strtoint.towords[1]; // прибавить число к str
write();
end

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

@Puporev · 22.09.2018, 12:21

А не проще просто вставить символ + в строку?

Pascal

var
s: string;
begin
read(s);//сила 5
insert('+',s,pos(' ',s)+1);
write(s);//сила +5
end.

Добавлено через 1 минуту
А у Вас нужно писать так
if s.towords[0] = 'сила'
strtoint(s.towords[1]);

@Андрей1926 · 22.09.2018, 14:11 **[ТС]**

Спасибо. Но тут еще не все.

Pascal

uses crt;
 
var
s: string;
str,dex: integer;
begin
str:=0;
read(s);
 
if s.towords[0] = 'сила' then
strtoint(s.towords[1]);
str:=str+s.ToWords[1]
writeln(s.ToWords[0] +str);
;
 
if s.towords[0] = 'ловкость' then
strtoint(s.towords[1]);
dex:=dex+s.ToWords[1]
writeln(s.ToWords[0] + dex);
;
end.

Пишет "нельзя преобразовать тип string к integer".

@Puporev · 22.09.2018, 14:17

Pascal

1 2	str:=str+strtoint(s.ToWords[1]); dex:=dex+strtoint(s.ToWords[1]);

И все равно какая-то глупость написана.

@Андрей1926 · 22.09.2018, 14:35 **[ТС]**

Ну мне так надо. Где глупость?
Вставить плюс конечно проще... А если начальное количество str не равно нулю и надо вывести новое значение. Там у меня "сила 5" значит не 5, а плюс 5. Распределение очков.

Я вот в другом вижу глупость. Ну или не совсем логику.
Зачем преобразовывать еще раз string в integer если мы же уже преобразовали в 11ой строке?

Добавлено через 10 минут
И еще там должна быть переменная points откуда иы распределяем и надо повторять операцию до тех пор пока она не станет равной нулю.

Pascal

points: integer;
...
read(s);
вот тут цифру которую вводим нужно отнять от points и прибавить к характеристике что вводим и так пока она не станет равной нулю

@Puporev · 22.09.2018, 14:44

Сообщение от Андрей1926

Зачем преобразовывать еще раз string в integer если мы же уже преобразовали в 11ой строке?

Да потому что мы не преобразовали строку в число, а в действии используем числовое значение строки.

@Андрей1926 · 22.09.2018, 14:46 **[ТС]**

А то есть строка так и остается стрингом?

@Puporev · 22.09.2018, 14:48

Да. Если присвоить ее числовое значение другой переменной, то там будет целое число, а если не присваивать, то так строка и останется.

@Андрей1926 · 22.09.2018, 16:11 **[ТС]**

Если введено отличное от слов "сила" и "ловкость" значение, как показать что введенное значение неверно и вывести предупреждение?

Pascal

if s.towords[0] = 'сила' then
begin
strtoint(s.towords[1]);
str:=str+strtoint(s.ToWords[1]);
points:=points-strtoint(s.ToWords[1]);
writeln(s.ToWords[0],' ', + str);
end;
else
writeln('Неправильно введен параметр');

Пишет "встречено else, а ожидался оператор".

@Puporev · 22.09.2018, 16:13

В строке 7 убери точку с запятой.

@Андрей1926 · 22.09.2018, 16:39 **[ТС]**

Спасибо. Строку из else всеравно выводит даже если значения верны. Это почему так?

И еще вот. Тут: индекс находится вне границ массива. Ошибка при выполнении.

Pascal

var
s: string;
str,dex,points: integer;
begin
str:=0;
points:=25;
repeat
read(s);
 
if s.towords[0] = 'сила' then
begin
strtoint(s.towords[1]);
str:=str+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] +str);
end
else
writeln('Не правильно введен параметр');
 
 
if s.towords[0] = 'ловкость' then
begin
strtoint(s.towords[1]);
dex:=dex+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] + dex);
end
else
writeln('Не правильно введен параметр');
 
until points<0;
end.

@Puporev · 22.09.2018, 16:50

Что такое points и как оно станет меньше 0?
Зачем у Вас строки 12 и 22?

@Андрей1926 · 23.09.2018, 07:45 **[ТС]**

Вчера не дописал... Points вот.
А 12 и 22 это я тогда думал что преобразование идет навсегда, а не в действии. Ошибся тоесть.

Pascal

var
s: string;
str,dex,points: integer;
begin
str:=0;
points:=25;
repeat
read(s);
 
if s.towords[0] = 'сила' then
begin
str:=str+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] +str);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
writeln('Не правильно введен параметр');
 
 
if s.towords[0] = 'ловкость' then
begin
dex:=dex+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] + dex);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
writeln('Не правильно введен параметр');
 
until points<0;
end.

Ошибка про индекс вне границ осталась для 10 строки. И предупреждение о неправильном вводе срабатывает.

Добавлено через 17 минут
Ну почему выводится предупреждение это понятно: если для параметра "сила" параметр "ловкость" неправильный и наоборот, поэтому если вводим ловкость то выполняется else. Только как исправить я не знаю...

@Puporev · 23.09.2018, 08:12

Pascal

repeat
readln(s);//не нужно писать read
if s.towords[0] = 'сила' then
begin
str:=str+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] +str);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
if s.towords[0] = 'ловкость' then
begin
dex:=dex+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] + dex);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
writeln('Не правильно введен параметр');
 
until points<0;

Добавлено через 16 минут

Сообщение от Андрей1926

Ну почему выводится предупреждение это понятно:

Потому что не нужно это писать 2 раза.

@Андрей1926 · 23.09.2018, 11:58 **[ТС]**

Спасибо вам!

В конце где end с точкой пишет: Встречено 'end', а ожидалось ';'...
Посмотрел, вроде не должно уже ошибок быть.

@Puporev · 23.09.2018, 12:26

Брось ты это программирование если ума нет.

Pascal

var
s: string;
str,dex,points: integer;
begin
str:=0;
points:=25;
repeat
readln(s);//не нужно писать read
if s.towords[0] = 'сила' then
begin
str:=str+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] +str);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
if s.towords[0] = 'ловкость' then
begin
dex:=dex+strtoint(s.ToWords[1]);
writeln(s.ToWords[0] + dex);
points:=points-strtoint(s.ToWords[1]);
writeln('Очков осталось:',' ', points);
end
else
writeln('Не правильно введен параметр');
 
until points<0;
end.

@Андрей1926 · 23.09.2018, 12:33 **[ТС]**

Да ум то есть, просто паралельно еще джаву изучаю. Устаю сильно... Ошибся там, из-за такой ерунды бросать. Я ж еще не начал толком)).

Вот внимательности мне иногда не хватает это правда.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.09.2018, 14:44	6
	Сообщение от Андрей1926 Зачем преобразовывать еще раз string в integer если мы же уже преобразовали в 11ой строке? Да потому что мы не преобразовали строку в число, а в действии используем числовое значение строки. 1

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 177
	22.09.2018, 14:46 [ТС]	7
	А то есть строка так и остается стрингом? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.09.2018, 14:48	8
	Да. Если присвоить ее числовое значение другой переменной, то там будет целое число, а если не присваивать, то так строка и останется. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.09.2018, 16:13	10
	В строке 7 убери точку с запятой. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.09.2018, 16:50	12
	Что такое points и как оно станет меньше 0? Зачем у Вас строки 12 и 22? 0

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 177
	23.09.2018, 11:58 [ТС]	15
	Спасибо вам! В конце где end с точкой пишет: Встречено 'end', а ожидалось ';'... Посмотрел, вроде не должно уже ошибок быть. 0

@Андрей1926 123 36 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 177
	23.09.2018, 12:33 [ТС]	17
	Да ум то есть, просто паралельно еще джаву изучаю. Устаю сильно... Ошибся там, из-за такой ерунды бросать. Я ж еще не начал толком)). Вот внимательности мне иногда не хватает это правда. 0

Разделить введеную строку на 2 части и прибавить число из второй части к переменнной

Решение