Доброго вечера, народ!
Предлагаю для решения две задачки.
1. Дана строка из неизвестного количества символов. Как из этой строки заполучить последний символ?
2. Дана строка из неизвестного количества символов. Известно, что строка состоит из чисел и маленьких букв латинского алфавита. Вопрос. Как заполучить строку, состоящей только из чисел?

Цитата(Mick @ 18.2.2005, 17:43)

Дана строка

что такое строка? Последовательность символов, заканчивающаяся переводом каретки? Тогда в первой задаче идешь в цикле по строке пока не достигнешь символа #13
Во второй задаче так само идешь по строке до конца и выбираешь символы-числа, созраняешь их например в другую строку

Последний символ строки:

Код

str[length(str)]

Взять из строки только цифры:

Код

function numStr(str: String): String; var  i: Integer;  d: String; begin  d := '';  for i := 1 to length(str) do   if (str[i] >= '0') and (str[i] <= '9') then     d := d + str[i];  numStr := d; end;

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

Cheba

Цитата(Mick @ 18.2.2005, 17:43)

Дана строка из неизвестного количества символов

Цитата(Cheba @ 18.2.2005, 22:21)

str[length(str)]

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

В общем, ждем разъяснения Mick Winder

Код

var c,c0:char; begin read(c); while not eoln do {или c <> eoln, не помню точно}   begin     c0:=c;     read(c);   end; writeln; writeln(c0); end.

Код

var c:char; begin read(c); while c <> eoln do   begin    if c in ['1'..'0'] {не помню точно таблицу кодов}     then      write(c);    read(c);   end; end.

Pakshin A. S.
В первом примере стоит показывать не с0, а с. Иначе покажет предпоследний символ.

Во втором примере две ошибки.
eoln - возвращает boolean.
И в ASCII цифры идут от 0 до 9.

Таким образом получится такое:

Код

var c:char; begin read(c); while not eoln do   begin    if c in ['0'..'9'] { а я помню;) }     then      write(c);    read(c);   end; end.

Молодцы, ребятки!
А теперь то, что я имел в виду...

Код

var S, B: String; i: Integer; begin S:= 's23abc'; // для примера // Последний символ строки B:= Copy(S, length(S), 1); // Полученная строка, состоящая только из чисел B:=''; for i:=1 to length(S) do begin if S[i] in ['0'..'9'] then B:= B + S[i]; end;

Добавлено @ 11:35

Цитата(Cheba @ 18.2.2005, 23:21)

Последний символ строки: Код str[length(str)]

Это тоже правильно. Просто замечательно!!!

Это сообщение отредактировал(а) Mick Winder - 21.2.2005, 11:31

Я так понял, что я написал именно так, как ты хотел?

Цитата(Cheba @ 21.2.2005, 15:52)

Я так понял, что я написал именно так, как ты хотел?

Да!

А где благодарность?

Цитата(Cheba @ 21.2.2005, 16:20)

А где благодарность?

Премного благодарен, сударь!
Жму крепко твою руку!

Всегда к вашим услугам.

А теперь, наверное, хватит офтопить.

Знаю что задача не космическая но чет дойти не могу пАмагите ПЛИЗ"!!

Дана произвольная строка, состоящая из букв латинского алфавита. Удалить все согласные буквы
и подсчитать кол-во произведенных удалений....

Препод достал....

Или вот: Дана произвольная строка. Из каждой группы идущих подряд букв удалить все буквы расположенные на нечетных позициях...

Guest
Во-первых зарегестрируйся
Во-вторых прочитай правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27
В-третьих выкладывай код с пояснением что именно не получается. За тебя задачи решать тут мало кто захочет!

Цитата(Guest @ 14.4.2005, 18:48)

Или вот:  Дана произвольная строка. Из каждой группы идущих подряд букв удалить все буквы расположенные на нечетных позициях...

держи!

Код

var s:string; i:integer; begin read(s); i:=1; repeat delete(s,i,1); inc(i); until i>=length(s); write(s); end;

Это сообщение отредактировал(а) Негодяй - 14.4.2005, 19:51

Негодяй
ну ну, помог челу

Цитата(Hidrag @ 14.4.2005, 20:11)

Негодяй ну ну, помог челу

мне второй день занятся нечем

Цитата

группы идущих подряд букв

Код

var s:string; i:integer; begin s:='abc de  fgh'; i:=1; repeat delete(s,i,1); if s[i]=' ' then continue; inc(i); until i>=length(s); write(s); end;

Это сообщение отредактировал(а) Негодяй - 14.4.2005, 20:26

ну спасибо тебе чувак....знал я что тут занятся кому-нибудь нечем...


И еще интересует вопрос....как мне вбить согласные буквы в массив...или че там с ними делать....и потом если они будут встречатся в строке удалить их нафиг???

Цитата(Guest @ 15.4.2005, 08:08)

ну спасибо тебе чувак....знал я что тут занятся кому-нибудь нечем...

ну развеселил

Цитата

И еще интересует вопрос....как мне вбить согласные буквы в массив...или че там с ними делать....и потом если они будут встречатся в строке удалить их нафиг???

Цитата

Дана произвольная строка, состоящая из букв латинского алфавита. Удалить все согласные буквы и подсчитать кол-во произведенных удалений....

с этой задачей тоже проблем нет, делай так: делаешь множество из согласных букв из латинского алфавита, и по-символьно сравиваешь введённую строку с элементами множества, после чего удаляешь символ и наращиваешь счётчик таких удалений. Вообщем из этого следует почитай литературу про множества поучись с ним работать - вот и всё твой решение.
Чего не понятно будет спрашивай?

PS да и зарегистрируейся или хотя бы назовись как-нибудь, Guest

http://forum.vingrad.ru/index.php?act=ST&f=84&t=48802&st=0 - решение

все чуваки спасибо...выручили...терь буду на вашем рулезном форуме тусить ума набиратся...!!!

Удаляем из строки все согласные, решение по-тупому:

Код

String s,g; .... read(s); for i:=1 to len(s) do   begin     if s[i] not in['b','B','c', 'C',.....{тут последовательно прописать все-все согласные буквы}]       then g=g+s[i]; end; Writeln(g);

Len(s)-Len(g) - это количество удалений

Это сообщение отредактировал(а) Fedor - 14.5.2005, 18:16

Предлагаю, что б не прописывать и строчные и прописные буквы сделать следующее:

Код

b:char; ======== for i:=1 to length(s) do begin b:=upcase(s[i]); if b not in ['B','C', .......'Z'] then g:=g+s[i]; end; =========

a можно еще проще:

Код

=========== b:=upcase(s[i]); if b in ['A','E','I','O','U'] then g:=g+s[i]; ===========

У нас ведь строка состоит только из латинских букв

Цитата(Mager2005 @ 14.5.2005, 14:59)

a можно еще проще:

А еще проще:

Код

if UpCase(s[i]) in ['A','E','I','O','U'] then g:=g+s[i];