→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
задача pascal 
Автор Сообщение
Заблокирован

Регистрация: 01.12.2009
Сообщения: 11

Репутация: 0 [ ? ]
Сообщение задача pascal
program lab2_2_a;
var x,s,sum:real;
n:integer;
BEGIN
x:=0.5; x:=0.3; n:=0;
repeat
s:=s+(exp(ln(x)*(2*n+1))/(4*n+1));
until (0<0.00001);
writeln('summa elemontov',s:3:8);
readln;
END.




помогите переделать етот текст чтобы решить вот такое задание:

Написати програму знаходження суми: членів ряду з точністю ? для заданої послідовності х. У зовнішньому циклі для подачі аргументу х використати оператор циклу з передумовою, у внутрішньому – обчислити суму для конкретного х з точністю до ?, використовуючи оператор циклу з післяумовою; вивести на друк значення S, х, n.
x=0.4...0.8, h=0.2, ?=10-3


18.12.2009 12:44
Профиль Отправить email
Заблокирован

Регистрация: 01.12.2009
Сообщения: 11

Репутация: 0 [ ? ]
 Re: задача pascal


18.12.2009 14:30
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»