Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2010, 21:13   #1
Any13
Пользователь
 
Регистрация: 06.12.2009
Сообщений: 10
По умолчанию Программирование циклов с неизвестным числом повторений

Вот дана следующая задача.
Дано: q=2, dq=-0.1. F вычислять по формуле F:=5.26*q*sqrt(P), P:=sqr(q)*q+q+1. Считать F до тех пор, пока под-коренное выражение >0.2. Определить k- количество вычислений F. Вывести на экран q, F, k.

Вот программу составила, запускается, ввожу данные и все, окошко виснет и не хочет выдавать результат. Подскажите, что не так. Может в коде ошибка.

unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
Button1: TButton;
BitBtn1: TBitBtn;
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
q,dq,P,F:real;
n:integer;
begin
q:=strtofloat(LabeledEdit1.Text);
dq:=strtofloat(LabeledEdit2.Text);
n:=0;
P:=sqr(q)*q+q+1;
repeat
F:=5.26*q*sqrt(P);
listbox1.Items.Add(floattostrf(q,ff fixed,2,1)+' '+floattostr (F)+' '+floattostr (P));
q:=q+dq;
inc(n);
P:=sqr(q)*q+q+1;
until P<=0.2;
LabeledEdit3.Text:=inttostr(N);
end;
end.
Any13 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
организация циклов с заданным числом повторений с использованием рекуррентных формул LtB Помощь студентам 10 17.10.2010 12:02
Циклы с заданным числом повторений Максикок Помощь студентам 2 11.10.2010 20:19
Циклы с неизвестным количеством повторений. vihlyaev Помощь студентам 1 19.03.2010 11:24
Организовка цикла с неизвестным числом повторений серг Помощь студентам 6 16.11.2009 18:21
массив с заранее неизвестным числом элементов Var17 Общие вопросы Delphi 4 29.12.2007 08:20

Реклама для незарегистрированных, регистрация на форуме