2 задачи [Delphi 7]

[V0L40K_21]

помогите решить 9 вариант желательно код программы

[Serge_Bliznykov]

Вам лень набить текст задания (я уже молчу про то, что нужно попытаться написать самостоятельно код решения! Хотя бы ПОПЫТАТЬСЯ!), но Вы, тем не менее, уверены, что кто-то будет решать ваши задания?!
ну, ну...

[V0L40K_21]

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

Вам лень набить текст задания (я уже молчу про то, что нужно попытаться написать самостоятельно код решения! Хотя бы ПОПЫТАТЬСЯ!), но Вы, тем не менее, уверены, что кто-то будет решать ваши задания?!
ну, ну...

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

[ByAlex]

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

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

Наподобие -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=40;
var
  Mas:array[1..n] of Integer;
  i,min,max,imin,imax,sum:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  sum:=0;
  writeln('Input the ',n,' elements - ');
  for i:=1 to n do
  begin
    write('Mas[',i,'] = ');
    Readln(Mas[i]);
  end;
  min:=Mas[1];
  max:=mas[1];
  for i:=1 to n do
  begin
    if Mas[i]>max then
    begin
      max:=Mas[i];
      imax:=i;
    end;
    if Mas[i]<min then
    begin
      min:=Mas[i];
      imin:=i;
    end;
  end;
  if imin<imax then
  begin
     for i:=imin to imax do
        Sum:=sum+Mas[i];
  end
  else
  if imin>imax then
  begin
     for i:=imax to imin do
        Sum:=sum+Mas[i];
  end;
  Writeln;
  write('Sum = ',sum);
  readln;
end.

[V0L40K_21]

unit Unit1;

interface

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

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

var
Form1: TForm1;
a:array [1..5] of Integer;
b:array [1..5] of Integer;
c:array of Integer;
n,m,o:Integer;
i,t,l:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
n:=5;
m:=5;
Randomize;
for i:=1 to n do
begin
a[i]:=Random(5);
Memo1.Lines.Add(IntToStr(a[i]));
end;
for t:=1 to m do
begin
b[t]:=Random(5);
Memo2.Lines.Add(IntToStr(b[t]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo3.Clear;
o:=5;
for l:=1 to o do
begin
if (a[i])=(b[t]) then
begin
Memo3.Lines.Add(IntToStr(a[i]));
end;
end;
end;

end.

вот вторая...только не работает...подскажите что не так

[ByAlex]

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

unit Unit1;

interface

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

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

const
   n=5;
var
  Form1: TForm1;
  a:array [1..n] of Integer;
  b:array [1..n] of Integer;
  c:array of Integer;
  i,j:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Clear;
  memo2.Clear;
  Randomize;
    for i:=1 to n do
      begin
        a[i]:=Random(5);
        Memo1.Lines.Add(IntToStr(a[i]));
      end;
    for i:=1 to n do
      begin
        b[i]:=Random(5);
        Memo2.Lines.Add(IntToStr(b[i]));
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   t:integer;
begin
  Memo3.Clear;
  t:=1;
  for i:=1 to n do
     for j:=1 to n do
     begin
        if a[i]=b[j] then
        begin
           SetLength(C,t);
           Memo3.Lines.Add(IntToStr(a[i]));
           C[t-1]:=a[i];
           inc(t);
        end;
     end;
end;

end.

вот вторая...только не работает...подскажите что не так

Пробуй так!

[V0L40K_21]

Спасибо большое..заработало..суть улови,учту на будущее

[V0L40K_21]

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

Наподобие -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Mas:array[1..40] of Integer;
  i,min,max,imin,imax,sum:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  sum:=0;
  writeln('Input the 40 elements - ');
  for i:=1 to 40 do
  begin
    write('Mas[',i,'] = ');
    Readln(Mas[i]);
  end;
  min:=Mas[1];
  max:=mas[1];
  for i:=1 to 40 do
  begin
    if Mas[i]>max then
    begin
      max:=Mas[i];
      imax:=i;
    end;
    if Mas[i]<min then
    begin
      min:=Mas[i];
      imin:=i;
    end;
  end;
  for i:=imin to imax do
  begin
    Sum:=sum+Mas[i];
  end;
  Writeln;
  write('Sum = ',sum);
  readln;
end.

Переписал всё на делфи sum выводит длинное "левое" число((в чем проблема?

[Vanta11a]

  for i:=imin to imax do

А если imin > imax? Проверочку надо, проверочку.

[ByAlex]

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

  for i:=imin to imax do

А если imin > imax? Проверочку надо, проверочку.

Да, точно, забыл что то! Исправил!