Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 06.04.2011, 16:49   #1
Выхухольxxx
 
Регистрация: 06.04.2011
Сообщений: 9
Вопрос задача в делфи

Помогите, пожалуйста, неразумной девушке!!))
задача в делфи на тему "циклы".
__Вычислите среднее арифметическое 30 случайных чисел, больших полусуммы первых двух__
вот то что у меня есть:


Код:
unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 
  sum : integer;
  count : integer;
  halfsum: real;
  temp : integer;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  sum := random(30) + random(30);
  count := 2;
  halfsum := sum / 2;
  while (count <> 30) do
  begin
  temp := random(30);
  if ( temp > halfsum)
  then
  begin
  sum := sum + temp;
  count := count + 1;
  end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:= floattostr(sum / count);
end;

initialization
  {$I unit1.lrs}

end.
__я это ей(преподше) сдала, но она требует от меня вывода этих случайных чисел на форму(пишу в лазарусе). Подскажите, пожалуйста, как это сделать?

P.S.: Да, вопрос глупый, не отрицаю, но меня что то клинит)

Последний раз редактировалось artemavd; 06.04.2011 в 17:37.
Выхухольxxx вне форума
Старый 06.04.2011, 17:01   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
вывода этих случайных чисел на форму
а куда выводить то7
в Label, Мемо, Edit, на канву, в Stringgrid?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 06.04.2011, 17:08   #3
Выхухольxxx
 
Регистрация: 06.04.2011
Сообщений: 9
По умолчанию

да мне все равно. хоть в Edit )) лишь бы было)

просто никак не пойму, какое значение Edit присвоить)

Последний раз редактировалось artemavd; 06.04.2011 в 17:37.
Выхухольxxx вне форума
Старый 06.04.2011, 17:20   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
Randomize;
a := random(30); 
b:= random(30);
sum:=a+b;
edit2.text:=edit2.text+inttostr(a)+';'+inttostr(b);
count := 2;
halfsum := sum / 2;
while (count <> 30) do
begin
temp := random(30);
edit2.text:=edit2.text+';'+temp;
if ( temp > halfsum)
then
begin
sum := sum + temp;
count := count + 1;
end;
end;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 06.04.2011, 17:24   #5
Выхухольxxx
 
Регистрация: 06.04.2011
Сообщений: 9
По умолчанию

а можно какие нибудь комментарии?)) что за величины a,b?))

то есть это две рандомные величины из этих 30ти?

Последний раз редактировалось artemavd; 06.04.2011 в 17:38.
Выхухольxxx вне форума
Старый 06.04.2011, 18:18   #6
Выхухольxxx
 
Регистрация: 06.04.2011
Сообщений: 9
По умолчанию

большое спасибо))))
Выхухольxxx вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Делфи! Марат05 Помощь студентам 1 13.12.2010 17:22
Задача в Делфи. DannyKing Помощь студентам 3 06.04.2009 19:44
Задача по Делфи! ИванЛоцман Помощь студентам 1 03.11.2008 01:56
Задача на Делфи evrey Общие вопросы Delphi 3 09.06.2008 09:01