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

Задача на Предусловие,постусловие

29.11.2012, 16:13. Просмотров 866. Ответов 1
Метки нет (Все метки)

Здравствуйте! Сделал задачу,но не работает предусловие,помогите пожалуйста....





procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit4.text);
b:=StrTofloat(Edit5.text);Xn:=StrToFloat(Edit1.text);
Xk:=StrtoFloat(Edit2.text);
dx:=StrtoFloat(Edit3.text);
x:=Xn;
while x<=Xk do
begin
if x <=-2 then y:=Sqrt(x)
else y:=Exp(3*ln(X));
end;

Memo1.lines.add(' ' + floattostr(x)+'' +
floattostr(y));
x:=x+dx;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=StrToFloat(Edit4.text);
b:=StrTofloat(Edit5.text);
Xn:=StrToFloat(Edit1.text);
Xk:=StrtoFloat(Edit2.text);
dx:=StrtoFloat(Edit3.text);
x:=Xn;
Repeat
if x <=0.25 then
y:=Xn*Xk*dx
else y:=exp(3*ln(x));
Memo2.lines.add(' ' + floattostr(x)+'' +
floattostr(y));
x:=x+dx
Until x>Xk;
end;
end.



P.S. при нажатии на предусловие зависает. =(
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2012, 16:13
Ответы с готовыми решениями:

Переделать предусловие на постусловие
как переделать на постусловие? var i,w,k: integer; f: boolean; begin write('enter w: '); ...

Предусловие-цикл-постусловие
Доброго времени суток. Хочу обратиться к Вам за помощью. Нужно решить задачу. Дано Е Нужно...

Система уравнений с использованием операторов цикла (счётчк, предусловие, постусловие)
Здравствуйте. Нужно программно решить систему с использованием трёх видов операторов цикла...

Найдите пару значений, при которых предусловие выполняется, а постусловие — нет
int area(int length, int width) // Вычисляет площадь прямоугольника; // предусловия: аргументы...

задача на оператор цикла do…while (постусловие)
Подскажите плиз алгоритм решения задачки.... Осуществить ввод последовательности целых чисел и...

1
i8085
2030 / 1417 / 272
Регистрация: 11.09.2009
Сообщений: 5,079
30.11.2012, 00:35 2
Лучший ответ Сообщение было отмечено strtohelp как решение

Решение

Delphi
1
2
3
4
5
while x<=Xk do
begin
 if x <=-2 then y:=Sqrt(x)
 else y:=Exp(3*ln(X));
 end;
Ни x, ни Xk в цикле не меняются. Это "вечный цикл".

P.S.
Проявляйте уважение к читающим ваши "творения". Ставьте теги кода и пишите коментарии!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2012, 00:35

Цикл с предусловие
С помощью while Найти все числа кратные пяти для чисел от 1 до N.

Отрицательное предусловие в while
Всем привет.Не выходит заставить работать цикл с таким предусловием. $i=0; while($i++&lt;8){...

В каких ситуациях можно НЕ проверять предусловие?
В каких ситуациях можно НЕ проверять предусловие?


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

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

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