Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/25: Рейтинг темы: голосов - 25, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 29.04.2013
Сообщений: 79

Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a

25.06.2013, 23:37. Показов 4714. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано вещественное число a. Из чисел 1+½, 1+⅓, 1+1/n напечатать те, которые меньше a.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.06.2013, 23:37
Ответы с готовыми решениями:

Дано число n.. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n.
Дано число n.. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n.

Дано вещественное число a, из чисел последовательности напечатать те, которые меньше a.
Помогите пожалуйста решить задачи Дано вещественное число a, из чисел 1; 1+;1+;..., напечатать те, которые меньше a. Заранее...

Дано число а (1 < а <= 1,5). Из чисел 1+1/2, 1+1/3, . напечатать те, которые не меньше а
Дано число а (1 &lt; а &lt;= 1,5). Из чисел 1+1/2, 1+1/3, ... напечатать те, которые не меньше а Написал что то типо такого, но значения...

1
100 / 97 / 61
Регистрация: 08.08.2012
Сообщений: 163
26.06.2013, 02:09
Лучший ответ Сообщение было отмечено wein173 как решение

Решение

Pascal Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
var
  a: real;
  n,i: integer;
begin
  write('a = '); readln(a);
  write('n = '); readln(n);
  For i:=1 to n do
    if 1+ 1/n < a then
      writeln('1 + 1/',i,' = ',1+1/i:0:2,' < ',a:0:2);
 
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.06.2013, 02:09
Помогаю со студенческими работами здесь

Дано число а (1 < а <= 1,5). Из чисел 1+1/2, 1+1/3, ... напечатать те, которые не меньше а
Дано число а (1 &lt; а &lt;= 1,5). Из чисел 1+1/2, 1+1/3, ... напечатать те, которые не меньше а на си шарп

Дано вещественное число R и массив вещественных чисел. Найти 2 элементы массива, которые наименее близки к данному числу R
Дано вещественное число R и массив вещественных чисел. Найти 2 элементы массива, которые наименее близки к данному числу R. пожалусто...

Дано натуральное число n>0 и последовательнось чисел из n елементов, найти количество всех чисел которые больше за 0 и меньше за 0
Всем привет, задача такова: Дано натуральное число n&gt;0 и последовательнось чисел из n елементов, найти количество всех чисел которые...

Дано число n, из чисел 1, 4, 9, 16, 25,... Напечатать те, которые не превышают число n
Подскажите как составить программу используя цикл while при этом предусмотреть досрочный выход из цикла (оператор break) с выводом на экран...

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Работа с объемным DOM в javascript
Htext 04.04.2025
Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .
Оптимизация производительности Node.js с помощью кластеризации
run.dev 04.04.2025
Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .
Управление зависимостями в Python с Poetry
py-thonny 04.04.2025
Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .
Мониторинг с Prometheus в PHP
Jason-Webb 04.04.2025
Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .
Пакет Context в Golang: Управление потоками и ресурсами
golander 04.04.2025
Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker
Reangularity 03.04.2025
Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .
Свой попап в SwiftUI
mobDevWorks 03.04.2025
SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .
Антипаттерны микросервисной архитектуры
ArchitectMsa 03.04.2025
Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .
std::mutex в C++: Советы и примеры использования
bytestream 03.04.2025
std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .
Не удержался от оценки концепции двигателя Стирлинга.
Hrethgir 03.04.2025
Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер