0 / 0 / 0
Регистрация: 04.10.2009
Сообщений: 47
1

описать функцию digitN и Ехр1

10.01.2010, 15:05. Показов 1101. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвращает −1. Для каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.

Описать функцию Exp1(x, ε) вещественного типа (параметры x, ε — вещественные, ε > 0), находящую приближенное значение функции exp(x):

exp(x) = 1 + x + x2/(2!) + x3/(3!) + … + xn/(n!) + …

(n! = 1·2·…·n). В сумме учитывать все слагаемые, большие ε. С помощью Exp1 найти приближенное значение экспоненты для данного x при шести данных ε.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2010, 15:05
Ответы с готовыми решениями:

Описать функции DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К
Proc30 Описать функци DigitN(K,N) целого типа, возвращающую N-ю цифру целого положительного...

описать функцию
сама функция на рисунке..заранее спасибо...

Описать функцию
Помогите найти ошибку, программа просто сама закрывается. Задание: Описать функцию IsSquare (K)...

Описать функцию
Описать функцию RootCount(A,B,C),определяющую по дискриминанту количество корней для каждого из...

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.01.2010, 15:36 2
Лучший ответ Сообщение было отмечено Voffa4ka как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
function DigitN(k:byte;n:longint):integer;
var c,p,f:byte;
begin
c:=0;
while n>0 do
 begin
  p:=n mod 10;
  c:=c+1;
   n:=n div 10;
  if c=k then break;
 end;
if c<k then DigitN:=-1
else DigitN:=p;
end;
var n:longint;
    k:byte;
begin
clrscr;
repeat
write('Введите целое положительное число n=');
readln(n);
until n>0;
repeat
write('Введите номер цифры справа k=');
readln(k);
until k>0;
if DigitN(k,n)=-1 then
write('В числе ',n,' нет ',k,' цифр!')
else write('Цифра номер ',k,'=',DigitN(k,n));
readln
end.
Добавлено через 3 минуты
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
function Exp1(x,e:real):real;
var u,un,t:real;
    n:integer;
begin
n:=0;
t:=1;
u:=1;
while t>=e do
 begin
  n:=n+1;
  t:=t*x/n;
  u:=u+t;
 end;
Exp1:=u;
end;
var x,e:real;
    i:byte;
begin
clrscr;
write('x=');
readln(x);
writeln('Аналитически   =',exp(x):0:8);
writeln;
writeln('При точности');
e:=0.1;
for i:=1 to 6 do
 begin
  e:=e/10;
  writeln(e:0:7,'  Exp1=',Exp1(x,e):0:8);
  writeln;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2010, 15:36
Помогаю со студенческими работами здесь

Описать функцию
Описать функцию, которая возвращает целое неотрицательное число по его строковому представлению S в...

Описать функцию
Пусть текстовый файл t разбит на непустые строки. Описать функцию count(t) для подсчета числа...

Описать функцию
type seria = file of integer; var s:seria; Описать функцию sum(s), вычисляющую среднее...

Описать функцию
Вот условие: Описать функцию Min(A,B,C) вещественного типа, находящую минимальное из трёх...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru