3.5. Ввод/вывод данных.

В стандартном Паскале для целей ввода данных с клавиатуры и вывода результатов на экран существуют специальные команды ввода/вывода – readиwrite, которые актуальны при работе в средеDOS. Под ОСWindowsнеобходимо пользоваться визуальными компонентамиDelphiтакими какEdit– поле редактирования иLabel– текстовое поле из палитры системных компонент.

Свойство CaptionкомпонентаLabelиTextкомпонентаEdit(типаstring) доступны из программы для записи и чтения, поэтому если выполнить команду:

Label1.Caption:= ‘Это вывод строки текста’;

то в месте размещения компонента Label1 на форме мы увидим текст: “ Это вывод строки текста ”. Таким образом, если необходимо вывести числовые результаты работы программы можно воспользоваться визуальным компонентом текстовое поле и соответствующей функцией преобразования числового значения в строку символов. Например, если переменная а –integer, то команда вывода будет выглядеть следующим образом:

Label1.Caption:=IntToStr(a); // преобразование к строковому типу

Если b–real, то используем функциюFloatToStr(b);

В отличии от тестового поля компонент Editпозволяет пользователю программы набирать данные в полеText. Но с учетом того, что свойствоEdit.Textимеет типstring, числовые данные надо преобразовывать к соответствующему типу:

Var a : integer; b : real;

begin

a:=strtoint(Edit1.text); // преобразование к целому типу

b:=strtofloat(Edit2.text); // преобразование к вещественному типу

end;

3.6. Ветвления

Логическое выражение— это способ записи на языке программирования условий для поиска необходимых данных. Логи­ческое выражение может принимать значения true (истина) или false (ложь). Логические выражения бывают простые и сложные. Простое выражение — это два арифметических выражения, соеди­ненных символом отношения, а сложное — это простые логиче­ские выражения, соединенные логическими операциями not, and или or. Приоритет выполнения логических операций такой:

1- not, 2 - and, 3 - or

Двойное неравенство 1 < х < 5 как сложное логическое выра­жение записывают так: (1 < х) and (x < 5). Совокупность нера­венств вида х < 1; х > 5 так: (х < 1) or (x > 5). Простые логиче­ские выражения, из которых состоят сложные, всегда берут в круглые скобки.

Команда ветвления if.Команду ветвления if иначе называ­ют условной командой. Она имеет две формы: полную и корот­кую.

Полная форма команды ветвления выглядит так:

If<логическое выражение>then<оператор 1>else< оператор 2>;

Действие команды. Если логическое выражение истинно, то выполняется оператор 1, в противном случае - оператор 2. Операторы 1 и 2 могут быть простыми или составными.

Пример:ifa>0thenx:=a*belseX:=0;

Короткая форма команды ветвления if выглядит так:

If<логическое выражение>then< оператор 1>;

Действие команды. Оператор 1 выполняется только тогда когда логическое выражение истинно.

Пример. Пусть х=20.

if х > 12 then у := 2 * х;

z := 10;

if x < 5 then z := 10 + x / 2;

Результат: y= 40,z= 10.

Другие команды ветвления: GOTO,CASE.

Вопросы для самопроверки:

1.Опишите действие команд GOTO и CASE

2. Запишите условный оператор, который эквивалентен следующему оператору присваивания: X:=aorbandc;

3. Дайте определение пустого оператора; примеры.

4. Задача: необходимо значения переменных а, b и с поменять местами так, чтобы выполнялось условие a≥b≥c.