Как найти последний символ в строке паскаль

Последний символ ?

	29.11.2003 4:22 Сообщение #1
Гость	HI ! У меня такая проблема : «Напишите программу, присваивающую переменной Char последний символ введенной строки. « Я думаю , что это надо делать так, Прочитать строку , узнать количество символов….. Но как вывести именно последний ? Первый понятно как, а вот поледний ? Возможно ли пустить цикл For I:=1 to Length(S) do ; И как из этого значения взять последний символ ? С:=S[ Последний символ];

SKVOZNJAK	29.11.2003 6:53 Сообщение #2
Профи Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация:   11	Если не нравится гото, придумай сам, как от него избавиться ;D Код PROGRAM STROKA; VAR A: STRING[255];    Q: INTEGER; LABEL  1,2; BEGIN FOR Q:=1 TO 255 DO A[Q]:=CHR(1); WRITELN(»); WRITELN(‘ЖИЗНЬ, ИЛИ КОШЕЛЕК!!! ВВОДИ СТРОКУ!’); READ(A); FOR Q:=1 TO 255 DO IF ORD(A[Q])=1 THEN GOTO 1; GOTO 2; 1: DEC(Q); 2: WRITELN(»); IF Q>0 THEN WRITELN(A[Q]); END. Сообщение отредактировано: volvo — 17.12.2004 20:31

GLuk	29.11.2003 12:34 Сообщение #3
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация:   0	Зачем ты так SKVOZNJAK?? Это же жестоко!! Код Program ArrayWithoutZero; Uses     Crt; Const      S = ‘The last char is D’; Function GetLastChar(S:String):Char; begin      GetLastChar:=S[Length(S)]; end; Begin      ClrScr;      Write(GetLastChar(S)); End.

{ Guest }	29.11.2003 12:41 Сообщение #4
Гость	2 SKVOZNJAK 2 GLuk Большое спасибо ! Вечером проверю )!

APAL	1.12.2003 14:35 Сообщение #5
Смотрю… Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация:   6	Мда….   ——————— Если что-то не делает того, что вы запланировали ему делать — это еще не означает, что оно бесполезно. ——————— Прежде, чем задать вопрос — Правила :: FAQ :: Поиск

Связь с администрацией: bu_gen в домене octagram.name

Редактировать

Символы и основные операции над ними

Символы имеют тип char, занимают 2 байта и хранятся в кодировке Unicode (UTF-16).

var c1: char;
var c2 := 'z';

Для преобразования символа c в код используется функция Ord(c), для обратного преобразования кода i в символ используется функция Chr(i).

begin
  var c := 'ю';
  Print(Ord(c)); // 1102
  Print(Chr(1102)); // ю
end.

Классический способ определить символ, следующий за данным в кодовой таблице, — это преобразовать символ в код, прибавить к коду число и потом преобразовать полученный код снова в символ:

Аналогично определяется предыдущий символ

Методы типа char

Методы, встроенные в тип char, делятся на две категории:

• проверяющие, принадлежит ли символ указанной категории: c.IsDigit, c.IsLetter, c.IsLower, c.IsUpper
• преобразующие символ: c.ToUpper, c.ToLower, c.ToDigit.

Отметим, что c.IsDigit эквивалентно (c >= '0') and (c <= '9') и эквивалентно c in '0'..'9'
Для c.IsLower, c.IsLower, c.IsUpper такой простой аналогии нет. Дело в том, что в этих методах проверяются все символы, являющиеся буквами в каком-то алфавите народов мира (в частности, английские и русские)

Отметим также, что c.IsLower возвращает True только если это буква в нижнем регистре — для не букв возвращается False.

Строки

Введение

Отметим, что для строк имеется много операций и методов, не все из которых мы рекомендуем для школьников.

Основная причина — многие методы строк в .NET считают, что строки индексируются с нуля, а в Паскале строки индексируются с 1.

Для устранения этой дилеммы при работе со школьниками мы не используем методы строк, которые работают с индексами, индексируемыми с нуля. Для них существуют эквивалентные замены внешними функциями, которые предполагают, что строки индексируются с 1.

Индексация строк

Строки в Паскале индексируются с 1. К символам строк можно обращаться по индексам — s[i].

Например:

begin
  var s: string;
  s := 'тор';
  Print(s[1],s[2],s[3]);
end.

Символы строк можно менять:

begin
  var s := 'пир';
  s[1] := 'м';
  Print(s); // мир
end.

Можно использовать индексацию с конца: s[^i] обозначает i-тый символ с конца

begin
  var s := 'мир';
  s[^1] := 'г';
  Print(s); // миг
end.

Циклы по строкам

begin
  var s := 'привет';
  for var i:=1 to s.Length do
    s[i] := Chr(Ord(s[i])+1);
  Print(s);
end.  

foreach var c in s do
  Print(c);  

Операции +, *n и in

Строки можно складывать и умножать на целое положительное число

Пример. Генерация строки ‘abcdefghijklmnopqrstuvwxyz’

Идея. Начать с пустой строки. Всякий раз в цикле добавлять к строке символы от ‘a’ до ‘z’

Код

begin
  var s := '';
  for var c := 'a' to 'z' do
    s += c;
end.  

Методы Count, CountOf, Where

Чтобы посчитать количество символов в строке, удовлетворяющих определённому условию, используется метод Count. Если нужно посчитать, сколько раз встречается определенный символ, используется более простой метод CountOf

begin
  var s := 'абракадабра';
  s.CountOf('а').Print;
  s := 'а123бр45а67к89адабра';
  s.Count(c -> c.IsDigit).Print;
end.  

Если в строке надо отфильтровать только определенные символы, используется метод Where. Он возвращает последовательность символов, которую можно назад преобразовать к строке, используя метод JoinToString:

begin
  var s := 'а123бр45а67к89адабра';
  s := s.Where(c -> c.IsLetter).JoinToString;
end.  

s.ToWords и разбиение строки на слова

Метод s.ToWords разбивает строку на массив слов, используя пробел в качестве разделителя. Полученный массив можно преобразовать и слить в строку, используя метод JoinToString:

begin
  var s := 'как однажды жак звонарь головой сломал фонарь';
  var a := s.ToWords;
  Sort(a);
  s := a.JoinToString
end.  

По умолчанию JoinToString разделяет слова пробелами

Функция Pos и процедуры Delete, Insert

Pos(subs,s) возвращает позицию первого вхождения подстроки subs в сторке s или 0 если подстрока не найдена

Pos(subs,s,from) начинает искать подстроку в строке с позиции from.

Следующий код выводит позиции всех вхождений s1 в s:

begin
  var s := 'абракадабра';
  var s1 := 'бра';
  var p := Pos(s1,s);
  while p>0 do
  begin
    Print(p);
    p := Pos(s1,s,p+s1.Length);
  end;
end.