Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
SashaZ565
0 / 0 / 0
Регистрация: 15.10.2013
Сообщений: 4
1

Дана строка символов. Вывести все нечётные символы этой строки.(что не так?)

15.10.2013, 21:48. Просмотров 663. Ответов 6
Метки нет (Все метки)

var
st1:string;
i,n:integer;
begin
st1:=edit1.Text;
n:=length(st1);
for i:=1 to n do begin
if frac (i/2)<>0 then
Edit2.Text:=string(i);
end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2013, 21:48
Ответы с готовыми решениями:

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

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

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

Дана строка символов S. Удалите из нее все цифры или выдайте сообщение, что цифр в строке нет.
Дана строка символов S. Удалите из нее все цифры или выдайте сообщение, что...

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

6
FIL
Модератор
3419 / 2555 / 726
Регистрация: 19.09.2012
Сообщений: 7,923
15.10.2013, 22:00 2
Что такое string(i)?
0
SashaZ565
0 / 0 / 0
Регистрация: 15.10.2013
Сообщений: 4
15.10.2013, 22:18  [ТС] 3
я думал что Edit2.Text:=string(i); можно использовать как вывод
0
cotseec
Пишу на Delphi...иногда
1407 / 1267 / 284
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
15.10.2013, 22:28 4
Edit2.Text:=st1[i];
1
SashaZ565
0 / 0 / 0
Регистрация: 15.10.2013
Сообщений: 4
15.10.2013, 22:35  [ТС] 5
как можно вывести не один ответ а несколько?
задача написана правильно?
0
cotseec
Пишу на Delphi...иногда
1407 / 1267 / 284
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
15.10.2013, 22:37 6
Edit2.Text := Edit2.Text + st1[i] + ' ';
1
FIL
Модератор
3419 / 2555 / 726
Регистрация: 19.09.2012
Сообщений: 7,923
15.10.2013, 22:38 7
Delphi
1
  Edit2.Text := Edit2.Text + st1[i];
1
15.10.2013, 22:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2013, 22:38

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

Дана строка: Вывести на экран группы с четным количеством символов
Каждая группа отделяется пробелами

Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′
1. Дана строка. Определить, есть ли в этой строке символы ′А′ и ′Е′, а также...


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

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

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