Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/140: Рейтинг темы: голосов - 140, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 06.10.2010
Сообщений: 28
1

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.

11.10.2010, 20:02. Показов 28518. Ответов 7
Метки нет (Все метки)

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство https://www.cyberforum.ru/cgi-bin/latex.cgi?{3}^{k} < N.
как возвести в степень, и как решить задачу при помощи цикла while?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2010, 20:02
Ответы с готовыми решениями:

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(&gt;1) вывести на именьшее целое K,при котором выполняется неравенство 3K&gt;N, и...

Вывести наибольшее целое K, при котором выполняется неравенство
помогите решить задачу в паскале Здравствуйте!пожалуйста помогите решить задачу. Дано целое...

Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
Попрошу полностью решить эти задачки. Спосибо. 1. Дано целое число N (&gt; 1). Вывести наибольшее...

Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство
Напишите следующую программу. Ввести с клавиатуры целое положительное число N и найти такое...

7
5 / 5 / 2
Регистрация: 02.10.2010
Сообщений: 30
11.10.2010, 20:29 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  //Объявление типа переменной
  var k, n:integer;
 
begin
  Writeln('Введите натуральное число N');
  k:=0;
  
  // Ввод переменной
  Read(n);
  
  //Использование цикла while и Вывод результата
  while n< power(3,k) do
    k+=1;
  writeln(k);
end.
0
0 / 0 / 0
Регистрация: 06.10.2010
Сообщений: 28
11.10.2010, 21:05  [ТС] 3
ошибка у тебя! при этом power в делфи а не в паскале

Добавлено через 17 минут
так как же выглядит правильный вариант?
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
11.10.2010, 21:33 4
Если не особо думать, то программа выглядит вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
var n:integer;
        k: real;
begin
  Writeln('Введите натуральное число N');
  k:=0;
  read(n);   {Ввод переменной}
  while n > exp(k*ln(3)) do  {Использование цикла while и Вывод результата}
    inc(k, 1);
  writeln('Result: ', k-1:3:0);
end.
1
0 / 0 / 0
Регистрация: 06.10.2010
Сообщений: 28
11.10.2010, 22:22  [ТС] 5
прошу прощения, а что такое "ink" и почему паскаль на него ругается?
0
25 / 25 / 14
Регистрация: 01.07.2010
Сообщений: 59
11.10.2010, 22:25 6
Наверное имелось в виду inc
Это функция, увеличивающая на единицу аргумент.

Вы скорее всего пользуетесть TurboPascal.
содержимое строки №9 замените на k:=k+1;
1
0 / 0 / 0
Регистрация: 06.10.2010
Сообщений: 28
11.10.2010, 22:33  [ТС] 7
да, "inc".
ругается ABC Pascal, заменил и всё работает. Большое спасибо
0
0 / 0 / 0
Регистрация: 13.09.2010
Сообщений: 26
17.10.2010, 22:08 8
Спасибо большое!) мне тоже очень пригодилось ))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2010, 22:08

Найти наименьшее целое число k, при котором выполняется заданное неравенство.
Дано целое число n (n&gt;1). Найти наименьшее целое число k, при котором выполняется неравенство 3 в...

Найти наибольшее целое число K, при котором выполняется неравенство
1).Дано целое число N (N&gt;1). Найти наибольшее целое число K, при котором выполняется неравенство...

Найти наименьшее целое число K, при котором выполняется неравенство
дано целое число N(&gt;1). найти наименьшее целое число K, при котором выполняется неравенство 3^k&gt;N ...

Дано целое число m>1. Получить наибольшее целое k, при котором k3<m
Дано целое число m&gt;1. Получить наибольшее целое k, при котором {k}^{3}&lt;m


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru