Учеба - Страница 6 - Офис клана [SWS]

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 6 из 6
«
1
2
3
4
5
6

Офис клана [SWS] » Флейм » Болталка » Учеба (Все что по учебе...)

Учеба

Warkl

Дата: Четверг, 14.06.2012, 20:06 | Сообщение # 126

Лидер клана [SWS]

Группа: Администраторы

Сообщений: 1771

Награды: 7

Репутация: 72

Статус: Отсутствует

для начала одну попробую

Warkl

Дата: Воскресенье, 17.06.2012, 00:17 | Сообщение # 127

Лидер клана [SWS]

Группа: Администраторы

Сообщений: 1771

Награды: 7

Репутация: 72

Статус: Отсутствует

ну вот ничего сложного:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure Sym(var a:array of integer; i, b:integer; var s : integer);
Begin
s:=0;
for i:=1 to b do
begin
s:=s+a[i];
end;
End;

procedure TForm1.Button1Click(Sender: TObject);
const n=10; m=10; k=10;
var x:array[1..n] of integer;
y:array[1..m] of integer;
z:array[1..k] of integer;
i, n1, m1, k1, sx, sy, sz: integer;
begin
n1:=StrToInt(Edit1.Text);
for i:=1 to n1 do x[i]:=StrToInt(Memo1.Lines.strings[i]);
m1:=StrToInt(Edit2.Text);
for i:=1 to m1 do x[i]:=StrToInt(Memo2.Lines.strings[i]);
k1:=StrToInt(Edit3.Text);
for i:=1 to k1 do x[i]:=StrToInt(Memo3.Lines.strings[i]);
Sym(x, i, n1, sx);
Sym(y, i, m1, sy);
Sym(z, i, k1, sz);
if (sx<sy) and (sx<sz) then ShowMessage('massiw x naimenshii')
else if (sy<sz) then ShowMessage('massiw y naimenshii')
else ShowMessage('massiw z naimenshii');
end;
end.

ГермионаГрейнджер

Дата: Воскресенье, 17.06.2012, 01:20 | Сообщение # 128

Экспекто Патронум

Группа: Друзья

Сообщений: 886

Награды: 6

Репутация: 17

Статус: Отсутствует

кинь ещё саму прогу на fczp-1925@mail.ru

Warkl

Дата: Воскресенье, 17.06.2012, 01:42 | Сообщение # 129

Лидер клана [SWS]

Группа: Администраторы

Сообщений: 1771

Награды: 7

Репутация: 72

Статус: Отсутствует

короче завтра остальные

Warkl

Дата: Понедельник, 18.06.2012, 15:46 | Сообщение # 130

Лидер клана [SWS]

Группа: Администраторы

Сообщений: 1771

Награды: 7

Репутация: 72

Статус: Отсутствует

Это 3:
procedure TForm1.Button1Click(Sender: TObject);
const m=10;n=10;k=100;
var d:array[1..n, 1..m] of integer;
f:array[1..n] of string;
i,j, n1, m1, k1:integer;
begin
randomize;
k1:=0;
n1:=StrToInt(Edit1.Text);
m1:=StrToInt(Edit2.Text);
for i:= 0 to n1-1 do
for j:= 0 to m1-1 do
begin
d[i+1,j+1]:=StrToInt(StringGrid1.Cells[i,j]);
if (d[i+1,j+1]>=-2) and (d[i+1,j+1]<=2) then
begin
f[k1]:=IntToStr(i+1)+' '+IntToStr(j+1);
k1:=k1+1;
end;
end;
for i:= 0 to k1-1 do ListBox1.Items.Strings[i]:=f[i];
end;

procedure TForm1.FormActivate(Sender: TObject);
var n1,m1, j, i:integer;
begin
n1:=StrToInt(Edit1.Text);
m1:=StrToInt(Edit2.Text);
for i:= 0 to n1-1 do
for j:= 0 to m1-1 do
StringGrid1.Cells[i,j]:=IntToStr(Random(10)-5);
end;

end.