Примитивная процедура и функция

@hvaran · Регистрация: 06.07.2009

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

надо составить процедуру или функцию для вот такого вот подсчета
A=X/((N)^(1/2))*(N+2)
N - номер эелемента,
x - переменная,
надо найти первые 10 решений и чтобы они выводились на экран походу вычесления. Оно должно быть очень просто но у меня что-то не ладиться пока, что...только начал разбираться. Спасибо за внимание!

@Puporev · 06.07.2009, 22:26

Как то так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n:integer;
    x,a:real;
begin
clrscr;
write('x=');readln(x);
n:=0;
repeat
n:=n+1;
a:=x/sqrt(n)*(n+2);
writeln('a[',n,']=',a:0:4);
readln;
until n=10;
end.

@hvaran · 06.07.2009, 22:28 **[ТС]**

Сообщение от Puporev

Как то так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var n:integer;
    x,a:real;
begin
clrscr;
write('x=');readln(x);
n:=0;
repeat
n:=n+1;
a:=x/sqrt(n)*(n+2);
writeln('a[',n,']=',a:0:4);
readln;
until n=10;
end.

ммм...конечно спасибо и на этом, но эту часть я знаю как делать, а как сделать из этого функцию или процедуру и запустить её, вот в этом не разобрался...(

@Puporev · 06.07.2009, 22:31

Надо в тексте писать задание, а не только в заголовке, я их не всегда читаю.

@hvaran · 06.07.2009, 22:33 **[ТС]**

Сообщение от hvaran

надо составить процедуру или функцию для вот такого вот подсчета
A=X/((N)^(1/2))*(N+2)
N - номер эелемента,
x - переменная,
надо найти первые 10 решений и чтобы они выводились на экран походу вычесления. Оно должно быть очень просто но у меня что-то не ладиться пока, что...только начал разбираться. Спасибо за внимание!

так, а вот) не пожскажешь пожалуйста как сделать из этого процедуру или функцию?

@Puporev · 06.07.2009, 22:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const n=10;
function F(x:real;k:integer):real;
begin
F:=x/sqrt(k)*(n+2);
end;
procedure Raschet(x:real;var a:real);
var i:integer;
begin
i:=0;
repeat
i:=i+1;
writeln('a[',i,']=',F(x,i):0:4);
readln;
until i=n;
end;
var x,a:real;
begin
clrscr;
write('x=');readln(x);
Raschet(x,a);
end.

@hvaran · 06.07.2009, 23:41 **[ТС]**

Сообщение от Puporev

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const n=10;
function F(x:real;k:integer):real;
begin
F:=x/sqrt(k)*(n+2);
end;
procedure Raschet(x:real;var a:real);
var i:integer;
begin
i:=0;
repeat
i:=i+1;
writeln('a[',i,']=',F(x,i):0:4);
readln;
until i=n;
end;
var x,a:real;
begin
clrscr;
write('x=');readln(x);
Raschet(x,a);
end.

Спасибо !!!!))

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@hvaran 0 / 0 / 0 Регистрация: 06.07.2009 Сообщений: 8

	Примитивная процедура и функция 06.07.2009, 22:01. Показов 1318. Ответов 6 Метки нет (Все метки) надо составить процедуру или функцию для вот такого вот подсчета A=X/((N)^(1/2))*(N+2) N - номер эелемента, x - переменная, надо найти первые 10 решений и чтобы они выводились на экран походу вычесления. Оно должно быть очень просто но у меня что-то не ладиться пока, что...только начал разбираться. Спасибо за внимание! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.07.2009, 22:31
	Надо в тексте писать задание, а не только в заголовке, я их не всегда читаю. 0