Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Dablx
0 / 0 / 0
Регистрация: 05.10.2011
Сообщений: 5
1

Циклы: вывести наименьшее целое К при котором выполняется неравенство 3К > N, и само значение 3К

19.03.2012, 11:04. Просмотров 1103. Ответов 3
Метки нет (Все метки)

Дано целое число N(>1). Вывести наименьшее целое К при котором выполняется неравенство 3К>N, и само значение 3К.
если можно то пожалуйста с кратким обьяснением.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2012, 11:04
Ответы с готовыми решениями:

Цикл: выведите наименьшее целое K, при котором выполняется неравенство 3^K > N и само значение 3^K
дано целое число N(>1) выведите наименьшее целое K при котором выполняется ...

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

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

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

Найти наименьшее целое число K, при котором выполняется неравенство 3K > N
1.Если дано трехзначное число, например 123 его можно представить в виде...

3
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,490
Завершенные тесты: 1
19.03.2012, 13:17 2
Ну тут нужно сделать так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
N1: string;
k,n: real;
 
N1:=Edit1.text;  //Присваиваем строчке N1 число которое введем в Edit1
val(N1,N);   //Преобразуем из строчки в число
 
while (3*K)<N do //Цикл который заканчивается когда 3*K станет больше чем N, которое мы ввели.
begin
k:=k+1; // когда 3 * K меньше то наращиваем чило K
end;
Label1.caption:=IntToStr(k);  //Выводим получившееся число в label1
Добавлено через 1 час 44 минуты
11 Label1.caption:=IntToStr(k);
Эту строчку нужно заменить на Label1.caption:=FloatToStr(k);
1
Dablx
0 / 0 / 0
Регистрация: 05.10.2011
Сообщений: 5
26.03.2012, 11:00  [ТС] 3
спасибо, но выдает ошибку то что
unit1.pas(35,5) Error: Identifier not found "N1" unit1.pas(35,3) Error: не найден идентификатор: N1
0
PolarFoG
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
26.03.2012, 19:03 4
Цитата Сообщение от zuxa-zuxa Посмотреть сообщение
Ну тут нужно сделать так:
А если N=10*12 ? Триллион/3+1 циклов?О_о


Решение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
            k,t:integer;
begin
  t:=StrToInt(Edit1.caption); //Присваиваем т из эдита
  repeat
  inc(t); //Увеличиваем т на 1
  until ((t mod 3)=0); //если делится на 3 без остатка идём дальше если нет см выше
  k:=t div 3; //делим т на 3 получаем искомое число
  Label1.Caption:=IntToStr(k);
  Label2.Caption:=IntToStr(t);
end;
Решение для окна, хотя по мне такие задачи в консоли реализовывать надо...не чего не отвлекает от самой задачи.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2012, 19:03

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

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

Дано целое число N. Найти наименьшее целое положительное число K, при котором выполняется неравенство 3^k > N.
Используя цикл while Дано целое число N. Найти наименьшее целое положительное...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru