0 / 0 / 0
Регистрация: 29.11.2017
Сообщений: 41
1

Строки в Делфи

26.04.2018, 20:07. Показов 460. Ответов 3
Метки нет (Все метки)

Помогите с программой пожалуйста. Вот код, работает вроде корректно. Но мне надо, например: ввожу "привет,мир", на выходе получаю -
"привет,"
"мир"
Надо чтобы было так:
"привет"
","
"мир".
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program laba11 ;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
    s: string;
    i:Integer;
    const rzd=['.',',','?',';',':','!'];
 
begin
  Write('Vvedite stroku ----> ');
  Readln(s);
   for i:=0 to Length(s) do
    begin
       write(s[i]);
       if s[i] in rzd then write(s[i]);
 
        if ord(s[i])=32 then
          writeln(' ');
 
    end;
       Readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2018, 20:07
Ответы с готовыми решениями:

Строки Делфи
Можно ли как-нибудь на Делфи выделить часть строки, например у нас вводится имя файла Nfile.dat, а...

Строки в делфи
Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с...

Строки в Делфи.
Помогите надо удалить из строки все четные числа. В Делфи.

строки в делфи
Помогите решить лабу по делфи 1) Дан текст. Получить все символы, отличные от букв и пробелов в...

3
Модератор
7953 / 5249 / 2176
Регистрация: 21.01.2014
Сообщений: 22,579
Записей в блоге: 3
26.04.2018, 20:20 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Project2;
 
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
const rzd=['.',',','?',';',':','!'];
var s, rez: String;
    i: integer;
begin
 Write('Enter Your string ----> ');
 Readln(s);
 rez := '';
 for i := 1 to Length(s) do
  if s[i] in rzd
   then rez := rez + #10#13 + s[i]
   else
    if s[i] = #32
     then rez := rez + #10#13
     else rez := rez + s[i];
 write(rez);
 readln;
end.
Миниатюры
Строки в Делфи  
1
0 / 0 / 0
Регистрация: 29.11.2017
Сообщений: 41
26.04.2018, 21:49  [ТС] 3
А что такое rez? За что отвечает эта переменная?
0
Модератор
7953 / 5249 / 2176
Регистрация: 21.01.2014
Сообщений: 22,579
Записей в блоге: 3
27.04.2018, 04:25 4
Цитата Сообщение от kapri487 Посмотреть сообщение
За что отвечает эта переменная?
результирующая строка, в которой содержится многострочный текст, полученный из исходного путем замены пробела (#32) на символы переноса строки (#10#13), а так же добавлением этих самых символов переноса строки перед знаками препинания
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2018, 04:25
Помогаю со студенческими работами здесь

Делфи.Строки
Ребят,помогите,пожалйуста Заданный во входном файле текст напечатать в обратном порядке.

Конец строки в делфи
Почему не работает вот такая тема: While not Eof(f) do Begin While not Eoln(f) do ...

подсчет суммы выбранной строки БД Аксесс 03 в Делфи 7
Как подсчетать и отобразить в эдит при выборе поле таблицы в бд?

Через делфи выбрать из икселя нужные строки
Подскажите как из подобного файла выбрать тех людей которые идут подряд, тоесть две соседние строки...

Как в Делфи выполнить код, написанный на Делфи, например в поле ввода?
Есть способ в Делфи выполнить код, написанный на Делфи, например в поле ввода?

Здр, пожалуйста попробуйте запутсить .exe написанное на делфи 10 у себя, те у кого делфи 7
и скиньте скрин пожалуйста срочно http://www.fayloobmennik.net/4874373 перед тес как запустить,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru