С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
-7 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 15
1

Исправить программу

14.12.2013, 18:39. Показов 1092. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана степень числа А. Найти её показатель.
Не въехал что к чему, написал вот это :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var A,n:integer;
begin
writeln('Vvedi A');
readln(a);
writeln('Vvedi b');
readln(n);
write('Stepen chisla A : ',exp(n*ln(a)));
readln;
write('Pokazatel: ', n );
 
readln
 
end.


Но есть условие, что надо использовать оператор цикла, а причем он тут и куда его воткнуть, я не пойму=\
Исправьте программу, пожалуйста, кто понимает)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.12.2013, 18:39
Ответы с готовыми решениями:

Исправить программу
исправьте код пожалуйста) Program ban; Const i = 1; n = 5; Var a:array of integer;...

Исправить программу
Здравствуйте) У меня проблема с одной из программ.. Есть код программы, всё работает как надо,...

Исправить программу
Здравствуйте. Написал программу, но преподаватель сказал исправить. Требуется правильно расставить...

Исправить Программу
Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер...

4
Супер-модератор
6197 / 2946 / 1300
Регистрация: 04.03.2013
Сообщений: 5,791
Записей в блоге: 1
14.12.2013, 18:52 2
Вообще, если есть b - степень числа a, то показатель степени - это логарифм по основанию a числа b.
А поскольку в паскале есть только натуральный логарифм то получается так:
Pascal
1
n := ln(b) / ln(a);
Добавлено через 1 минуту
Но это не через цикл, но по крайней мере правильно, в отличие от того как у вас.
То есть вводим число A = 2, B = 8, ответ N = 3.
1
-7 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 15
14.12.2013, 19:42  [ТС] 3
то есть должно быть так:

Pascal
1
2
3
4
5
6
7
8
9
10
var a,b:integer;
begin
writeln('Vvedi b - stepen chisla a');
readln(b);
writeln('Vvedi a - osnovanie stepeni b');
readln(a);
 
write('Pokazatel stepeni b=n= ' , ln(b)/ln(a) );
readln
end.
0
Супер-модератор
6197 / 2946 / 1300
Регистрация: 04.03.2013
Сообщений: 5,791
Записей в блоге: 1
14.12.2013, 19:47 4
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Да, а через цикл так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a, b, n : integer;
begin
  n := 0;
  write('введите степень числа A:');
  readln(b);
  write('введите число A:');
  readln(a);
  while b <> 1 do
  begin
    b := b div a;
    inc(n)
  end;
  writeln('показатель: ', n);
end.
1
-7 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 15
14.12.2013, 20:49  [ТС] 5
Благодарю!
0
14.12.2013, 20:49
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.12.2013, 20:49
Помогаю со студенческими работами здесь

Исправить программу
Что здесь не так? uses crt; var S,a,x,: real, i:integer; begin readln(eps); ...

Исправить программу
program file_stipendiya_n23; uses crt; type fam=record f:string end; ...

Исправить программу
Помогите скажите почему не работает и где что надо испрявить!!! Спасибо/ и как тут round...

Исправить программу
Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А, где...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
Что такое CQRS и как это реализовать на C# с MediatR
InfoMaster 15.01.2025
Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps
InfoMaster 15.01.2025
CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru