Небольшая программа на pascal - ФОРУМ ПОСТУПИМ.РУ
Главная
Поиск репетитора
Коллективный блог
публикаций
Форум (обсуждаем ЕГЭ 2020)
тем и сообщений
Для учебы




Войти
или
Зарегистрироваться
  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Новые сообщения · Участники · Правила форума · Поиск по форуму · RSS
    • Страница 1 из 1
    • 1
    ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Небольшая программа на pascal (уже написана, но не работает. Прошу помощи)
    Небольшая программа на pascal
    vfireДата: Понедельник, 2010-05-03, 7:47 PM | Сообщение # 1
    Абитуриент
    Группа: Пользователи
    Сообщений: 2
    Репутация: 0
    Награды: 0
    Замечания: 0%
    Статус: Offline
    Здравствуйте.
    Не могли бы вы помочь найти ошибку в программе.

    Программа:

    Code

    Program 123; uses crt;
        const e=0.01;
        var Spred,Stek,x:real; i:integer;
        begin clrscr;
    writeln('Введите любой x...');
    write('x=');readln(x);
    if x=-3 then write('Все суммы равны 0')
    else begin i:=3;
            Spred:=(x+3)/SQRT(2);
            Stek:=Spred+((x+3)*(x+3))/(2*SQRT(3));
            repeat Spred:=Stek;
                   Stek:=Spred+EXP((x+3)*ln(i))/(i*SQRT(i+1));
                   i:=i+1
            until ABS(Spred-Stek)<e end;
    write('Сумма равна - ',Spred:0:8,'(сложено до элемента №',i);readkey

    end.

    Прикрепления: 9167831.jpg (24.4 Kb)


    Сообщение отредактировал vfire - Понедельник, 2010-05-03, 7:49 PM
     
    Vratar471Дата: Понедельник, 2010-05-03, 9:07 PM | Сообщение # 2
    Аспирант
    Группа: Проверенные
    Сообщений: 432
    Репутация: 46
    Награды: 4
    Замечания: 0%
    Статус: Offline
    Город: Красноярск-26
    У тебя нехватает диапазона real и даже double, т.к. идёт зацикливание программы. exp не будет равна 0.00001 т. к. с каждым действием идёт её наращивание. вот в чём ошибка......

    фак-тет программной инженерии гу-вшэ
     
    ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » Небольшая программа на pascal (уже написана, но не работает. Прошу помощи)
    • Страница 1 из 1
    • 1
    Поиск:








    © 2006 - 2023 Поступим.ру Информация:
    О проекте
    Контакты

    Регистрация на сайте
    Статистика сообщества
    Пользовательское соглашение
    Разделы:
    Поиск репетитора
    Форум сообщества
    Коллективный блог
    Материалы для учебы
    ЕГЭ 2021
    RSS:
    RSS форума
    RSS блога