Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » PascalABCNET (Помогите исправить ошибки в программе)
PascalABCNET
Даны последовательности чисел \(x_{1}, ..., x_{m}\) и \(y_{1}, ..., y_{n}\), натуральные числа m и n, целые a, b, c. Вычислить сумму и распечатать:
$$S=\sum_{i=1}^m\,\sum_{k=1}^n\,\sqrt[3]{ax_i+by_k+c\,}$$
Вот программа,помогите изменить ее
Код
Program z1;
uses crt;
var s,k,i:boolean;
begin
clrscr;
s:=0
for i:=1 to m do for k:=1 to n do s := s + Power( a*x [i]+ b*y [k]+ c, 1/3);
begin
writeln(.........);
end;
readln
end.
1 | Автор: Greschnik | 2015-11-16, 15:37 | Изменено: Greschnik - Пн, 2015-11-16, 15:46   |  Репутация: [ + 0 ]
Цитата
Даны последовательности чисел x1;:::;xm и y1;:::;yn , натуральные числа m и n, целые a, b, c. Вычислить сумму и распечатать:

Если все данные - целые числа, то вот решение:
Код
Program z1;
var k,i,m,n:integer;
var a,b,c:integer;
var x: array[1..7] of integer;
var y: array[1..5] of integer;
var s:real;
begin
for i:=1 to 7 do x[i]:=random(10);
for i:=1 to 5 do y[i]:=random(20);
m:=5;n:=6;
a:=2;b:=4;c:=4;
s:=0;
for i:=1 to 7 do for k:=1 to 5 do s:=s+Power( a*x[i]+ b*y[k]+ c, 1/3);
writeln('s=',s);
end.
2 | Автор: babax | 2015-11-16, 16:17   |  Репутация: [ + 5 ]
2 | Автор: babax | 2015-11-16, 16:17   |  Репутация: [ + 5 ]
Процедура не видит listBox. Что делать?


Код
Unit a3;

interface

uses System, System.Drawing, System.Windows.Forms, addaccount, param;

type
  Form3 = class(Form)
    procedure tabPage1_Click(sender: Object; e: EventArgs);
    procedure listBox1_SelectedIndexChanged(sender: Object; e: EventArgs);
    procedure button1_Click(sender: Object; e: EventArgs);
    procedure button2_Click(sender: Object; e: EventArgs);
    procedure button3_Click(sender: Object; e: EventArgs);
    procedure button4_Click(sender: Object; e: EventArgs);
    procedure button5_Click(sender: Object; e: EventArgs);
    procedure updatelist;
  {$region FormDesigner}
  private
    {$resource a3.Form3.resources}
    tabPage4: TabPage;
    tabPage2: TabPage;
    tabPage1: TabPage;
    button5: Button;
    button4: Button;
    button3: Button;
    button2: Button;
    button1: Button;
    groupBox2: GroupBox;
    label6: &Label;
    label5: &Label;
    label4: &Label;
    label3: &Label;
    label2: &Label;
    label1: &Label;
    groupBox1: GroupBox;
    listBox1: ListBox;
    tabControl1: TabControl;
    {$include a3.Form3.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure Form3.tabPage1_Click(sender: Object; e: EventArgs);
begin
  
end;

procedure Form3.listBox1_SelectedIndexChanged(sender: Object; e: EventArgs);
begin
  
end;

procedure Form3.button1_Click(sender: Object; e: EventArgs);
begin
  Form(new Form2).show;
end;

procedure Form3.button2_Click(sender: Object; e: EventArgs);
begin
  
end;

procedure Form3.button3_Click(sender: Object; e: EventArgs);
begin
  
end;

procedure Form3.button4_Click(sender: Object; e: EventArgs);
begin
  
end;

procedure Form3.button5_Click(sender: Object; e: EventArgs);
begin
  
end;

procedure updatelist;
begin
  for var uli := 1 to param.channelcount do listBox1.Items.Add(param.chname[uli]); //выдаёт ошибку: Неизвестное имя 'listBox1'
end;

end.
3 | Автор: megakott | 2017-08-02, 19:45   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » PascalABCNET (Помогите исправить ошибки в программе)
Страница 1 из 11
Поиск: