Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Etnyes
0 / 0 / 0
Регистрация: 22.06.2013
Сообщений: 2
#1

Программа реализующая данный интерационный процесс - Turbo Pascal

25.06.2013, 11:22. Просмотров 414. Ответов 2
Метки нет (Все метки)

Помогите На одном из языков программирования высокого уровня (желательно Паскаль для меня) написать программу, реализующую данный интерационный процесс... Спасибо за помощь
0
Миниатюры
Программа реализующая данный интерационный процесс  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.06.2013, 11:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа реализующая данный интерационный процесс (Turbo Pascal):

Программа реализующая данный интерационный процесс
На Паскаль написать программу, реализующую данный интерационный процесс:...

Паскаль(программа реализующая треугольник паскаля)
помогите пожалуста. нужно написать программу реализующую треугольник паскаля...

Программа, реализующая алгоритм вычисления суммы данного ряда
Составьте программу, реализующую алгоритм вычисления суммы данного ряда. ...

Программа, реализующая алгоритм вычисления суммы данного ряда
Составьте программу, реализующую алгоритм вычисления суммы данного ряда....

Программа реализующая ввод координат 3-х точек и результат попадания их в выделенные области
помогите с задачей.

Указать время в данный момент и программа выдаст время до 12:00
Так как я человек который пропустил 23 из 25 занятий по информатике :D то прошу...

2
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
25.06.2013, 11:45 #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
uses crt;
var n:integer;
    e,x,t,s:real;
begin
clrscr;
write('x=');
readln(x);
repeat
write('e=0 e=');
readln(e);
until e>0;
if e>=1 then s:=1
else
 begin
  n:=0;
  t:=1;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*x/n;
    s:=s+t
   end;
 end;
writeln('s=',s:0:4);
write('e^-x=',exp(-x):0:4);
readln
end.
1
Etnyes
0 / 0 / 0
Регистрация: 22.06.2013
Сообщений: 2
25.06.2013, 11:59 #3
спасибо за помощь
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2013, 11:59
Привет! Вот еще темы с решениями:

Программа, реализующая лабиринт.
pass(1,2,1). pass(1,4,1). pass(2,3,1). pass(2,5,2). pass(3,10,4)....

Программа реализующая алгоритм шифрования
Напишите программу, реализующую алгоритм шифрования с помощью шифра с...

Программа реализующая запрос GET и HEAD
Задача: Написать программу, реализующую функции HTTP-сервера: запрос «GET /» и...

Нужна программа, реализующая принципы ООП
Если есть самая простейшая прога на ООП написано на Vb.net скиньте ссылку буду...


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

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

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