Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!! / 4 сообщений из 4, страница 1 из 1
13.11.2009, 11:35:45
    #36308708
НЮСЬКА
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
Вычислить s- сумму квадратов всех целых чисел, попадающих в интервал (ln(x),exp(x)),x>1.
Тема: Операторы цикла.
...
Рейтинг: 0 / 0
13.11.2009, 11:37:32
    #36308723
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
а чего собсна непонятно?

если вы сами не хотите делать, задайте вопрос в другом разделе (работа)

4 8 15 16 23 42
...
Рейтинг: 0 / 0
13.11.2009, 13:11:23
    #36309085
thrashead
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
НЮСЬКА,

функция ЛеньДелатьСамой_ХочуХаляву(икс: сплавающейточкой): целый;
переменные
икс_один, икс_два, н: целый;
начало
Результат:=ноль;
если икс больше единицы, то
начало
икс_один:=транк(натуральный_логарифм(икс));
если фрак(натуральный_логарифм(икс)) не равно нулю, то инк(икс_один);
икс_два:=транк(эксп(икс));
для н:=икс_один до икс_два делать
Результат:=Результат+н;
конец;
конец;
...
Рейтинг: 0 / 0
13.11.2009, 14:19:29
    #36309337
thrashead
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!!
поправка. Пред. пост - просто сумма.
Сумма квадратов:

функция ЛеньДелатьСамой_ХочуХаляву(икс: сплавающейточкой): целый;
переменные
икс_один, икс_два, н: целый;
начало
Результат:=ноль;
если икс больше единицы, то
начало
икс_один:=транк(натуральный_логарифм(икс));
если фрак(натуральный_логарифм(икс)) не равно нулю, то инк(икс_один);
икс_два:=транк(эксп(икс));
для н:=икс_один до икс_два делать
Результат:=Результат+эскуэр(н);
конец;
конец;
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ В Pascal АВС!!!!!!!! / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]