Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2008, 21:36   #1
010
Пользователь
 
Регистрация: 06.04.2008
Сообщений: 15
По умолчанию Помогите решить на Паскале

Извиняюсь, нужно вычислить сумму для n от 0 до 10, где xn (в степ. 4n+1)/4n+1, при xn=1(0,1)5

Вот задача+к ней блок-схему надо

Последний раз редактировалось 010; 13.04.2008 в 13:58.
010 вне форума Ответить с цитированием
Старый 13.04.2008, 12:11   #2
010
Пользователь
 
Регистрация: 06.04.2008
Сообщений: 15
По умолчанию

Нужно вычислить сумму, подскажите хотя бы какой цикл использовать
010 вне форума Ответить с цитированием
Старый 13.04.2008, 13:46   #3
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Цикл можно использовать любой.

Последний раз редактировалось alexBlack; 13.04.2008 в 14:18.
alexBlack вне форума Ответить с цитированием
Старый 13.04.2008, 14:06   #4
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Делать в цикле for. Благодаря этому циклу мы будем вычислять сумму.
Также в цикле присваивать получившийс результат переменной и выводить в конце на экран.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 13.04.2008, 14:16   #5
010
Пользователь
 
Регистрация: 06.04.2008
Сообщений: 15
По умолчанию

uses crt;
var
s,n: integer;
begin
clrscr;
for n:=1 to 5 do s:=s+n*n;
for n:=1 to 12 do s:=s+n*n*n;
writeln('s=',s);
readkey;
end.

Типа такого?
010 вне форума Ответить с цитированием
Старый 13.04.2008, 14:16   #6
010
Пользователь
 
Регистрация: 06.04.2008
Сообщений: 15
По умолчанию

Спасибо получилось.

Ещё одну задачку не поможете решить.

Для уравнения x*x-cosx =0 уточнить корень методом итераций на интервале (0,2) и для e=10 (в степ. -4)

Последний раз редактировалось 010; 13.04.2008 в 15:03.
010 вне форума Ответить с цитированием
Старый 13.04.2008, 14:24   #7
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Одного сообщение нам хватит для понимания, второе можно удалить..

Впринципе да. Только чтото вы непонятное считаете.
Примерно это должно выглядить так:

Код:
Sum := 0; Readln (Xn);
For n := 1 To 10 Do 
     Begin
        Sum := Sum + (Вычисление по формуле);
     End;
Writeln (Sum);
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 13.04.2008, 14:33   #8
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Я так понял, у него еще xn меняется в диапазоне от 1 до 5 с шагом 0,1

Код:
Xn := 1
While Xn <= 5 do begin
   Sum := 0; 
   For n := 1 To 10 Do Begin
        Sum := Sum + (Вычисление по формуле);
   End;
   Writeln (Sum);
   xn := xn + 0.1
end;
alexBlack вне форума Ответить с цитированием
Старый 13.04.2008, 15:06   #9
010
Пользователь
 
Регистрация: 06.04.2008
Сообщений: 15
По умолчанию

Спасибо получилось.

Ещё одну задачку не поможете решить.

Для уравнения x*x-cosx =0 уточнить корень методом итераций на интервале (0,2) и для e=10 (в степ. -4)
010 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите решить задачи на паскале BurningRage Помощь студентам 19 17.05.2008 22:25
Помогите решить 2 задачи на Паскале!!! Zero Паскаль, Turbo Pascal, PascalABC.NET 4 13.05.2008 23:00
Помогите решить задачу в Паскале freeman4913 Помощь студентам 3 24.12.2007 21:41