Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Алеф
1 / 1 / 0
Регистрация: 06.10.2011
Сообщений: 9
#1

задача с 4мя циклами - Turbo Pascal

07.10.2011, 22:17. Просмотров 307. Ответов 0
Метки нет (Все метки)

Всем здрасти!
Тут мне задачку дали выплнить на Turbo Pascal 7:
Дана функция f(x)=1/x-1arctg1/x-2
Интервал х [-5;0]
Количество точек n=20
Само задание звучит так: Вычислить сумму s значений функции f в точках х(i), которые беруться с заданного интервала [a,b] через равные отрезки длиной h, h=b-a/n-1. Здесь i-1,2,3,4,5...номер точки; n-задавемое кол-во точек.
Вывести на экран вычисление, полученное с помощью следующих циклов:
While Do
Repeat until
For to do
For downto do
В результате на экране должны быть четыре суммы, совпадающие между собой.
Ну вот...значит я составил кое-что отдаленно напоминающее прогу, но только для первого цикла:

program task_1;
Const
n=20;
a=-5;
b=0;
Var x, f, sum, h: real;
i: integer;
Begin
sum:=0;
i:=n-1;
h:=b-a/i;
x:=a-h;
While (x>=a) and (x<=b) Do begin
x:=x+h;
f:=1/x-1*arctan(1/x-2);
sum:=sum+f;
Writeln('sum', sum)
Readln;
End;
End.

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

Задача с циклами for, repeat, while - Pascal
Здравствуйте! У меня задача с циклами FOR, REPEAT, WHILE. Нужно составить таблицу умножения числа 9. Еще желательно блок-схему. Очень прошу...

задача с циклами. Паскаль. - Pascal
Вроде не очень сложая задача, но я что-то запутался, помомогите решить: Составить программу на языке паскаль с использованием трех видов...

Задача с циклами,помогите решить - Pascal
3.Найти сумму (произведение) четных(нечетных) чисел из интервала 1 до 20. Использо-вать цикл с предусловием (с постусловием).

Напишите 2 проги с циклами - Pascal
82. Дано действительное число x. Вычислить (x-2)(x-4)(x-8)... (x-64) -------------------------. (x-1)(x-3)(x-7)... (x-63) ...

Последнее задание с циклом(циклами?) - Pascal
Вот такая задачка осталась последняя. Без Вас уважаемые никак.Прошу помощи. Бизнесмен взял ссуду m тысяч рублей в банке под 20%...

Составить программу тремя циклами - Turbo Pascal
Дано натуральное n, действительные а1 ,а2 ,...,аn . Получить: а1а2 + а2 а3, ... , аn-1аn.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2011, 22:17
Привет! Вот еще темы с ответами:

Разработка программы с вложенными циклами - Pascal
Помогите пожалуйста ответить на вопрос: Как можно с помощью цикла while построить цикл, эквивалентный циклу for. Всегда ли эта замена будет...

Двумерные массивы c вложенными циклами - Turbo Pascal
Всем привет,ребят,завтра зачет получать,а я не могу дописать последнюю программу,пожалуйста,помогите,уже &quot;сломал&quot; голову. В общем,исходные...

табулирование функции с вложенными циклами - Pascal
Проверьте пожалуйста программу, какие то недочеты есть, потому что не показывает результат =( Program lab; Uses crt; var b1, b2,...

Протабулировать функцию тремя циклами - Pascal
Не пойму как указать значения аргумента, при которых функцию нельзя вычислить. Тяжело даются эти циклы Остановился на этом program...


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

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

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