[cyber922]

Ребят,помогите сделать правильно две программки, просто я уже заморочился совсем на этом, нужно сделать эти две задачки и идти дальше,а не получается,кому не сложно,продвиньте меня так сказать дальше по изучению delphi.

вот кое что набросал... дальше полный ступор....

Задания и мои наброски прикрепляю

Помогите доделать до конца задания...

[Страдалецъ]

1. Мемо умеет сам записывать в файл свое содержимое.

Код:

Memo1.Lines.SaveToFile('Sinus.txt')

поэтому я думаю можно из кода убрать ручное формирование файла
2. Значение х для вашей функции в цикле должно менятся иначе у вас будет один и тот-же результат при постоянных параметрах и цикл тоже никогда не завершится.

Для вычисления значений функции в точках отрезка применить цикл с параметром for i:=1 to N do begin Можно ли без этого обойтись?

Вы в программе уже это сделали, или вопрос в другом?

[Страдалецъ]

Что касается вашего второго задания, то там надо было тоже делать оконное а не консольное приложение и вывод не на консоль, а в мемо реализовывать.

[cyber922]

Сообщение от Страдалецъ

1. Мемо умеет сам записывать в файл свое содержимое.

Код:

Memo1.Lines.SaveToFile('Sinus.txt')

поэтому я думаю можно из кода убрать ручное формирование файла
2. Значение х для вашей функции в цикле должно менятся иначе у вас будет один и тот-же результат при постоянных параметрах и цикл тоже никогда не завершится.

Вы в программе уже это сделали, или вопрос в другом?

то есть, получается я первое задание правильно сделал?

[cyber922]

Сообщение от Страдалецъ

Что касается вашего второго задания, то там надо было тоже делать оконное а не консольное приложение и вывод не на консоль, а в мемо реализовывать.

со вторым, я вообще ничего не понимаю.. можно,если
это вас не затруднит,написать код для него, а по коду я уже пойму,что вы делаете...

Я кажется там Ещё вот это не сделал а как делать, в голову не прейдёт
Ввод массива, Сумма, Произведение,

[Страдалецъ]

Сообщение от cyber922

то есть, получается я первое задание правильно сделал?

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

[Страдалецъ]

Что касается второго задания надо просто делать по шагам, что написано в задании:

Разработать новое приложение, состоящее из однострочного поля редактирования для ввода длины одномерного массива

Создаете новый проект с пустой формой. Добавляете на форму TEdit компонент для ввода длины одномерного массива.
Далее по тексту задания:

и нескольких кнопок с надписями: Ввод массива, Сумма, Произведение, Среднее значение, Максимум, Минимум, Закрыть.

Добавляете на форму 7 компонентов TButton и меняете для каждого из них свойство Caption согласно задания.

Установить на форме многострочное редактируемое поле Memo

Добавляете компонент TMemo на форму.

в которое выдавать весь массив и его параметры при нажатии на кнопки. Например, при нажатии на кнопку Ввод массива выдать введенный от датчика случайных чисел массив.

Для компонента TButton у которого Caption = "Ввод" надо будет обработать событие OnClick. Там будет примерно такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
begin
 Memo1.Clear;
 Randomize;
 for i := 0 to StrToInt(Edit1.Text) - 1
 do Memo1.Lines.Add(IntToStr(Random(10)));
end;

Для компонента TButton у которого Caption = "Сумма" надо будет обработать событие OnClick. Там будет примерно такой код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var i,Sum: Integer;
begin
 if Memo1.Lines.Count = 0 then Exit;
 Sum := 0;
 for i := 0 to Memo1.Lines.Count - 1
 do Sum := Sum + StrToInt(Memo1.Lines[i]);
 Memo1.Lines.Add(IntToStr(Sum));
end;

и т.д.

[cyber922]

Cпасибо.. будем пробывать)