Написала программу (строка-число). В чем ошибка?

Question

[marina_m16]

"Напишите программу, которая вычисляет сумму трех чисел, введенную в форме символьной строки. Все числа целые. Пример: Введите выражение: 12+3+45, Ответ: 60"

program A2;
var s,s1,s2,s3: string;
begin
  writeln ('Введите три целых числа');
  readln (s1);
  readln(s2);
  readln (s3);
  s:=s1+s2+s3;
  writeln (s1, '+', s2, '+', s3, '=', s);
  readln;
end.

Comments

[Армянское Радио]

Мы тем более не знаем, в чем ошибка.

[Vast Nectarine]

Армянское Радио, ошибок никаких нет. Програма компилируется, но работает некорректно. (Я не автор вопроса)

[Дмитрий Беляев]

В чем ошибка?

В неумении читать задание?

[Ярослав Иванов]

12 + 3 + 45 = 12345?
Лучше больше чем меньше

[Dimonchik]

в Паскале нет явного приведения типов?

[Hemul GM]

dimonchik2013, перевод символа в число - это не явное приведение. Потому что символ - это байт. И если ты возьмёшь и приведешь символ "1" к числу, то ты получишь не число 1, а номер символа "1".

Answer 1

[Hemul GM]

Вы неверно выполняете задание. На вход у вас одна строка "12+3+45", а не 3 разных переменных.
Следовательно, вы должны разделить строку по символам "+". И каждый отдельный набор символов, в данном случае
это 12, 3 и 45 привести к числовому типу, используя StrToInt или Val.

Comments

[marina_m16]

А как строку, которая получается вся обозначена переменной S разделить на отдельные переменные или символы, чтобы дальше привести уже к числовому типу?

[Hemul GM]

marina_m16, в простом паскале - цикл. Поочереди по символам проходишь и проверяешь на символ "+". Если найден, значит до этого было число.
Примерно вот. Код не проверял.

var 
  S: string := '12+3+45';
  tmp: string; 
  n: integer;

begin
  tmp := '';
  n := 0;
  for i := 1 to Length(S) do
  begin
    if S[i] <> '+' then
      tmp := tmp + S[i];
    if (S[i] = '+') or (i = Length(S)) then
    begin
      n := n + StrToInt(tmp);
      tmp := '';
    end;
  end;
end;

n - сумма чисел

Answer 2

[Джамалудин Османов]

Для переменных нужно указать тип число, т.к. при сложение строк они продолжают друг друга:

'1'+'2'+'3'='123'

1+2+3=6

program A2;
var s,s1,s2,s3: integer;
begin
  writeln('Введите три целых числа');
  readln(s1);
  readln(s2);
  readln(s3);
  s:=s1+s2+s3;
  writeln (s1, '+', s2, '+', s3, '=', s);
  readln;
end.