В массиве целых чисел вычислить сумму первых четырех отрицательное элементов

@$py · Регистрация: 05.04.2011

Студворк — интернет-сервис помощи студентам

В массиве целых чисел вычислить сумму первых четырех отрицательное элементов

Добавлено через 2 часа 7 минут
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
StringGrid2: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var i1,i2:word;
begin
for i1:=0 to (StringGrid1.ColCount-1) do
for i2:=0 to (StringGrid1.ColCount-1) do
if strTofloat(StringGrid1.Cells[i1,i2])<0 then StringGrid2.Cells[i1,i2]:='0'
else StringGrid2.Cells[i1,i2]:=StringGrid1.Cells[i1,i2];
end;
end.

@zuxa-zuxa · 24.05.2012, 13:19

Delphi

var
mass:array[1..100] of integer;
i,n:integer;
 
 
begin
// заполняем тут массивы чем угодно
  for i:=1 to 100 do  // проверяем все 100 элементов массива
  begin
  if mass[i]<0 then  // если отрицательный то
    begin
    n:=n+1;  // прибавляем сколько у нас уже есть отрицательных
    Edit1.text:=edit1.text + inttostr(mass[i]);  // пишем этот найденый отрицательный
    end; 
  if n=4 then break;  // если нашли 4 штуки то выходим из цикла и усе)
  end;
end;

@$py 3 / 3 / 5 Регистрация: 05.04.2011 Сообщений: 59
		1
	В массиве целых чисел вычислить сумму первых четырех отрицательное элементов 24.05.2012, 12:00. Показов 860. Ответов 1 Метки нет (Все метки) В массиве целых чисел вычислить сумму первых четырех отрицательное элементов Добавлено через 2 часа 7 минут unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Label1: TLabel; Label2: TLabel; Button1: TButton; Edit1: TEdit; Edit2: TEdit; StringGrid2: TStringGrid; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); var i1,i2:word; begin for i1:=0 to (StringGrid1.ColCount-1) do for i2:=0 to (StringGrid1.ColCount-1) do if strTofloat(StringGrid1.Cells[i1,i2])<0 then StringGrid2.Cells[i1,i2]:='0' else StringGrid2.Cells[i1,i2]:=StringGrid1.Cells[i1,i2]; end; end. 0

	24.05.2012, 13:19

Опции темы

В массиве целых чисел вычислить сумму первых четырех отрицательное элементов

Решение