Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 30

While <=

07.10.2015, 21:38. Показов 531. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Цикл while выполняет свое тело, если выполняется условие:
Pascal
1
2
3
4
while x <= 2 do begin
    write(' ', x:0:1);
    x := x + 0.1;
end;
в моем случае x изначально равен 0.5, почему же (причем в трех разных средах пробовал) цикл не выполняет еще раз свое тело когда x становится равен 2? Если же пишу хотя бы так:
Pascal
1
2
3
4
while x <= 2.01 do begin
    write(' ', x:0:1);
    x := x + 0.1;
end;
то при x = 2 тело выполняется...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.10.2015, 21:38
Ответы с готовыми решениями:

Оператор while (do…while). Вычислить сумму квадратов четных и кубов нечетных чисел от 1 до N
11. Написать программу вычисления суммы квадратов четных и кубов нечетных чисел от 1 до N. помогите

Оператор while (do…while). Генерировать 10 случайных чисел, вычислить среднее арифметическое
Написать программу с использованием оператора while (do…while).Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1...

Цикл FOR,WHILE и Цикл DO WHILE (DENWER+PHP)
Составить алгоритм и программу для вычисления произведения чисел: 13, 14.3, 15.6, 16.9, …, 40.3 Цикл FOR, Цикл WHILE B Цикл DO WHILE

2
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
07.10.2015, 22:34
Цитата Сообщение от Legarc Посмотреть сообщение
почему же (причем в трех разных средах пробовал) цикл не выполняет еще раз свое тело когда x становится равен 2
Дело в том, что х у Вас вещественное число. А вещественные числа никогда не равны целым, они чуть-чуть больше. На какие-то доли. Но этого хватает, чтобы последний раз счётчик присвоил х значение большее 2 и цикл не выполнится. Задача легко исправляется, например, так:
Pascal
1
2
3
4
5
6
7
8
var
x:integer;
begin
x:=5;
while x <= 20 do begin
    write(' ', x/10:0:1);
    x := x + 1;
end;
1
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 30
07.10.2015, 22:47  [ТС]
Большое спасибо, в принципе и подозревал именно это, но все же смущало делать так в ДЗ, теперь смогу если что грамотно ответить
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.10.2015, 22:47
Помогаю со студенческими работами здесь

оператор while и т.д.
Hi. Помогите с задачкой плз: Вход в систему разрешен трем пользователям, каждый из которых имеет свой пароль (четырехзначное число). В...

while & repeat pascal
Pomogite, vse ne tak i vse ne to! Vot zadanie 7. Напишите три программы (одну с использованием оператора For, другую с использованием...

Помогите дорешать задачу на While, !почти решена!
http://img5.imageshost.ru/imgs/339de4895b272cf3da74355f4bfac078/d7b382ab0ae0688e6fc651b78a06b905.jpg program anz116; uses crt; var...

Задача с циклами for, repeat, while
Здравствуйте! У меня задача с циклами FOR, REPEAT, WHILE. Нужно составить таблицу умножения числа 9. Еще желательно блок-схему. Очень прошу...

Задачи на while
Помогите решить задачи с помощу while.Бужу очень благодарен.:help: 1)Данно целое число n(&gt;0).Найти наименьшее целое положительное...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru