Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Sapros
0 / 0 / 0
Регистрация: 29.11.2015
Сообщений: 26
1

Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой?

13.04.2016, 10:33. Просмотров 323. Ответов 8
Метки нет (Все метки)

Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой?
Написала программу, работает:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm4.Button1Click(Sender: TObject);
Var
 b:string;
begin
 b:=Edit1.Text;
repeat
  Edit2.Text:= 'Верно'
until
  b[1]=b[length(b)]
 
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  Close;
end;
end.

Как написать обработчик событий, чтобы Edit выводил 'Неверно' при НЕвыполнении условия?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2016, 10:33
Ответы с готовыми решениями:

Верно ли, что число начинается и заканчивается одной и той же цифрой
Дано трёхзначное натуральное число. Верно ли, что число начинается и...

Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой
с делфи ,сам не программист,но как предмет поставили.Очень надеюсь на вас ...

Дано натуральное число. Определить: заканчивается ли оно цифрой 3?
Дано натуральное число. Определить: заканчивается оно цифрой 3?

Дано трехзначное натуральное число N. Верно ли что все его цифры различны?
Дано трехзначное натурально число N. Верно ли что все его цифры различны?...

Дано натуральное число. Верно ли, что в данном числе нет данной цифры А
помогите пожалуйста найти ошибку, выдает что всегда есть Задание: Дано...

8
qwertehok
2299 / 2203 / 602
Регистрация: 29.08.2013
Сообщений: 14,725
13.04.2016, 10:35 2
Цитата Сообщение от Sapros Посмотреть сообщение
Как написать обработчик событий, чтобы Edit выводил 'Неверно' при НЕвыполнении условия?
вы сначала код напишите правильный, а не этот бред

Цитата Сообщение от Sapros Посмотреть сообщение
repeat
Edit2.Text:= 'Верно'
until
b[1]=b[length(b)]
0
Sapros
0 / 0 / 0
Регистрация: 29.11.2015
Сообщений: 26
13.04.2016, 11:01  [ТС] 3
qwertehok, если не сложно, в двух словах расскажи как должен быть устроен цикл. Потому что может тебе опытному и трудно понять, как можно не правильно составить цикл, но мне вот не совсем понятно.
0
qwertehok
2299 / 2203 / 602
Регистрация: 29.08.2013
Сообщений: 14,725
13.04.2016, 11:07 4
Цитата Сообщение от Sapros Посмотреть сообщение
если не сложно, в двух словах расскажи как должен быть устроен цикл
дело в том что тут не нужен цикл

вам нужно сравнить ПЕРВЫЙ символ - b[1] и последний b[length(b)]
СРАВНИТЬ

ЗЫ подсказка - оператор сравнения состоит из ДВУХ букв
0
Sapros
0 / 0 / 0
Регистрация: 29.11.2015
Сообщений: 26
13.04.2016, 11:25  [ТС] 5
qwertehok,

procedure TForm1.Button1Click(Sender: TObject);
var
b:string;
begin
b:=Edit1.Text;
if b[1] = b[length(b)] then Edit2.Text := 'Верно' else Edit2.Text:= 'Нет'
end;
end.

Надеюсь тут не бред
смысл задания использовать именно цикл. repeat или while, к сожалению.
0
qwertehok
2299 / 2203 / 602
Регистрация: 29.08.2013
Сообщений: 14,725
13.04.2016, 11:31 6
да, так отлично

Цитата Сообщение от Sapros Посмотреть сообщение
смысл задания использовать именно цикл
и как вы думаете использовать тут цикл?

Добавлено через 4 минуты
Найти сумму цифр числа; определить, что число начинается и заканчивается одной и той же цифрой
1
Sapros
0 / 0 / 0
Регистрация: 29.11.2015
Сообщений: 26
13.04.2016, 11:32  [ТС] 7
qwertehok, вы уже видели, КАК я пыталась использовать тут цикл.. Грустная история.
Я конкретный вопрос задам - какая может быть к этой задаче последовательность инструкций в теле? Потому что именно на этом моменте меня ступорит.
0
qwertehok
2299 / 2203 / 602
Регистрация: 29.08.2013
Сообщений: 14,725
13.04.2016, 11:47 8
я вам ссылку дал - там уже сделано
0
AHBAR
239 / 239 / 167
Регистрация: 05.04.2013
Сообщений: 1,106
13.04.2016, 12:11 9
Цитата Сообщение от Sapros Посмотреть сообщение
Как написать обработчик событий, чтобы Edit выводил 'Неверно' при НЕвыполнении условия?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Edit1Change(Sender: TObject);
var
a:Integer;
b:string;
begin
try 
   a  := StrToInt(Edit1.Text);
   except
   Edit2.Text := 'Вводимая последовательность не является числом';
   exit;
   end;
 
b := IntToStr(ABS(a));
if b[1] = b[length(b)] then Edit2.Text := 'Да' else  Edit2.Text := 'нет';
end;
Добавлено через 2 минуты
здесь учитываются только целые числа типа Integer, можно составить чтобы работало с дробями..также учитывается что число может быть отрицательным, поэтому берется модуль ABS() иначе первый символ был бы "-"
1
13.04.2016, 12:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2016, 12:11

Дано натуральное число n ( n<=99 ). Выяснить , верно ли, что n^2 равно кубу суммы цифр числа n
Задание : Дано натуральное число n ( n&lt;=99 ). Выяснить , верно ли, что n^2...

Дано натуральное число. Выяснить, является ли оно простым
Помогите плз. Дано натуральное число. Выяснить, является ли оно простым...

Дано натуральное число N. Определить, кратно ли оно 5 и сколько цифр в этом числе
Здравствуйте помогите пожалуйста (в Delphi 7 или в другой версии, но чтобы...


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

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

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