Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
LanaMikhailovna
0 / 0 / 0
Регистрация: 07.06.2016
Сообщений: 4
#1

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

07.06.2016, 18:40. Просмотров 270. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

Найти номер позиции последней запятой в строке
Дана строка символов. Найти номер позиции последней запятой в строке.

3
ezhukov67
22 / 22 / 39
Регистрация: 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
25966 / 17410 / 6906
Регистрация: 22.10.2011
Сообщений: 30,649
Записей в блоге: 6
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2016, 10:55

Дана строка символов. Найти номер позиции последней запятой в строке
Дана строка символов. Найти номер позиции последней запятой в строке.

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

Найти номер позиции последней запятой
Известно, что среди S1,...,Sn есть по крайней мере одна запятая. Найти такое...


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

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

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