§ 14 Ввод исходных данных. Команда 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.
Обратите особое внимание на организацию диалога. Весь ввод должен быть снабжен подсказками, а вывод результатов соответствующими сообщениями.
У Кати было несколько больших хрямзиков и несколько маленьких. Когда она узнала, что это такое, она все свои хрямзики бросила и отскочила от них подальше. От какого количества шлепнувшихся на землю хрямзиков отскочила Катя?
Злая колдунья превратилась в Белоснежку и испекла для нескольких гномов нечетное число пирожков с гвоздями. Три гнома отказались от угощения, а остальные разделили пирожки поровну и кинули их в колдунью. Половина пирожков с гвоздями попало в колдунью, а половина пролетела мимо нее. Сколько гномов целилось в колдунью и сколько пирожков попало в нее?
Написать программу для подсчета затрат вашей семьи на праздничные подарки, если известны затраты каждого члена семьи.
Напишите программу. Запросить значения переменных а,b,с и переставить их по следующему правилу:
a b c
c a b.
Напишите программу для вычисления среднего балла по предмету, если было получено 3 оценки.
Напишите программу, вычисляющую по трем сторонам треугольника его высоты.
Напишите программу для подсчета ваших затрат на обед в столовой.
Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц товара сможет купить покупатель и какова сдача?