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

  1. Дана степень числа А. Найти её показатель. Не въехал что к чему, написал вот это :


textual

Код к задаче: «Исправить программу - Turbo Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.636 из 5



Похожие ответы
  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. Используя подсистему прерываний написать программу, которая выводит на экран информацию о параметрах НЖМД. $ 13 - дисковые службы Перечень функций (номер функции при вызове прерывания должен содержаться в регистре АН): 0 - сброс дисковой системы; 1 - определение состояния диска; 2 - чтение секторов диска; 3 - запись секторов диска; 5 - форматирование дорожки; 8 - определение текущих параметров диска; 10 - проверка готовности диска; При задании входных параметров обычно используется следующая схема: АН = номер функции; AL = количество секторов (1-128) СН - количество цилиндров (0-1023) CL = номер сектора (1-17) DH = номер головки (0-15) DL = номер дисковода (0 = А :, 1 = 2-й флоппи; $ 80 = жесткий диск 0, $ 81 = жесткий диск 1). возвращает: CF = 0 в случае успеха, = 1 в случае ошибки.

  1. Cоставить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла While. Функция F(x)=xsin(x); a=0 b=3pi m=10

  1. Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак |

  1. Помогите пожалуйста составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически. Значение интеграла вычислить приближённо по итерационной формуле левых прямоугольников: где h=(b-a)/n - величина шага между двумя соседними точками разбиения интервала интегрирования; fi = f(xi) - значение функции в точке xi = a+h(i-1); i = 1, 2, ..., n. Вычисления закончить при выполнении условия |In-I2n| < z, где z>0 - достаточно малое значение, задаваемое пользователем (точность вычислений). Здесь In, I2n - значения интеграла, вычисленные по (1) при количестве интервалов разбиения n и 2n соответственно. Функция:

  1. Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

  1. Помогите,пожалуйста, написать программу в Pascal

  1. Добрый вечер всем! Помогите, пожалуйста, первокурснице-студентке) Идет такое задание: Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор While: - 0,13+ 0,16 -0,19+…-0,31 Написала так, но ответ неверный( Когда считаешь вручную ответ идет -0,22, а по программе просто 0,22. Подскажите, пожалуйста, в чем моя ошибка.

  1. Совершенно не понимаю как делать цикл, перерыл весь интернет, но как решать до меня дойти не смогло. Прошу помощи в написании программы. Вычислить с погрешностью E=0.1E-4, если сумма где X=0.71