процедуры и функции. не могу найти ошибку

20.12.2015, 21:25. Показов 602. Ответов 0

Метки нет (Все метки)

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

Программа. По заданным 5-элементным целым массивам x, y вычислить
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{j=1}^{5}x{\left[j \right]}^{2}$

если $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{j=1}^{5}x\left[j \right]*\left[j \right]>0$

иначе $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{j=1}^{5}y{\left[j \right]}^{2}$

вот код

Pascal

procedure gen_prn(s: string; var z: array of longint);
var i: integer;
begin
  writeln('Array ', s, ':');
  for i := low(z) to high(z) do
    begin
      z[i] := -99 + random(199);
      write(z[i]:4)
    end;
  writeln
end;
 
function sum_prod(var p, q: array of longint): longint;
var i: integer;
    t: longint;
begin
  t := 0;
  for i := low(p) to high(p) do t := t + p[i] * q[i];
  sum_prod := t;
end;
 
var x, y: array [1..5] of integer;
 
begin
  randomize;
  gen_prn('X', x);
  gen_prn('Y', y);
  write('Result = ');
  if sum_prod(x, y) > 0
    then write(sum_prod(x, x))
    else write(sum_prod(y, y));
  readln
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.12.2015, 21:25

Ответы с готовыми решениями:

Процедуры и функции (найти ошибку в коде)
1. С помощью функции реализовать заполнение одномерного массива рандомными числами 2. Найти...

Не могу найти ошибку в функции
Доброго времени суток.Помогите дописать программу Вычислить и вывести на экран в виде таблицы...

Не могу найти ошибку в функции
Всем привет! ) Вот функция, она удаляет (вырезает) совпадения в строках Memo2 ну и в Столбце...

Не могу найти ошибку в функции
не могу найти ошибку, помогите очень срочно надо. вот код #include <stdio.h> #include <stdlib.h>...

	20.12.2015, 21:25

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.12.2015, 21:25

Помогаю со студенческими работами здесь

Табуляция функции (цикл for), не могу найти ошибку
#include <cstdlib> #include <iostream> #include <math.h> using namespace std; int main() {...

В функции обратной матрицы, не могу найти ошибку
У меня есть программа для нахождения обратной матрицы написанная на Dev C++. #include <iostream>...

Не могу найти ошибку в процессе минимизации функции
Добрый день. Помогите пожалуйста. Нужно минимизировать функцию с помощью карты Карно. Сначала по...

Не могу найти ошибку в функции перевода строк в 16-ричную СС
Привет, есть функция: void calc(int num,int base) { if (num == 0) return; ...

Программа вычисляющая значение функции. не могу найти ошибку
привет!)) помогите пожалуйста найти ошибку в программе. #include <conio.h> #include...

Нахождение максимального в неглавной функции. Не могу найти ошибку
Задача такая - в главной функции создать матрицу заданного размера, по указателю передать ее в...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх