Функция вместо процедуры

20.12.2019, 17:33. Показов 320. Ответов 1

Метки paskal abc (Все метки)

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

создать вместо этой процедуры функцию

Pascal
1
2
3
4
5
6
7
8
9
procedure sred(var nx:integer; var xx:mas; var srx:real);
var i,j,sum:integer;
begin
sum:=0;
 for i:=1 to nx do
 for j:=1 to nx do
sum:=sum+xx[i,j];
srx:=sum/(nx*nx);
end;

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

20.12.2019, 17:33

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

Функция и процедуры
Добрый день всем. У меня вопрос зачем тут нужны 2 функции? Желательно ответить срочно. Заранее спасибо program volga; uses crt; type...

Hайти и записать вместо x[1] наибольший элемент, а вместо x[2] -наименьший для массива x[1],x[2],..., x[100].
Hайти и записать вместо x наибольший элемент, а вместо x -наименьший для массива x,x,..., x.

Функция вместо результата возвращает Nothing
У меня в коде есть вызов функции, которая описана в библиотеке <pre><code class=basic>Function AAAA(srcDoc As...

ZX Spectrum-128

6812 / 4568 / 4820

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

Сообщений: 22,433

20.12.2019, 17:36

Pascal
1
2
3
4
5
6
7
8
9
10
function sred(var nx:integer; var xx:mas):real;
var i,j,sum:integer;
begin
sum:=0;
 for i:=1 to nx do
 for j:=1 to nx do
sum:=sum+xx[i,j];
srx:=sum/(nx*nx);
sred:=srx;
end;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

20.12.2019, 17:36

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

Функция ввода вместо cin
Здорова! Нужно написать функцию ввода вместо cin, которая бы читала строки. Я не знаю чем можно заменить cin. Нужно постараться...

Собственная функция вместо ButtonClick
C++ Builder 2006. Имеется БД Access, подключенная к Builder C++ через ADOConnection, ADOTable и DataSource. Необходимо вывести базу данных...

функция if возвращает false вместо 0
Есть строка в которой есть только 5 различных значений, для каждого из значений должна соответствовать цифра, и в итоге считать сумма(но...

Функция GetTickCounter вместо clock_t
Помогите понять как использовать эту функцию, перегуглил гугл, форум но так и не понял. можно ли как-то на простых примерах или в моем...

3 процедуры и 1 функция: A^N
Дано вещественное число A и целое число N (>0). Найти A в степе-ни A^N = A•A•...•A(числа A перемножаются N раз). program abc; uses...

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

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

Наверх