Vo1T Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: procedure TForm1.Button1Click(Sender: TObject); var   K, S, G, X, Integ : Double;   N, I , A, B : Integer; begin   Randomize;   A := StrToInt(EditA.Text); // = 1   B := StrToInt(EditB.Text); // = 2     N := StrToInt(EditN.Text); // = 10   S := 0;   K := B - A;   for I := 1 to N do   begin     G := Random;     Label7.Caption := FloatToStr(G); // Без этой строчки считает неверно     Repaint;     X := A + G * (B - A);     S := S + (1 + X);     Sleep(5);   end;   Integ := (1/N)*K*S;   Label5.Caption := FloatToStr(Integ); end; Всего записей: 312 | Зарегистр. 20-08-2008 | Отправлено: 22:02 02-02-2010 | Исправлено: Vo1T, 23:37 02-02-2010

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 5

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование