Объединить три слова в одну строку

@ivan_grigoriev · Регистрация: 08.12.2020

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

Составить программу, которая:

вводит три слова в разные строковые переменные;
объединяет введенные строки с учетом разделения слов пробелом и точкой;
определяет длину полученного предложения;
выводит пятый с начала и с конца символ предложения;
заменяет последний символ символом «S».

@ZX Spectrum-128 · 31.12.2020, 15:03

Pascal

var
  s1, s2, s3, s: string;
 
begin
  write('Введите 1-е слово: ');
  readln(s1);
  write('Введите 2-е слово: ');
  readln(s2);
  write('Введите 3-е слово: ');
  readln(s3);
  s := s1 + ' ' + s2 + ' ' + s3 + '.';
  writeln('Полученное слово: ', s);
  writeln('Его длина: ', length(s));
  writeln('Пятый с начала и с конца символ предложения: ', s[5], ',', s[length(s) - 5]);
  s[length(s)] := 'S';
  writeln(s);
end.

@bormant · 31.12.2020, 17:36

ZX Spectrum-128,

Pascal

14	writeln('Пятый с начала и с конца символ предложения: ', Copy(s,5,1), ',', Copy(s,Length(s)-5,1));

Вот только не надо говорить, что это одно и то же -- разница есть ;-)

@ZX Spectrum-128 · 01.01.2021, 09:22

bormant, выводит одно и то же. А в чем подвох?

@bormant · 01.01.2021, 10:30

Сообщение от ZX Spectrum-128

в чем подвох?

Copy проверяет фактическую длину строки. При Length(s)<5 Copy вернет пустую строку, а s[] сходит в память, s[5] -- в пределах переменной строки, но за пределами фактической длины; а s[Length(s)-5] или в байт длины (получив Chr(1)) или в байт перед (за пределами) s.
При вводе пустых строк (проверок нет) обе ситуации возможны.

@Puporev · 01.01.2021, 10:59

Просто нужно всегда делать проверку ввода, что длина итоговой строки не менее 5 символов.

@ivan_grigoriev 0 / 0 / 0 Регистрация: 08.12.2020 Сообщений: 4
		1
	Объединить три слова в одну строку 26.12.2020, 20:46. Показов 2795. Ответов 5 Метки паскаль (Все метки) Составить программу, которая: вводит три слова в разные строковые переменные; объединяет введенные строки с учетом разделения слов пробелом и точкой; определяет длину полученного предложения; выводит пятый с начала и с конца символ предложения; заменяет последний символ символом «S». 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	01.01.2021, 09:22	4
	bormant, выводит одно и то же. А в чем подвох? 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	01.01.2021, 10:30	5
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Сообщение от ZX Spectrum-128 в чем подвох? Copy проверяет фактическую длину строки. При Length(s)<5 Copy вернет пустую строку, а s[] сходит в память, s[5] -- в пределах переменной строки, но за пределами фактической длины; а s[Length(s)-5] или в байт длины (получив Chr(1)) или в байт перед (за пределами) s. При вводе пустых строк (проверок нет) обе ситуации возможны. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.01.2021, 10:59	6
	Просто нужно всегда делать проверку ввода, что длина итоговой строки не менее 5 символов. 2

Объединить три слова в одну строку

Решение