Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Ulda
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 6
#1

Определить первое i, для которого 3i>N

28.05.2014, 08:29. Просмотров 1041. Ответов 10
Метки нет (Все метки)

Здравствуйте уважаемые форумчане, задачка следующая(я понимаю что она простая для многих из Вас, но к сожалению моих навыков(вернее отсутствие) не достаточно)
Собственно задача:

1. Записать задачу.
2. Составить блок-схему алгоритма.
3. Составить укрупненный алгоритм задачи на алгоритмическом языке.
4. Каждый блок алгоритма расписать подробнее.
5. Сделать выводы о составленной программе.
Индивидуальные задания по вариантам.

10 Дано целое число N. Определить первое i, для которого 3i>N. Значение N ввести в программу. Вывести на экран значения N и i. В процессе отладки программы использовать все команды меню Run, научиться пользоваться окном Watch.

Заранее благодарен за помощь

Добавлено через 23 часа 29 минут
upa
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2014, 08:29
Ответы с готовыми решениями:

Ошибка со строками: получить первое i, для которого каждый символ Si и S(i+1) равен 'a'
Делаю 255 задачу из Абрамова. Условие: дана строка S1....Sn. Нужно получить...

Определить первое i, для которого 3i>N
Дано целое число N. Определить первое i, для которого 3i>N. Значение N ввести...

Получить первое натуральное , для которого каждый из символов и совпадает с буквой .
Даны натуральное число n , символы s1,...,sn . Получить первое натуральное i ,...

Найти первое натуральное число, сумма делителей которого больше S
Найти первое натуральное число, сумма делителей которого больше S.

Определить номер квадрата матрицы, для которого сумма входящих в него элементов максимальна
В прямоугольной матрице, имеющей четное количество строк и четное количество...

10
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
28.05.2014, 12:08 #2
Цитата Сообщение от Ulda Посмотреть сообщение
научиться пользоваться окном Watch.
За тебя что ли?
Это не задачу решить, а выполнить задание,причем за тебя это никто не сделает.
0
Ulda
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 6
28.05.2014, 12:19  [ТС] #3
Добрый ты, нет чтобы по путнему объяснить друг мол сделай то или то. Я еще раз повторюсь далек от программирования не знаю что это или кто это. поэтому обратился к вам. а послать я и сам могу. Спасибо за ответ.
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
28.05.2014, 16:01 #4
Лучший ответ Сообщение было отмечено Ulda как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var i,n:integer;
begin
 write('n=');
  readln(n);
 for i:=1 to n do
  if 3*i>n then
   begin
    writeln(' | i=',i,' | ','ÐåçóëüòГ*ГІ - ',3*i,'>',n);
    break;
   end;
end.
0
Ulda
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 6
29.05.2014, 06:54  [ТС] #5
Спасибо легко и доступно!
0
Cyborg Drone
29.05.2014, 09:41
  #6

Не по теме:

Цитата Сообщение от Ulda Посмотреть сообщение
а послать я и сам могу.
Ulda, во-первых, никто Вас никуда не посылал, а то, что Puporev ответил Вам именно так, виноваты Вы сами. Вы осознаёте разницу между "решить задачу" и "выполнить задание"? При регистрации на форуме Вам было предложено ознакомиться с правилами форума. В этих правилах самый первый пункт такой:
1. 1. Форум предназначен для обсуждения вопросов, связанных с компьютерами, программированием, железом и операционными системами.
Замечу, что многое из того, что Вы написали в качестве вопроса темы, никоим образом не соответствует термину "обсуждение", а скорее характеризуется понятием "решите за меня, да ещё и научите меня пользоваться средой программирования, так как я ничего не знаю, а книжки читать не буду". Иными словами, Вы пытаетесь использовать форум не по назначению. Это форум, а не обучающий сайт. К тому же, Вы пытаетесь использовать участников форума в качестве киборгов для решения задач, это невежливо. Скажите, вы бы стали помогать ленивому неучу? Я, конечно, понимаю, что Вы просто переписали задание на форум, вместо того, чтобы вычленить из задания целевой вопрос, и его разместить на форуме, а правила форума, возможно, не читали, или давно забыли. Постарайтесь впредь быть корректнее, чтобы участников форума не коробило от Вашего поведения, и не вынуждайте участников форума считать Вас за того, кем Вы, возможно, не являетесь.

Если будете и впредь нарушать правила форума, я с Вами нехорошо поступлю.

Всего Вам доброго.

0
Puporev
Модератор
54361 / 41950 / 28980
Регистрация: 18.05.2008
Сообщений: 98,815
29.05.2014, 09:45 #7
Цитата Сообщение от Ulda Посмотреть сообщение
Спасибо легко и доступно!
Если тебе нужно было только написать программу, то и писал бы
Цитата Сообщение от Ulda Посмотреть сообщение
Дано целое число N. Определить первое i, для которого 3i>N. Значение N ввести в программу. Вывести на экран значения N и i.
А зачем все остальное?
0
Cyborg Drone
Модератор
5287 / 3161 / 2441
Регистрация: 17.08.2012
Сообщений: 10,154
29.05.2014, 11:28 #8
Svager, что-то я сразу внимания не обратил, цикл-то здесь зачем? И с отрицательными целыми числами у Вас неверно. Достаточно было написать, например, так:
Pascal
1
2
3
4
5
6
7
var n: integer;
begin
  write('n = ');
  readln(n);
  writeln(n div 3 + 1 - 2 * ord(n < 0));
  readln
end.
0
Ulda
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 6
29.05.2014, 11:33  [ТС] #9
Уважаемый модератор, если человек(к примеру), задает вопрос на форуме посвященном определенной тематике, он не в коем случае не считает форумчан киборгом(ами). Вопрос я задал так как смог, так как действительно не понимаю в данной отрасли ровным счетом ничего. К тому же вы охарактеризовали меня в высшей степени не правильно. Если я отступил от правил форума задав свой вопрос не там где нужно или не так как нужно. Приношу свои извинения. Но опять же модераторов то не зря придумали, указали бы на неточности и т.д. Ответ Puporeva я расценил именно так как и отписал. Svager же отреагировал абсолютно иначе, оценил мой вопрос по своему без каких либо уточнений и укоров, за что ему огромное спасибо. Впредь, я думаю, когда разберусь в данной теме я конечно же буду писать более конкретизировано и близко по смыслу. За помощь еще раз спасибо.
0
Юрий_С
1 / 1 / 0
Регистрация: 29.05.2014
Сообщений: 23
29.05.2014, 12:25 #10
цикл-то здесь зачем?
Думаю, затем, что автору темы, учитывая его неосведомленность, будет нелегко объяснить решение через Вашу формулу, я имею в виду использование функции ORD(). А преподаватель может спросить... А решение с циклом преподаватель просто пролистает, механически проставив оценку или пометку "выполнено". Ведь, похоже, у автора не стоит задача "научиться", а стоит задача "сдать". Могу ошибиться, но этот вывод напрашивается, исходя из текста его обращения, а также из того, что вопросов больше не возникло.
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
29.05.2014, 16:03 #11
Cyborg Drone, ну извините я не такой умный.а проверку на отрицательность я не писал,ну как бы просто решил , без заморочек.

Добавлено через 12 минут
Cyborg Drone, и мне кажется если человек не может сделать этого, то извините..более сложный вариант,ему не по душе.
0
29.05.2014, 16:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 16:03

Дано число n. Найти первое натуральное число квадрат которого больше n
Дано число n. Найти первое натуральное число квадрат которого больше n.

Вывести целые числа квадрат которых не превышает N, вывести первое число, квадрат которого больше N
Всем привет. Поможет кто решить задачку? :) Дано число N. Вывести целые числа...

Определить, является ли первое число перевёртышем второго
Помогите пожалуйста.... два дня думаю, не могу придумать(:cry: Ввести два...


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

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

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