Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Форум .::NoWa.cc::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Программирование > Моделирование программ

Уважаемые пользователи nowa.cc. Мы работаем для вас более 20 лет и сейчас вынуждены просить о финансовой помощи по оплате за сервер.
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WME: 804621616710
Кошелёк для вашей помощи YooMoney 4100117770549562
YooMoney Спасибо за поддержку!
Ответ
 
Опции темы Опции просмотра Language
Старый 26.02.2009, 11:48   #1
Неактивный пользователь
 
Пол:Мужской
Регистрация: 24.08.2007
Сообщений: 72
Репутация: 5
По умолчанию PASCAL

Задача 1.
Даны действительные числа x,a, натуральное n. вычислить:
((...((х+а)^2 +...+а)^2+а)^2.
P.S. ^2-это степень. в начале задачи стоят ((...(( это n скобок

Задача 2.
Дано n вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к квадрату какого-нибудь целого числа. Например если n=10 и выводим числа 110,90,80,30,50,40,40,30,22,60, то ответ равен 3 или 5 (имеем |80-9^2|=|50-7^2|=1)
Подсказка: определите функцию f(k),которая вычисляет абсолютную величину разности k и ближайшего целого квадрата (ближайшего целого квадрата (Ближайшим целым квадратом будет (trunc( корень k))^2 или (trunc( корень k)+1)^2)

P.S ^2 этим символом ответил степень т.е во второй степени.
Алексей М вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама
Здесь может быть Ваша реклама


Реклама: купить душ для дачитимофей васильевборат трейлершефилтонкупить билет на концерт крымск


Старый 27.02.2009, 16:52   #2
Vasuha
Постоялец
 
Пол:Мужской
Регистрация: 13.03.2008
Адрес: Минск
Сообщений: 257
Репутация: 231
По умолчанию Re: PASCAL

Задачи есть, а вопросов нет. Было бы результативней, начать самому делать, натолкнуться на проблему и выбросить на форум. Вряд ли кто-то увидев задачу сразу начнет ее делать, хотя....
__________________
Vasuha вне форума
 
Ответить с цитированием Вверх
Ответ


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal Fiesta_Life Delphi 4 01.06.2008 02:11
Pascal puella Delphi 5 18.02.2008 18:11
Pascal ! Помогите плз .... a1xel Delphi 8 29.12.2007 16:53
Файл > 2Гб и Pascal vvnickp Архив 4 28.11.2006 13:26

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 13:45. Часовой пояс GMT +3.


Copyright ©2004 - 2025 NoWa.cc

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.10191 секунды с 13 запросами