Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом для описания переменных Var, а также с одним из типов данных, используемых в Pascal.
В строке №3 мы записываем служебное слово Var. Оно используется для объявления переменных. Переменные – это различные значения, числа или слова, которые могут меняться в процессе выполнения программы. Когда мы вводим с клавиатуры числа или буквы, они записываются в переменые. После слова Var через пробел указываем идентификатор переменной (т.е ее название, которое мы придумываем сами). Переменные – это не служебные слова, программист задает их сам. В данном случае мы задали одну переменную «n» и в дальнейшем мы будем использовать только эту переменную. После записи переменной через двоеточие указывается тип данных. Существует несколько типов данных Один из них - Integer (целый). Он дает понять программе, что наша переменная «n» может быть только целым числом, лежащим в диапазоне от -32768 до 32767. Использование различных типов данных зависит от конкретных потребностей программиста при написании программы. Самое главное на данном этапе понять, что если в своей программе вы собираетесь использовать какое-то число, то для него нужно указать переменную (в нашем случае «n») и тип данных (в нашем случае Integer).
В строке №7 мы записываем оператор для ввода данных с клавиатуры Readln. Этот оператор вызывает встроенную процедуру ввода данных и на этом этапе программа останавливается и начинает ждать ввода данных. Мы уже использовали этот оператор для задержки экрана. В данной программе после оператора Readln в круглых скобках указывается наша переменная «n». То число, которое мы будем вводить с клавиатуры, запишется в эту переменную. Соответственно, это число должно соответствовать параметрам переменной, т.е. должно быть целым, лежащим в диапазоне -32768 до 32767. После того как программа дойдет до 7-ой строки, она выведет на экран сообщение «Введите число с клавиатуры: » и будет ждать. На этом этапе мы должны ввести какое-то число и нажать Enter.
Строка №8. Здесь мы записываем оператор вывода на экран Writeln. Он будет выводить сообщение «Вы ввели число», а также будет выводить значение нашей переменной «n» (т.е. то значение, которое мы введем с клавиатуры). Заметьте, что в строке №8 перед переменной «n» мы ставим запятую, а сама переменная не заключается в апострофы.
Теперь наберем программу в Паскале.
Запускаем (Сtrl+F9). Набираем число, например, 5 и нажимаем Enter.
Комментарии
var z,x,y:integer;
Begin
Read(x);
read(y);
z:=((x*x*x)div 9 +y*y*x*x)*99 div (y+x);
Write(z);
end.
integer u real - числовие типы(целый(1;45 )и действительный(1.4;45/10)).
begin u end - обязательные структурние части программы,что ограничивают раздел операторов(осно вную часть программы).
begin - начало какой то программы или ее части(подпрогра ммы,циклов).
end - конец прогы или ее части
А точка после Еnd - еще один обязательный структурный елемент,обознач ает завершение программы(еще могжет быть и ; когда завершается только ее часть).Вы же тоже точку ставите,когда предложения завершаете.
Begin
x,y
x>y
max:=x max:=y
max вывести
end
f= фигурная скобка 0, при x< -1
a+b при -1
Вход:n>=0 - мощность множества
Выход: последовательно сть кодов подмножеств i.
for i from 0 to 2^n -1 do
yield i {код очередного подмножества}
end for
Var s,k:integer;
Begin
S:=100;
K:=8;
Repeat
S:=s-k;
K:=k-1;
Until k
readln - оператор (процедура) ввода
writeln - оператор (процедура) вывода
begin - ключевое слово (начало блока операторов)
real описатель вещественного типа
end - ключевое слово (конец блока операторов)
program - необязательный заголовок программы
:= - оператор присваивания
const
ROME: array[1..13] of string = ('M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I');
ARABIC: array[1..13] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1);
var
number: integer:=0
sNumber: string;
n: integer:=0;
end.
помогите пожалуйста
d: set of integer := [200..300];
begin
s += '.NET';
d -= [100..298];
writeln(s);
writeln(d);
end.