Ввод исходных данных. Команда Readln

Сколь бы раз Вы ни запускали нашу программу, Вы всегда будете получать один и тот же результат. Что делать, если Вы захотите задать другие исходные данные? Конечно, можно в программе заменить числа, которые Вы присваиваете исходным переменным. Но есть и другой вариант, с помощью которого переменная величина может получить конкретное значение взамен неопределенного.

Для этого используется команда для ввода исходных данных. Она начинается со слова Readln, а после него в круглых скобках перечисляются через запятую (если их несколько) имена переменных, значения которых надо задать. В нашем случае это может быть так:

Var

X,У: Integer;

A,В,С: Real;

Z: Integer;

Begin

Readln (X);

Readln (Y);

Z:=(X+Y)*(X-Y);

Writeln(‘Z=’,Z);

Readln (A,B);

C:=A/B;

Writeln(‘C=’,C);

End.

Встречая команду ввода, Паскаль приостанавливает работу и ждет, когда Вы введете нужные данные. Порядок ввода должен соответствовать порядку запрашиваемых переменных. В нашем случае порядок такой: X, затемY, затем A и затем В. Ввод каждого числа следует заканчивать нажатием клавиши <Enter>.

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

Var X,У: Integer; A,В,С: Real; Z: Integer; Begin Writeln (‘Введи Х’); Readln (X); Writeln (‘Введи Y’); Readln (Y); Z:=(X+Y)*(X-Y); Writeln(‘Z=’,Z); Writeln (‘Введи A и B’); Readln (A,B);+ C:=A/B; Writeln(‘C=’,C); End.

Var X,У: Integer; A,В,С: Real; Z: Integer; Begin Writeln (‘Х=’); Readln (X); Writeln (‘Y=’); Readln (Y); Z:=(X+Y)*(X-Y); Writeln(‘Z=’,Z); Writeln (‘A=’); Readln (A); Writeln (‘B=’); Readln (B); C:=A/B; Writeln(‘C=’,C); End.

Задания к § 14.

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

1. У Кати было несколько больших хрямзиков и несколько маленьких. Когда она узнала, что это такое, она все свои хрямзики бросила и отскочила от них подальше. От какого количества шлепнувшихся на землю хрямзиков отскочила Катя?

2. Злая колдунья превратилась в Белоснежку и испекла для нескольких гномов нечетное число пирожков с гвоздями. Три гнома отказались от угощения, а остальные разделили пирожки поровну и кинули их в колдунью. Половина пирожков с гвоздями попало в колдунью, а половина пролетела мимо нее. Сколько гномов целилось в колдунью и сколько пирожков попало в нее?

3. Написать программу для подсчета затрат вашей семьи на праздничные подарки, если известны затраты каждого члена семьи.

4. Напишите программу. Запросить значения переменных а,b,с и переставить их по следующему правилу:

a b c

c a b.

5. Напишите программу для вычисления среднего балла по предмету, если было получено 3 оценки.

6. Напишите программу, вычисляющую по трем сторонам треугольника его высоты.

7. Напишите программу для подсчета ваших затрат на обед в столовой.

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