Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/30: Рейтинг темы: голосов - 30, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 24.01.2012
Сообщений: 3

Возведение в степень, используя цикл

24.01.2012, 15:54. Показов 6319. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
y=((2/x^3)-(4/x^5)+(6/x^7)-(8/x^9)+(10/x^11))^2.

Pascal
1
2
3
4
5
6
7
8
uses crt;
var x:integer; y:Real;
begin
Writeln('введите x');
Readln(x);
y:=Exp(2*ln(2/Exp(2*Ln(x))-4/Exp(5*Ln(x))+6/Exp(7*Ln(x))-8/Exp(9*Ln(x))+10/Exp(11*Ln(x))));
writeln(y:2:5);
end.

как сделать эту задачу через цикл?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.01.2012, 15:54
Ответы с готовыми решениями:

Создать упорядоченный массив и вывести его на экран 3,9,27,.(не используя возведение в степень). Выполнить бинарны
Создать упорядоченный массив и вывести его на экран 3,9,27,...,3^n(не используя возведение в степень). Выполнить бинарных поиск значения...

Возведение в степень
Используя только операцию * (умножение), только 1 операцию в выражении, минимум переменных Получить: а) x8 б) x10 в) x15 г) x20

Возведение в степень
Вывести на экран числа a в степени -n, a в степени -n+1, a в степени -n+2, a в степени -1 для заданных вещественного a и натурального n

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
24.01.2012, 20:29
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i:integer;
    x,s,t:real;
begin
write('x=');
read(x);
if x=0 then write('Решения нет, деление на ноль')
else
 begin
  s:=0;
  t:=-x;
  for i:=1 to 5 do
   begin
    t:=-t/(x*x);
    s:=s+2*i*t;
   end;
  s:=s*s;
  write('S=',s:0:5);
 end
end.
1
0 / 0 / 0
Регистрация: 24.01.2012
Сообщений: 3
24.01.2012, 21:13  [ТС]
Puporev, спасибо большое
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.01.2012, 21:13
Помогаю со студенческими работами здесь

Возведение в степень
Возведение в степень По трем натуральным числам a, b и m вычислить значение a в степени b mod m. Входные данные Три натуральных...

Возведение в степень
есть код: var i, n: integer; var a, y: real; begin writeln('Возведение в степень'); write('Введите основание >>'); ...

Возведение в степень tg
Привет всем. Столкнулся с небольшой проблемкой в Pascal ABC. Мне нужно: {tg}^{2} z/2. Как это записать на паскалевском языке? ...

Возведение в степень
Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: a2, a5 и a17 за шесть...

Возведение в степень
var t1: integer; t2: integer; fi1: double; fi2: double; pn: double; fnp: double; ew1: double; ew2: double; x:longint;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru