Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lazarus

Войти
Регистрация
Восстановить пароль
 
LanaMikhailovna
0 / 0 / 0
Регистрация: 07.06.2016
Сообщений: 4
#1

В данной строке определить номер позиции последней запятой - Lazarus

07.06.2016, 18:40. Просмотров 228. Ответов 3
Метки нет (Все метки)

Нужно создать программу, которая в данной текстовой строке определяет номер
позиции последней запятой. Вот мой (безрезультатный) набросок:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var i: byte;
  s: string;
  c: char;
begin
  i:=Length(s);
  s:=Edit1.Text;
  c:=s[i];
for i:=Length(s) downto 1 do if s[i]=',' then begin
  Label1.Caption:=(c);
  break;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2016, 18:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В данной строке определить номер позиции последней запятой (Lazarus):

Номер позиции в строке - Delphi
Найти номер позиции первой цифры в строке. Я пробовал писать, но не выходит, надеюсь тут кто-нибудь поможет.

Найти номер позиции в строке, где находится последняя точка - Lazarus
Здравствуйте, подскажите пожалуйста с задачей: Дана строка текста. Найти номер позиции, где находится последняя точка. что я тут не...

Дан двумерный массив. Определить в какой строке массива сумма элементов больше: в первой или в последней - Lazarus
Дан двумерный массив. Определить: а) в какой строке массива сумма элементов больше: в первой или в последней; б) в каком столбце сумма...

Фокус на последней строке - Lazarus
Можно как то организовать, что бы после добавления строки в StringGrid на нее переключался фокус?

В каждой строке текста определить номер позиции последней точки - PascalABC.NET
Дан текст (массив строк). Составить программу, которая в каждой строке текста определяет номер позиции последней точки.

Найти номер позиции последней запятой - Pascal ABC
Известно, что среди S1,...,Sn есть по крайней мере одна запятая. Найти такое натуральное i, что Si-Последняя по порядку запятая

3
ezhukov67
22 / 22 / 31
Регистрация: 10.05.2014
Сообщений: 52
07.06.2016, 19:18 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var i,j: byte;
    s: string;
begin
  Readln(s);
    j:=0;
for i:=Length(s) downto 1 do if s[i]=',' then begin
    j:=i;
  break;
 end;
 if j=0
  then Writeln('Net zapjatih')
  else Writeln('Pozicija posledney zapjatoy : ',j);
  Readln;
end.
0
LanaMikhailovna
0 / 0 / 0
Регистрация: 07.06.2016
Сообщений: 4
07.06.2016, 21:01  [ТС] #3
спасибо конечно, но дело в том что Readln и Writeln программа не читает, как можно их обойти?

Добавлено через 17 минут
все, я уже разобралась, еще раз большое спасибо)
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24007 / 15988 / 4836
Регистрация: 22.10.2011
Сообщений: 28,281
Записей в блоге: 5
09.06.2016, 10:55 #4
Цикл не нужен:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  p : integer;
begin
  s := Edit1.Text;
  p := RPos(',', s); // добавить StrUtils в список Uses
  if p > 0 then
    Label1.Caption := 'Позиция последней запятой: ' + IntToStr(p)
  else
    Label1.Caption := 'В тексте нет запятых';
end;
0
09.06.2016, 10:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2016, 10:55
Привет! Вот еще темы с ответами:

Найти номер первой и последней запятой в строке - C#
В общем у меня получилось только вывести первую и последнюю запятую в строке но номер первой и последней не получается использовал разные...

Вывести на экран номер последней запятой, встречающейся в строке сиволов - Pascal
Помогите пожалуйста решить..))) Заранее огромнейшее спасибо)) Составить программу, которая подсчитывает количество вхождений подстроки...

Определить порядковый номер последней запятой в тексте - Turbo Pascal
За данным натуральным значением переменной n вычислить (2*(2*...*(2)^1/2)^1/2)^1/2 Корни встречаются n раз. Дан текст, в котором...

Строки. Известно, что в строке есть, по крайней мере, одна запятая. Найти номер позиции первой по порядку запятой - Pascal ABC
известно, что в строке есть, по крайней мере, одна запятая. Найти номер позиции первой по порядку запятой


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru