RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 200368: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: В двумерном массиве с числами в интервале от -20 до 20 заменить все элементы строк с номером от А до В на противоположные по знаку. Подсчитать сумму каждой строки, входящей в диапазон от А до В. Выводить все промежуточные значения. Delphi... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 03.03.2021, 05:26 Консультирует puporev (Профессор): Здравствуйте, Ericsson! Код :: выделить код procedure TForm1.Button1Click(Sender: TObject);
var a,a1:array of integer;
n,k,i,j:integer;
s:string;
begin
//вводим размерность массива
repeat
n:=strtoint(inputbox('','Введите размер массива от 1 до 20 n=','0'));
until n in [1..20];
setlength(a,n);
randomize;
//заполняем его случайными числами от -10 до 20
//и выводим в Лабель
Memo1.Clear;
Memo1.Lines.Add('Исходный массив'+#13#10);
s:='';
for i:=0 to n-1 do
begin
a[i]:=-10+random(31);
s:=s+inttostr(a[i])+' ';
end;
Memo1.Lines.Add(s+#13#10);
//запомним массив для второй вставки
setlength(a1,n);
a1:=a;
//вводим число для вставки
k:=strtoint(inputbox('','Введите целое число для вставки k=','0'));
Memo1.Lines.Add('Число для вставки k='+inttostr(k)+#13#10);
//ищем позицию первого отрицательного элемента
i:=0;
while (i<n)and(a[i]>0) do inc(i);
if i=n then Memo1.Lines.Add('В массиве нет отрицательных элементов'+#13#10)
else
begin
Memo1.Lines.Add('Первый отрицательный элемент='+inttostr(a[i])+' его номер='+inttostr(i+1)+#13#10);
//вставляем число
n:=n+1;
setlength(a,n);
for j:=n-1 downto i+2 do
a[j]:=a[j-1];
a[i+1]:=k;
Memo1.Lines.Add('Вставка числа k после первого отрицательного');
s:='';
for i:=0 to n-1 do
s:=s+inttostr(a[i])+' ';
Memo1.Lines.Add(s+#13#10);
end;
//ищем позицию последнего четного элемента
n:=n-1;//возвращаем начальный размер масссива
i:=n-1; //встаем в конец
while(i>=0)and(a1[i] mod 2<>0)do dec(i); //ишем первый с конца четный
if i=-1 then Memo1.Lines.Add('В массиве нет четных элементов'+#13#10)
else
begin
Memo1.Lines.Add('Последний четный элемент='+inttostr(a1[i])+' его номер='+inttostr(i+1)+#13#10);
//вставляем число
n:=n+1;
setlength(a1,n);
for j:=n-1 downto i+1 do
a1[j]:=a1[j-1];
a1[i]:=k;
Memo1.Lines.Add('Вставка числа k после первого отрицательного'+#13#10);
s:='';
for i:=0 to n-1 do
s:=s+inttostr(a1[i])+' ';
Memo1.Lines.Add(s);
end;
end;
Во вложении предлагаемый вид формы.
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 03.03.2021, 08:14 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Ericsson! Код :: выделить код unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
type
{ TForm1 }
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
StringGrid1: TStringGrid;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
i, j: integer;
begin
for i := 0 to StringGrid1.ColCount - 1 do
for j := 0 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[i, j] := IntToStr(randomRange(-20, 20));
for i := 0 to StringGrid1.RowCount - 1 do
ComboBox1.Items.Add(IntToStr(i));
ComboBox2.Enabled := False;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i: integer;
begin
for i := ComboBox1.ItemIndex to StringGrid1.RowCount - 1 do
ComboBox2.Items.Add(IntToStr(i));
ComboBox2.Enabled := True;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
i, j, s: integer;
begin
for j := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]) to
StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]) do
begin
s := 0;
for i := 0 to StringGrid1.ColCount - 1 do
begin
StringGrid1.Cells[i, j] := IntToStr(-StrToInt(StringGrid1.Cells[i, j]));
s := s + StrToInt(StringGrid1.Cells[i, j]);
end;
ShowMessage('Summa ' + IntToStr(j) + ' rows :=' + IntToStr(s));
end;
end;
end.Создаете форму :  Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
