fergustt
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем.Нужно написать программу на LAZARUS.Помогите пожалуйста кому не сложно,завтра утром сдавать а я не могу никак вообще додуматься как сделать 2ой Баттон.Вроде программа легкая,но не доходит
Само условие задачи(первый баттон вроде как я правильно оформил )
По заданному условию сформировать одномерный массив вывести на печать и произвести операции по обработке полученных компонент массива.Для всех вариантов исходными данными являются одномерный массив,элементы которого задаются рандомом от -50 до 50 и целое положительное к.Найти произведение двух соседних элементов массива,наиболее близкое по модулю к А
procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
n:=StrToInt(Edit1.Text);
for i:=0 to n-1 do
begin
StringGrid1.Cells[i,0]:=IntToStr(i+1);
StringGrid1.Cells[i,1]:=FloatToStr(random(51)-50);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i,k:integer;
s:extended;
begin
k:=StrToInt(Edit2.Text);
может кому лень читать.нужно Найти произведение двух соседних элементов массива,наиболее близкое по модулю к А
(от -50 до 50)
Нарушение п. 2.7. главы VIII Соглашения по использованию |
