Сравнить последнюю букву 1-го слова и первую букву 2-го слова

@Silendave · Регистрация: 17.11.2021

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

Я хотел написать программу которая сравнивает последнюю букву первого слова и первую букву второго слова. Эти слова должны вводиться в одной строке. У меня получилось это

Pascal

Program fgh;
Var c,s:string;
Begin
 s:=[length(s) ;    - если пишу так пишет что Нельзя преобразовать тип integer к string
 c:= c[1];
if s=c then writeln('Да') 
Else writeln('Нет') 
End.

Помогите люди добрые, я туплю.

Добавлено через 7 минут
Ой

Read(s,c) ; я написал это после Begin

@XzzzX · 17.11.2021, 20:18

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

если пишу так пишет что Нельзя преобразовать тип integer к string

потому что у Вас s имеет тип string, а Вы пытаетесь присвоить ему integer, который возвращает length(s)
хотя я может чего не понял? просто тот код, который Вы прислали, вообще некомпилируем, так что я предположил, что [ тут лишнее. если наоборот не хватает закрывающей скобки, то вероятно Вы хотели написать s:=s[length(s)] ;

@Silendave · 17.11.2021, 20:23 **[ТС]**

Да, такое компилируемо но когда я ввожу любое слово то пишет что Ошибка времени выполнения: Индекс находился вне границ массива.
Я написал слово 'Привет' и такая ошибка, я писал два слова в строке но все равно такая ошибка.

Добавлено через 1 минуту
Я уже пытался писать так как вы сказали, раньше.

@XzzzX · 17.11.2021, 20:28

а это уже возникает из-за очень неудачного метода чтения строк. не буду рассказывать о спец символах, но если Вам нужно прочитать что-то после чтения строки, то нужно следить, что бы при прошлом чтении был выполнен переход на новую строку.
короче говоря, преобразуйте своё Read(s,c) ; в Readln(s); read(c);

@Silendave · 17.11.2021, 20:32 **[ТС]**

Огромное спасибо!
А можно как то сделать чтобы программа читала 2 слова в одной строке, а не 1 слово в 1 строке???
Типа не Readln(x) и read(x) а read(x) read(x)

@XzzzX · 17.11.2021, 20:37

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

А можно как то сделать чтобы программа читала 2 слова в одной строке, а не 1 слово в 1 строке???

можно, только решение Вам понравится ещё меньше, чем чтение по одному слову

@Silendave · 17.11.2021, 20:38 **[ТС]**

Тогда очень прошу вас его написать. Если не пойму то разберусь!

@XzzzX · 17.11.2021, 20:48

это если остальную часть программы не менять

Pascal

Var c,s:string;
Begin
readln(s);
var a:= s.ToWords;
(s, c):= (a[0], a[1]);
end.

после этих ~~бесполезных~~ действий слова будут в нужных Вам переменных. если действительно разберётесь, то поймёте и как упростить

@Silendave · 17.11.2021, 20:57 **[ТС]**

Огромное спасибо!

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	17.11.2021, 20:18	2
	Сообщение от Silendave если пишу так пишет что Нельзя преобразовать тип integer к string потому что у Вас `s` имеет тип `string`, а Вы пытаетесь присвоить ему `integer`, который возвращает `length(s)` хотя я может чего не понял? просто тот код, который Вы прислали, вообще некомпилируем, так что я предположил, что `[` тут лишнее. если наоборот не хватает закрывающей скобки, то вероятно Вы хотели написать `s:=s[length(s)] ;` 0

@Silendave 2 / 2 / 0 Регистрация: 17.11.2021 Сообщений: 30
	17.11.2021, 20:23 [ТС]	3
	Да, такое компилируемо но когда я ввожу любое слово то пишет что Ошибка времени выполнения: Индекс находился вне границ массива. Я написал слово 'Привет' и такая ошибка, я писал два слова в строке но все равно такая ошибка. Добавлено через 1 минуту Я уже пытался писать так как вы сказали, раньше. 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	17.11.2021, 20:28	4
	а это уже возникает из-за очень неудачного метода чтения строк. не буду рассказывать о спец символах, но если Вам нужно прочитать что-то после чтения строки, то нужно следить, что бы при прошлом чтении был выполнен переход на новую строку. короче говоря, преобразуйте своё `Read(s,c) ;` в `Readln(s); read(c);` 0

@Silendave 2 / 2 / 0 Регистрация: 17.11.2021 Сообщений: 30
	17.11.2021, 20:32 [ТС]	5
	Огромное спасибо! А можно как то сделать чтобы программа читала 2 слова в одной строке, а не 1 слово в 1 строке??? Типа не Readln(x) и read(x) а read(x) read(x) 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	17.11.2021, 20:37	6
	Сообщение от Silendave А можно как то сделать чтобы программа читала 2 слова в одной строке, а не 1 слово в 1 строке??? можно, только решение Вам понравится ещё меньше, чем чтение по одному слову 0

@Silendave 2 / 2 / 0 Регистрация: 17.11.2021 Сообщений: 30
	17.11.2021, 20:38 [ТС]	7
	Тогда очень прошу вас его написать. Если не пойму то разберусь! 0

@Silendave 2 / 2 / 0 Регистрация: 17.11.2021 Сообщений: 30
	17.11.2021, 20:57 [ТС]	9
	Огромное спасибо! 0