|
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. |
|
|
|
Процедура не видит 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. |
|
|
|
|
|
Цитата natasharikit (  ) Стоит ли учить паскаль?
GeRa
|
|
|
|
Задано натуральное число N и целые числа X(1), Y(1), X(2), Y(2), … , X(N), Y(N).
Целые числа определяют координаты точек на плоскости. Вычислит число точек с
целочисленными координатами лежащих на сторонах или внутри многоугольника.
Например, если дано N=4, X(1)=0, Y(1)=0, X(2)=0, Y(2)=2, X(3)=2, Y(3)=2, X(4)=2,
Y(4)=0, то ответ: 9 точек с координатами: (0,0), (0,1), (0,2), (1,2), (2,2), (2,1), (2,0),
(1,0), (1,1). •
|
|
|
|
|
|
В вашем коде есть несколько ошибок и недочетов, которые необходимо исправить:Неверное объявление переменных s, k, и i: Эти переменные должны быть целыми (integer), а не булевыми (boolean).Отсутствие переменных m, n, a, b, c, и массивов x и y: Они должны быть объявлены в программе и инициализированы.Ошибки в синтаксисе: Пропущены запятые, точки с запятой, и отсутствует подключение модуля для использования функции Power.Необходимо правильно использовать функцию Power для вычисления кубического корня.Добавлен вывод результата суммы S.Ниже приведен исправленный код:pascalКопіювати кодProgram z1;uses crt, math; // Подключаем модуль math для использования Power
var
s: real; // Сумма должна быть вещественного типа
i, k, m, n: integer; // Счетчики и размеры последовательностей
a, b, c: integer; // Входные целые числа
x: array[1..100] of integer; // Последовательность x (размеры 100 взяты для примера)
y: array[1..100] of integer; // Последовательность y
begin
clrscr;
// Инициализация переменных и массивов
writeln('Введите значения m и n:');
readln(m, n);
writeln('Введите коэффициенты a, b, c:');
readln(a, b, c);
writeln('Введите элементы последовательности x:');
for i := 1 to m do
readln(x);
writeln('Введите элементы последовательности y:');
for k := 1 to n do
readln(y[k]);
s := 0; // Инициализация суммы
for i := 1 to m do
for k := 1 to n do
s := s + Power(a * x + b * y [k]+ c, 1 / 3); // Кубический корень из выражения
writeln('Сумма S = ', s:0:2); // Вывод суммы с двумя знаками после запятой
readln;
end.
Объяснение исправлений:Объявление переменных: Все необходимые переменные и массивы объявлены в начале программы.Инициализация переменных и массивов: Предусмотрено чтение значений переменных m, n, a, b, c, и последовательностей x и y с клавиатуры.Вычисление суммы S: Применена функция Power для вычисления кубического корня из выражения a * x + b * y [k]+ c.Вывод результата: Добавлен вывод итоговой суммы S с форматированием до двух знаков после запятой.
|
|
|
|
