Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » строки в Delphi (Дан целочисленный вектор А(n)...)
строки в Delphi
Дан целочисленный вектор А(n). Построить вещественный вектор B(n), i-ый элемент которой равен среднему арифметическому двух соседних элементов вектораА: В = =(А+А[i+1])/2, (а B[10]=A[10]). Сортировка методом просеивания.
 
Этот код для паскаля переделанный под делфи, но в делфи он открывает черное окно ( т.е. окно cmd и там считает), а надо, что бы ответ показывало во второй форме.
Код
[size=12] program Project1; {$APPTYPE CONSOLE} //uses crt; const MaxCount = 50; var A: array[1..MaxCount] of Integer; B: array[1..MaxCount] of Real; i, n: Byte; begin repeat //ClrScr; Write('n: '); ReadLn(n); until n in [1..MaxCount]; //ClrScr; WriteLn('A:'); Randomize; for i := 1 to n do begin A [i]:= Random(50); Write(A[i], ' '); end; WriteLn; WriteLn('B:'); B[1] := A[1]; Write(B[1]: 5: 2, ' '); for i := 2 to n - 1 do begin B [i]:= (A[i - 1] + A [i]+ A[i + 1]) / 3; Write(B[i]: 5: 2, ' '); end; B [n]:= A[n]; Write(B[n]: 5: 2, ' '); //ReadKey; ReadLn; end.




Добавлено (01.04.14, 23:20)
---------------------------------------------
В общем надо код в эту процедуру записать:


Код
procedure TForm1.N11Click(Sender: TObject); ( процедура верная, но этот код, что написан внизу, для примера)
var i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
//????????????????????????????????
{if a [i]mod 4=0 then }
{s:=s+a[i]; }
  form2.edit1.Text:=floattostr(s);
  form2.show;
end;

Я хотел, архив программы скинуть, но здесь вроде бы это невозможно.

В общем ещё раз повторюсь, помогите написать код к Delphi 7 для этого задания:
Дан целочисленный вектор А(n). Построить вещественный вектор B(n), i-ый элемент которой равен среднему арифметическому двух соседних элементов вектора А: В =(А+А[i+1])/2, (а B[10]=A[10]). Сортировка методом просеивания.

Добавлено (03.04.14, 20:12)
---------------------------------------------
Часть процедуры по матрице. Сортировка методом просеивания. Для правильной работы обязательно надо вводить вектор из 10 цифр, т.к. B[10]=A[10]


Код
procedure TForm.zadanClick(Sender: TObject);
var mass2: array of real;
begin
      read;
      Setlength(mass2, n+2);
      for i:=1 to n do mass2[i]:=(mass[i]+mass[i+1])/2;
      Tform2.StringGrid2.ColCount:=Tform.updown.Position+1;
      for i:=1 to n do Tform2.StringGrid2.Cells[i,1]:=floattostr(mass2[i]);
      if n=10 then Tform2.StringGrid2.Cells[10,1]:=floattostr(mass[10]);
      Tform2.label2.Caption:='Своё задание';
      Tform2.result.Visible:=false;
      Tform2.StringGrid2.Visible:=true;
      Tform2.Show;
end;

end.
1 | Автор: anton94by | 2014-04-03, 20:12   |  Репутация: [ + 1 ]
1 | Автор: anton94by | 2014-04-03, 20:12   |  Репутация: [ + 1 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Delphi » строки в Delphi (Дан целочисленный вектор А(n)...)
  • Страница 1 из 1
  • 1
Поиск: