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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.11.2018, 18:10   #1
den4ik2000
Новичок
Джуниор
 
Регистрация: 27.11.2018
Сообщений: 3
По умолчанию Вычисление суммы в pascal

Правильно ли создан код
Код:
program reshenie;
var 
s,a0,ha,an:real; 
    n,k,ns,ks:integer;
begin
write ('введите количество слагаемых в сумме с n= ');read(ns);
write ('введите количество слагаемых в сумме с k= ');read(ks);
write('a0= ');read(a0);
write('ha= ');read(ha);
write('an= ');read(an);
while a0<=(an+ha/2) do
begin
s:=0;
if a0<4
then begin
     for n:=1 to ns do
     begin
        s:=s+((a0*a0)/(exp(ln(a0)*n)-5));
     end
     end
     else begin
          for k:=1 to ks do
             begin
                s:=s+(exp(ln(a0)*k)/2*k);
                s:=s*((a0+1)/a0);
             end;
          end;
writeln ('значение функции при а= ',a0:3:3, ' : ' ,s:3:3);
a0:=a0+ha;
end;
end.]
Изображения
Тип файла: png Screenshot_20181128-175947~2.png (20.8 Кб, 48 просмотров)
den4ik2000 вне форума Ответить с цитированием
Старый 28.11.2018, 18:17   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Конечно, нет.
1. Границы сумм у вас прописаны, а не вводятся
2. Верхняя граница для а больше максимума на полшага
3. Во второй сумме всю сумму надо умножать на коэффициент, а не на каждом шаге.
p51x вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычисление суммы xNos Microsoft Office Excel 3 06.03.2018 17:52
Вычисление суммы noob noob C# (си шарп) 10 18.04.2016 17:52
2 программы - на Pascal и на C, одна про вычисление суммы членов ряда. Flamia Помощь студентам 3 08.11.2013 10:27
Вычисление суммы ряда в Free Pascal x64 AntiDriver Паскаль, Turbo Pascal, PascalABC.NET 0 10.01.2012 00:40
Задача на вычисление суммы ряда, Pascal die_hard Помощь студентам 9 07.12.2008 19:05