Текстовое поле. Ввод и вывод данных

Текстовое поле. Ввод и вывод данных

Преврати строку из текстового поля в число, выполни расчёт и проверь результат.

Ввод, проверка, вычисление и вывод — разные этапы работы приложения.

Результат урока

Создашь проект с одним полем ввода и двумя полями результата. Научишь приложение отклонять неверные данные и проверишь сохранённую работу после повторного открытия.

Перед началом

Работай в своей папке и соблюдай правила кабинета. При неисправности остановись и обратись к учителю. Для основного проекта нужна проверенная учителем среда PascalABC.NET под Windows с дизайнером Windows Forms.

Вспомни: свойство Text хранит текст, а событие Click вызывает связанный с ним обработчик. На прошлом уроке кнопка меняла готовую строку. Сегодня результат зависит от введённых данных.

Основа — пример 3.13 «Квадрат и корень» учебника. Проверка формата и допустимого диапазона добавлена в нашем уроке: приложение должно понятно реагировать и на неверный ввод.

TextBox хранит редактируемую строку

Компонент TextBox позволяет пользователю вводить текст. Значение доступно через свойство Text. Даже если набраны цифры, содержимое поля остаётся строкой.

Пользователь вводит строку. Программа решает, можно ли использовать её как число.

ReadOnly=True запрещает пользователю редактировать поле, но программный код по-прежнему может присваивать его свойству Text новое значение. Результат можно выделить и скопировать.

В палитре PascalABC.NET выбирай именно TextBox. Встречающееся в тексте учебника название Edit не является именем нужного компонента Windows Forms.

Строка «7» и число 7

Строки используют для текста, числа — для арифметики. При textBox1.Text='7' выражение textBox1.Text + '2' даст строку '72'. Для числового сложения сначала требуется преобразование.

Внешнее сходство записи не означает одинаковый тип данных.

Преобразование нужно и на входе, и перед выводом числа в Text.

Ограничение StrToInt: если строка не представляет допустимое целое число, преобразование вызывает ошибку. В нашем обработчике используем TryStrToInt: функция сообщает, удалось ли преобразование, и позволяет вывести понятную подсказку.

Квадрат и корень

Создай проект Windows Forms SquareRoot. Заголовок формы — «Квадрат и корень». Добавь три TextBox, кнопку и четыре Label. Сохрани имена компонентов.

Очисти Text всех трёх полей в инспекторе, не вводя кавычек. У выходных полей включи ReadOnly. Размести подписи рядом с соответствующими полями, оставь место для длинного сообщения.

Для a=4 получаем квадрат 16 и арифметический квадратный корень 2.

Вычисление и вывод после успешной проверки

var b := a * a;
var c := Sqrt(a);
textBox2.Text := IntToStr(b);
textBox3.Text := FloatToStr(c);
label4.Text := 'Готово';

Переменная b целая, c вещественная. Для a=3 корень будет приближённым значением. Число знаков и вид десятичного разделителя при FloatToStr могут зависеть от версии среды; не сравнивай результат только по запятой или точке.

Поле результата получает строку, сформированную программой.

Сначала очистка старого результата

Если после правильного расчёта пользователь введёт ошибочные данные, прежние ответы не должны выглядеть как новые. Поэтому в начале каждого Click очищаем оба поля результата.

var a: integer;
textBox2.Text := '';
textBox3.Text := '';

Пустое поле не означает число 0. Нельзя молча подменять отсутствующее значение.

Проверка формата

if not TryStrToInt(textBox1.Text, a) then
begin
  label4.Text := 'Введите целое число';
  exit;
end;

TryStrToInt возвращает True, если преобразование удалось, и записывает число в a. Иначе возвращает False. Команда exit завершает текущий обработчик, поэтому вычисления ниже не выполняются.

«abc», «4.5» и пустая строка не проходят проверку целого числа.

Проверка допустимых значений

if (a < 0) or (a > 10000) then
begin
  label4.Text := 'Допустимо от 0 до 10000';
  exit;
end;

Число −1 является целым, но не подходит для нашего вычисления арифметического квадратного корня. Верхняя граница 10000 — ограничение учебного проекта: квадрат не превосходит 100000000 и помещается в тип integer.

Правильный формат ещё не гарантирует допустимость значения в задаче.

Порядок в button1.Click: объявление a → очистка выходов → проверка преобразования → проверка диапазона → вычисление → вывод. Вставляй фрагменты именно в этом порядке внутрь созданных средой begin и end. Не переписывай объявление процедуры. Проверки — авторское дополнение к примеру 3.13.

Учебная модель ввода и расчёта

Выбери сценарий и до нажатия кнопки запиши ожидаемый результат. Модель выполняет описанный алгоритм в браузере. Она не компилирует Pascal и не создаёт проект Windows Forms.

Открыть учебную модель ввода и расчёта. Это учебная модель, которая не создаёт проект PascalABC.NET.

В браузерной модели: Tab переводит фокус, Enter запускает расчёт из поля ввода, Enter или пробел нажимает выбранную кнопку. Выходные поля доступны для выделения и копирования.

Три опыта

1. В примере введи 4 и вычисли. Замени ввод на 9, но пока не нажимай кнопку. Какие результаты остались? Затем вычисли снова.
2. После верного расчёта введи abc и нажми кнопку. Проверь оба поля результата и сообщение.
3. Сравни ввод 0 в двух сценариях. Объясни, почему проверка формата одинакова, а допустимые значения различаются.

Пауза перед практикой

На минуту отведи взгляд от экрана, посмотри вдаль, расслабь плечи и кисти. Проверь посадку и переходи к самостоятельной работе.

Параметры квадрата

Сохрани исходный SquareRoot. Создай его копию в собственной папке SquareCard_07, заменив 07 номером места. Задача: по целой стороне a от 1 до 10000 вычислять площадь S=a² и периметр P=4a.

1. Измени заголовок формы на «Параметры квадрата», подписи — «Сторона a (1–10000)», «Площадь S», «Периметр P». Начальное сообщение должно указывать новый диапазон.
2. Сохрани одно поле ввода и два выходных поля с ReadOnly=True. Сохрани имена textBox1, textBox2, textBox3, label4 и button1.
3. Измени нижнюю границу проверки и сообщение об ошибке. Самостоятельно составь две формулы и строки вывода целых результатов.
4. Проверь верный и неверный ввод. Каждый заполняет личный лист, даже если за компьютером работает пара.

Сторона измеряется в условных единицах, площадь — в квадратных условных единицах. В поле вводи только число.

Сохранение и повторное открытие

1. Выполни «Сохранить все», останови приложение и закрой проект.
2. Через «Файл → Открыть проект» открой .pabcproj из своей папки.
3. Запусти заново: все поля должны быть пустыми, сообщение — начальным. Проверь ввод 2 и затем abc.
4. Передай всю исходную папку проекта и личный лист. Один файл exe не заменяет исходники.

Сохраняй проект целиком и проверяй его после повторного открытия.

Критерии готовности

Шесть диагностических баллов: проект повторно открывается; поля и подписи настроены верно; S и P верны для 2 и 7; пустой ввод и abc не оставляют старого ответа; 0 и 10001 отклоняются; личный лист содержит прогнозы, наблюдения и объяснение преобразований. Эти баллы дают обратную связь, а не автоматически переводятся в школьную отметку.

Если остаётся время: проверь границу 10000. Затем попробуй +7 и 007. Это целые записи, и результат должен совпасть с вводом 7. Внутренние пробелы, дроби и запись с единицами измерения не допускаются.

Если результат отличается

Объясни самостоятельно

1. В поле введено 7. Почему textBox1.Text + '2' даёт 72, а не 9? Что нужно для арифметики?
2. Почему одной успешной TryStrToInt недостаточно для стороны квадрата?
3. После правильного расчёта введено abc и нажата кнопка «Вычислить». Какие результаты и сообщение должны появиться? Почему нельзя оставить прежние ответы?

Показать ответ после выполнения

Домашнее задание

§ 3.4, страницы 19–22 до § 3.5*, вопрос 6 на странице 24. Письменно предложи два верных и два неверных ввода для SquareCard и укажи ожидаемые результаты либо сообщение об ошибке.

Обработчик KeyPress из примера 3.12 подробно изучим на следующем уроке. По желанию при доступе к Windows можно проверить границу 10000. Установка программ дома не требуется.

Источники

Котов В. М. и др. «Информатика. 11 класс», 2021: § 3.4, примеры 3.10–3.13, вопрос 6. Электронная копия печатного учебника.

Первичный код PascalABC.NET: преобразования PABCSystem. Microsoft: TextBox и ReadOnly.

Проверки, диапазоны, самостоятельная задача и десять иллюстраций разработаны для этого урока. Изображения условные и не являются снимками установленной среды.