помогите Составить программу delphi

[Blankos]

4. Составить программу, вьшолняющую перевод целых положительных чисел из
десятичной системы исчисления в девятеричную (основание 9).

5. Составить программу, вьшолняющую следующие действия.

-заполнение текстового файла случайными действительными числами от -50 до +60 (количество чисел случайная величина от 50 до 100);
-нахождение среднего арифметического набора данных из файла;
-найти количество чисел больших среднего арифметического на 10%.

Budu blagodaren)

[Iska]

Blankos, Правила Форума (http://forum.oszone.net/announcement-21-187.html). Ждём Ваших мыслей по поводу решения.

[Blankos]

unit getar_1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a : array[1..5] of real; // массив
summ: real; // сумма элементов
sr: real; // среднее арифметическое
i: integer; // индекс
begin
// ввод массива
// считаем, что если ячейка пустая, то соответствующий
// ей элемент массива равен нулю
for i:= 1 to 5 do
if Length(StringGrid1.Cells[i-1,0]) <> 0
then a[i] := StrToFloat(StringGrid1.Cells[i-1,0])
else a[i] := 0;

// обработка массива
summ := 0;
for i :=1 to 5 do
summ := summ + a[i];
sr := summ / 5;

// вывод результата
Label2.Caption :=
'Сумма элементов: ' + FloatToStr(summ) + #13+
'Среднее арифметическое: ' + FloatToStr(sr);
end;

// Функция обеспечивает ввод в ячейку только допустимых символов
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ; // цифры и <Back Space>

#13: // клавиша <Enter>
if StringGrid1.Col < StringGrid1.ColCount - 1
then StringGrid1.Col := StringGrid1.Col + 1;

'.',',': // разделитель целой и дробной частей числа
begin
if Key <> DecimalSeparator then
Key := DecimalSeparator; // заменим разделитель на допустимый
if Pos(StringGrid1.Cells[StringGrid1.Col,0],DecimalSeparator) <> 0
then Key := Chr(0); // запрет ввода второго разделителя
end;

'-': // минус можно ввести только первым символом,
// т.е. когда ячейка пустая
if Length(StringGrid1.Cells[StringGrid1.Col,0]) <> 0
then Key := Chr(0);

else // остальные символы запрещены
key := Chr(0);
end;
end;

end.

eta programma tolko vydaet summu i srednee zna4enie, kak po 5 zadaniuy sdelat'

[Iska]

Blankos, продолжаем знакомиться с конференцией и её правилами (которые Вы, разумеется, прочитали при регистрации и обязались соблюдать).

Общие правила конференции OSZone.net (http://forum.oszone.net/rules.html), п.2.3:
Язык общения на Конференции - русский.

Если Вы не можете писать кириллицей, используйте виртуальную клавиатуру, которая доступна в каждой теме справа от формы ответа. Исключения составляют названия торговых марок, моделей устройств, программных продуктов, а также иностранные аббревиатуры. Они должны воспроизводиться только латинскими буквами.


Также повторно привожу ранее приведённую мною ссылку на правила раздела — Правила Форума (http://forum.oszone.net/announcement-21-187.html), п.4:
Всегда оформляйте ваш код тегами [сode] (http://forum.oszone.net/misc.php?do=bbcode#code) - . Читабельность кода залог того что Вашей проблемой заинтересуются. Не соблюдение этого правила повлечёт перенос темы в раздел Тест-форум.

[torauma]

kak po 5 zadaniuy sdelat' »
-заполнение текстового файла случайными действительными числами от -50 до +60 (количество чисел случайная величина от 50 до 100); »
Работа с файлами в Delphi. (http://www.delphi-manual.ru/les7next.php)
Случайные числа в Delphi. (http://delphi-box.ru/random-%D0%B8-randomize-delphi.html)
Динамические массивы в Delphi. (http://easyprog.ru/index.php?option=com_content&task=view&id=89&Itemid=35)
-нахождение среднего арифметического набора данных из файла; »
Ну это у Вас уже есть.
-найти количество чисел больших среднего арифметического на 10% »
Сюрприз при сравнении действительных чисел. (http://delphikingdom.ru/asp/viewitem.asp?catalogid=374&mode=print)

Ждем более конкретных вопросов.