Создать визуальную среду в Delphi

[GendoJIF]

Найти среднее значение элементов массива размером 10, преобразовать исходный массив вычитая из его элементов среднее значение. Распечатать массивы и средние значения. Преподаватель сказал что ( цитата: за 5 минут решается все ).... все нужно делать в визуальной среде, пытался сдать в Паскале, не удалось, помогите пожалуйста...

[Stilet]

Так а всетки что делать то сказали? Создавать среду или решать задачу с массивом?

[GendoJIF]

решить задачу с массивами, используя среду Делфи, короче должно получится окошко с решением задачи

[type_Oleg]

Понятно, с Delphi ни разу не имели дело. Иначе знали бы умные слова - форма, оконное приложение .... Да и вообще с Паскалем, и вообще самому неохота .
Ведь на самом деле - делов на 5 минут.
Это не помощь, это пардон - халява..

[GendoJIF]

uses crt;
const n=10;
var a:array[1..n]of real;
sr:real;
i:integer;
begin
clrscr;
writeln('Ishodny massiv:');
sr:=0;
for i:=1 to n do
begin
a[i]:=random(10)+random;
write(a[i]:6:2);
sr:=sr+a[i];
end;
sr:=sr/n;
writeln;
writeln('sr=',sr:5:2);
writeln('Rezultat:');
for i:=1 to n do
begin
a[i]:=a[i]-sr;
write(a[i]:6:2);
end;
readln
end.

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

[type_Oleg]

То есть, консольное готово получается.
Теперь надо оконное сделать. Точнее переделать вывод информации.
У вас есть Delphi, чтобы пробовать? Или Lazarus ? Он бесплатный.
Создаете оконное приложение. При входе в Delphi обычно сразу выдается пустое окно, как в Word - пустой лист.
Сажаете на него Edit - окошко для вывода среднего, и Memo - для вывода измененного массива.
Вместо writeln('sr=',sr:5:2);

Edit1.Text:=FloatToStr(sr);

А вместо Write(a[и]:6:2);

Memo1.Lines.Add(FloatToStr(a[i]));

А можно и только Memo использовать.

PS Кстати, надо еще Randomize, чтобы еще случайнее было.


Самое главное забыл - кнопку Button. И вся программа - в обработчик события Button1Click

[GendoJIF]

Нужно прописывать отдельно Edit и Отдельно Memo? Или можно чуть поменяв код вставить его целиком?

[type_Oleg]

Вот так например, если все выводить в одно большое окошко Memo, без маленького окошка Edit.
Это - модуль Unit формы .
Без верхушки кода, который создается автоматически, как шаблон.

procedure TForm1.Button1Click(Sender: TObject);
const N=10;
var i:Integer;
  a:array[1..N]of Real;
  sr:Real;
begin
 Memo1.Clear;
 Memo1.Lines.Add('исходный массив'); //в оконном приложении нет проблем с буквами
 sr:=0;
 for i:=1 to N do
  begin
   a[i]:=10*Random;
   Memo1.Lines.Add(FloatToStr(a[i]));
   sr:=sr+a[i];
  end;
 sr:=sr/N;
 Memo1.Lines.Add('среднее  =  '+FloatToStr(sr));
 Memo1.Lines.Add('результат:');
 for i:=1 to N do
  begin
   a[i]:=a[i]-sr;
   Memo1.Lines.Add(FloatToStr(a[i]));
  end;
end;
initialization
 Randomize;
end.

[GendoJIF]

БОЛЬШОЕ СПАСИБО! ВСЕ ПОЛУЧИЛОСЬ!ПРОГ1.jpg