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

Циклы

20.05.2016, 10:57. Показов 308. Ответов 2
Метки нет (Все метки)

Забыл как и какой цикл надо использовать, чтобы при несоответствии условия, тело цикла выполнялось заново. А так у меня просто выходит сообщение и дальше выполняется.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.Text='') then
begin
  ShowMessage('Вы не заполнили поля: Команда 1 и Команда 2')
end
else
if edit1.text='' then
begin
  ShowMessage('Вы не заполнили поле: Команда 1')
end
else if edit2.text=''
 then ShowMessage('Вы не заполнили поле: Команда 2')
 else
TN1:=edit1.text;
TN2:=edit2.text;
 
 Form2.Visible:=false;
 Form1.Visible:=true;
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2016, 10:57
Ответы с готовыми решениями:

Циклы
Помогите решить 4 задания... 1. Составить программу вывода всех трехзначных чисел, сумма цифр...

Циклы
Напишите программы для решения следующих задач: 1. Одноклеточная амеба каждые 3 часа делится на 2...

Циклы
var n: Integer; //peremennaya n ch1, ch2: Real; //chasti yravneniya v sootvetsviie s...

циклы
помогите решить пример :( http://pic.ipicture.ru/uploads/091114/67Dt1uEdX7.jpg

2
пофигист широкого профиля
4456 / 2944 / 830
Регистрация: 15.07.2013
Сообщений: 16,927
20.05.2016, 11:13 2
Цитата Сообщение от norak6 Посмотреть сообщение
Забыл как и какой цикл надо использовать
Цикл Exit
1
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,764
20.05.2016, 11:19 3
norak6,
может так?
Delphi
1
2
3
repeat
// тело цикла
until ( (Edit1.Text)<>'' and (Edit2.Text)<>'' )
но конкретно к вашему коду можно после каждого ShowMessage(); ставить Exit;
А нужно после последнего esle заключить код в begin end;
Delphi
1
2
3
4
5
6
7
8
9
else BEGIN
TN1:=edit1.text;
TN2:=edit2.text;
 
 Form2.Visible:=false;
 Form1.Visible:=true;
END;
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2016, 11:19

Циклы
Помогите пожалуйста решить задачу в делфи 7( желательно еще описать все пошаговые действия) а то я...

Циклы
Здравствуйте! Помогите, пожалуйста, решить задачу. 9 вариант в приложенном файле.

Тема : циклы
Помогите доделать лабораторную. Все наработки в архиве. Не работает (да и не должна при таком то...

циклы for внутри while
у меня есть несколько циклов for внутри цикла while, при этом если в качестве счетчиков циклов for ...

Циклы в потоках
Использую многопоточность.Необходимо включить в тело потока 2-3 цикла,не навредит ли это работе...

Регулярные циклы
Дано натуральное N. Вычислить 1+1/2+1*2/4+1*2*3/8+1*2*3*4/16+… .


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

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

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