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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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