Составить программу для вычисления суммы

@tatuska_37 · Регистрация: 12.12.2012

Author24 — интернет-сервис помощи студентам

Составить программу для вычисления суммы
∑_(k=1)^n▒x_k *y_k

@Paster Fob · 12.12.2012, 22:37

А можно формулу нормально написать?

@tatuska_37 · 12.12.2012, 22:43 **[ТС]**

Формула

@Paster Fob · 13.12.2012, 13:01

X и Y я так понимаю массивы.

Добавлено через 2 часа 43 минуты

Pascal

type
  tarray=array [1..1000] of real;
 
procedure writearray(var arg:tarray;n:integer);
var
  a,b:real;
  i:integer;
 
begin
  i:=0;
  while i<n do begin
    a:=random(100)-50;
    b:=random(100)-50;
    if b<>0 then begin
      inc(i);
      arg[i]:=a/b;
      write(arg[i]:3:3,' ');
    end;
  end;
  writeln
end;
 
var
  sum:real;
  k,n:integer;
  x,y:tarray;
 
begin
  randomize;
  writeln('введите предел цикла n');
  readln(n);
  writeln('массив x: ');
  writearray(x,n);
  writeln('массив y: ');
  writearray(y,n);
  sum:=0;
  for k:=1 to n do
    sum:=sum+x[k]*y[k];
  writeln('сумма равна ',sum:3:3);
end.

@tatuska_37 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 23
		1
	Составить программу для вычисления суммы 12.12.2012, 22:19. Показов 729. Ответов 3 Метки нет (Все метки) Составить программу для вычисления суммы ∑_(k=1)^n▒x_k *y_k 0

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.12.2012, 22:37	2
	А можно формулу нормально написать? 0

@tatuska_37 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 23
	12.12.2012, 22:43 [ТС]	3
	Формула Миниатюры 0

	13.12.2012, 13:01

Опции темы