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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.12.2012, 23:11   #1
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
По умолчанию Количество чисел, которые генерируются и диапазон для генерации вводить через форму.

Определить, какой процент повторов случайных чисел (общие_количество повторов / общие количество_чисел * 100) будет встречаться при использовании стандартного Random () Паскалю. Количество чисел, которые генерируются и диапазон для генерации вводить через форму.

Возникают некоторые ошибки ,которые я не в силе исправить


Код:
unit Unit1;
   interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyForm = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyForm: TMyForm;
  n,d,i,j,m,k:integer;
  c:real;
  Edit3:string;
  A:array[1..1000] of integer;
  B:array[1..100] of integer;

implementation

{$R *.dfm}

procedure TMyForm.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.Text);//преобразовываем текст в число
end;

procedure TMyForm.Button2Click(Sender: TObject);
begin
d:=strtoint(Edit2.Text);
end;

procedure TMyForm.Button3Click(Sender: TObject);
begin
for i:=1 to n do
A[i]:=Random(d);
for j:=i+1 to n do
begin
if A[i]=A[j] then k:=k+1;
end;
if k<>1 then B[i]:=k;k:=1;
end;
begin
for i:=1 to n do
if B[i]<>0 then m:=m+1;
c:=m/n*100;
Edit3.caption:=inttostr(c);
end.
Ошибки :
[Warning] Unit1.pas(48): For loop control variable must be simple local variable
[Warning] Unit1.pas(50): For loop control variable must be simple local variable
[Error] Unit1.pas(60): Record, object or class type required
[Error] Unit1.pas(60): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Владан вне форума
Старый 21.12.2012, 23:21   #2
xoodoo
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 212
По умолчанию

Там и определять ничего не нужно - для любого распределения при стремлении длины выборки к бесконечности процент стремится к ста.
xoodoo вне форума
Старый 21.12.2012, 23:36   #3
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
По умолчанию

Цитата:
Сообщение от xoodoo Посмотреть сообщение
Там и определять ничего не нужно - для любого распределения при стремлении длины выборки к бесконечности процент стремится к ста.
мне всё таки нужно исправить ошибки
Владан вне форума
Старый 22.12.2012, 10:13   #4
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Первые 2 не ошибки а предупреждения, что надо использовать локальную переменную, а не глобальную в цикле for (i и j соответственно), перенесите в процедуру и всё.
3я - скорее всего из-за 4й.
4я - заменить inttostr на FloatToStr
5я - итоговая ошибка - исправьте предыдущие (хотя хватит и только 3й) и всё ок будет
phomm вне форума
Старый 22.12.2012, 11:19   #5
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
Хорошо

Цитата:
Сообщение от phomm Посмотреть сообщение
Первые 2 не ошибки а предупреждения, что надо использовать локальную переменную, а не глобальную в цикле for (i и j соответственно), перенесите в процедуру и всё.
3я - скорее всего из-за 4й.
4я - заменить inttostr на FloatToStr
5я - итоговая ошибка - исправьте предыдущие (хотя хватит и только 3й) и всё ок будет
благодарю !
Владан вне форума
Старый 23.12.2012, 18:59   #6
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
По умолчанию

удалите эту тему
Владан вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit. Pyxy Помощь студентам 2 21.03.2012 23:24
функция генерации случайных чисел rand() в main pufystyj Общие вопросы C/C++ 4 08.02.2011 21:09
дописать код в программу для того чтоб вводить время в форму Jenya92 Помощь студентам 0 31.10.2010 17:34
Пара вопросов по генерации чисел gamer123 Общие вопросы Delphi 5 26.07.2010 17:02
как задать диапазон для случайных чисел Аlex Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 07.05.2010 03:18