Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
1 / 1 / 2
Регистрация: 13.11.2015
Сообщений: 53
1

Как в функции использовать неопределённое кол-во переменных (2-10 переменных)

25.07.2016, 18:24. Просмотров 1069. Ответов 7
Метки нет (Все метки)

Вот код Средне Арифметическое :
Pascal
1
2
3
4
5
6
7
8
9
library SA;
interface
  function sa2(a,b:real):real;
implementation
  function sa2(a,b:real):real;
  begin
    sa2 := (a+b)/2;
  end;
end.
Данная функция только для двух чисел, а надо что бы она одна работала с разным количеством!
например:
s := sa2(a,b); среднее арифметическое из 2 двух чисел
s := sa2(a,b,c); среднее арифметическое из 3 двух чисел

procedure sa(a,b..):real;
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.07.2016, 18:24
Ответы с готовыми решениями:

Неопределённое количество переменных
Имеется следующий код: #include "pch.h" #include <iostream> using namespace std; int main()...

Как использовать переменных среды linux в clang программе?
Собственно, нужно что бы моя программка вывела значение переменной LOGNAME. Для баша я знаю как, а...

Тип переменных в функции, передаваемой как параметр другой функции
есть функция static int filesort(const void *va, const void *vb) { dirent **a=(dirent **)...

Как нарисовать график функции, в кот. по оси ординат и абсцисс функции двух переменных
Доброго времени суток! Мне нужно проанализировать связь двух функций, наглядно это проще сделать...

7
Модератор
60876 / 45692 / 31526
Регистрация: 18.05.2008
Сообщений: 109,938
25.07.2016, 18:31 2
Если разное число слагаемых, возьмите параметром массив.
0
1 / 1 / 2
Регистрация: 13.11.2015
Сообщений: 53
25.07.2016, 18:34  [ТС] 3
Pascal
1
function sa2(a : array [1..10] of real):real;
Так что ли???
0
Модератор
60876 / 45692 / 31526
Регистрация: 18.05.2008
Сообщений: 109,938
25.07.2016, 18:35 4
Pascal
1
2
3
type mas=array[1..100] of real;
 
function sa2(a : mas; n : integer):real;
0
1 / 1 / 2
Регистрация: 13.11.2015
Сообщений: 53
25.07.2016, 18:47  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
{$reference SAr.dll}
var
  a : array [1..100] of real;
  r : real;
begin
  for var i := 1 to 100 do a[i] := random(1,200);
  r := sa2(a,3);
  writeln(r);
end.
Ошибка: 7: Program1.pas(7) : Нельзя преобразовать тип array [1..100] of real к SAr.mas
0
Модератор
60876 / 45692 / 31526
Регистрация: 18.05.2008
Сообщений: 109,938
25.07.2016, 18:58 6
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
type mas=array of real;
function sa2(a:mas;n:integer):real;
begin
result:=0;
for var i := 1 to n-1 do
result:=result+a[i];
result:=result/n;
end;
var a:mas;
    n:integer;
    r : real;
begin
readln(n);
setlength(a,n);
for var i := 0 to n-1 do 
 begin
  a[i] := random(1,200);
  write(a[i]:4);
 end;
writeln; 
r := sa2(a,3);
writeln(r:0:2);
end.
1
3060 / 1658 / 443
Регистрация: 28.02.2015
Сообщений: 3,326
26.07.2016, 13:30 7
Витя Ямук,
Если использовать указатели, то Вы не будете привязаны к определенному типу массива, а только к типу элемента массива.
0
Модератор
1595 / 1055 / 480
Регистрация: 17.07.2012
Сообщений: 5,234
26.07.2016, 18:29 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
{$mode objfpc}
 
function sum(a: array of const): Integer;
var i: Integer;
begin
  Result := 0;
  for i := Low(a) to High(a) do
    if a[i].vtype = vtInteger then Result += a[i].vInteger;
end;
 
begin
  Writeln(sum([1, 3, 5, 7]));
end.
http://www.freepascal.org/docs... fsu70.html
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.07.2016, 18:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как организовать ввод переменных функции
По заданию нужно начертить при помощи Canvas'а следующую параметрически заданную получается, что...

Исправить в программном коде рандомное задание переменных, на ввод переменных пользователем
Помогите пожалуйста замеить в программе задание чисел рандомно, на задание вручную. Тобиш чтобы...

Поменять местами значения целых переменных х и у не используя дополнительных переменных
Знаю, что это очень простая задача, но никак не могу сделать, пожалуйста помогите!!! Поменять...

Передача значений переменных или ссылок, неконтролируемое изменение переменных
// заголовок класса ObservableCollection<LineDom> Method1; Method1 = new...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.