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

Цикл Repeat и until

20.06.2015, 20:59. Просмотров 410. Ответов 4
Метки нет (Все метки)

Ребят не могу понять в чём ошибка. Программа запускается а в ответ от неё получаю зависание Delphi и последний способ выйти это только закрыть Delphi
Вот программа

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Var a,b,x,f,h:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
h:=strtofloat(Edit3.text);
x:=a;
repeat f:=sin(x) until  x>b ;
Edit4.Text:=floattostr(x);
Edit5.Text:=floattostr(f);
x:=x+h;
end;
end.
В значения а и b будет вводится быстрее всего число p или что-то другое
А условие задачи такое: Составить и отладить программу вывода на экран таблицы значений функции y=f(x) на отрезке [a, b] с шагом h.(С помощью Repeat)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2015, 20:59
Ответы с готовыми решениями:

Цикл repeat
Добрый день, уважаемые форумчане! Помогите пожалуйста сделать цикл (Repeat), а...

С цикл Repeat
У меня проблемы с циклом Repeat Задача такова используя только цикл Repeat...

Цикл repeat
Здравствуйте мне задали по информатике такое задание, нужно через циклы repeat...

Цикл repeat / until
Задание: По формуле члена ряда с номером i, заданной в таблице 2, со- ставить...

Правильно построить цикл Repeat-Until
Добрый день, уважаемые форумчане!:thank_you: В моей программе из массивов Kol,...

4
skinex
4 / 4 / 4
Регистрация: 09.03.2013
Сообщений: 209
Завершенные тесты: 2
20.06.2015, 21:30 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var a,b,x,f,h:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
h:=strtofloat(Edit3.text);
x:=a;
repeat
begin
f:=sin(x);
x:=x+h;
end;
until  x>b ;
Edit4.Text:=floattostr(x);
Edit5.Text:=floattostr(f);
end.
Добавлено через 7 минут
Да и в 12 строке вместо
Delphi
1
until  x>b;
это
Delphi
1
until x<=b;
0
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,360
20.06.2015, 21:37 3
А нафига строки 8 и 11?

Добавлено через 1 минуту
И почему until x<=b; если b это конец интервала?
0
skinex
4 / 4 / 4
Регистрация: 09.03.2013
Сообщений: 209
Завершенные тесты: 2
20.06.2015, 21:58 4
Точно, протупил со структурой цикла с постусловием.
Delphi
1
2
3
4
repeat
   f:=sin(x);
   x:=x+h;
until  x>b ;
0
northener
21.06.2015, 02:06     Цикл Repeat и until
  #5

Не по теме:

Цитата Сообщение от Puporev Посмотреть сообщение
А нафига строки 8 и 11?
А вот мне самому давно уже интересно почему для циклов for и while нужны операторные скобки, а для цикла repeat не нужны? :)

0
21.06.2015, 02:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2015, 02:06
Привет! Вот еще темы с ответами:

Программирование циклических процедур. (Цикл While, Repeat)
Разработать программу табулирования функции, вывести их значения на экран....

Delphi 7 преобразование последовательности сумм в цикл Repeat-Until
Выражение в стандартном виде: arcsinx = x + ((1/2)*(x^3/3)) +...

Оформить код Delphi через цикл repeat untill или while
program Project1; {$APPTYPE CONSOLE} uses SysUtils, math; var...


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

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

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