Read (x). Оператор ввода значения переменной с клавиатуры.
Если программа представляет собой последовательность выполнения различных задач, в том числе и Read, то когда очередь дойдет до него программа запросит у вас ввод данных и пока вы не выполните требования, она не продолжит работу.
х - это переменная. Переменные бывают различных типов (не все подходят для read). Два основных типа: Число (integer) и Символ(Char). Если х типа integer, то вам придется ввести целое число (например 2). Но при вводе символа программа выбьет ошибку "Ошибка ввода", так как вы попытались присвоить переменной числа, букву, а это невозможно.
Рассмотрим пример программы: здесь х типа integer,сначала он намеренно присвоен 5 и выведен на экран, затем вам дается возможность ввести новый х, и он заново выведется. Если вы попытаетесь ввести символ то выбьет ошибку "ошибка ввода", попробуйте.
Var x:integer;
Begin
x:=5;
writeln ('x=',x);
write ('Enter a new X: ');
read (x);
writeln ('x=',x);
end.
<span>1.5)
</span> s="Вася пошел гулять"
for i in range(0,3):
n=s.index(s.split()[i])-i
print(' '*n+s.split()[i])
<span>
1.6)
</span><span>s="С"
print(s.center(7,' '))
s='Ж'
print(s.center(7,' '))
for i in range(3,8,2):
print((s*i).center(7,' '))
s=' '+'HH'
print(s*2)
s='Z'
print(' '+(s*5))
<span>
</span></span>
Type Point=record
x: integer;
y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
readln(p1.x, p1.y);
readln(p2.x, p2.y);
readln(p3.x, p3.y);
readln(p4.x, p4.y);
if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
else writeln('No');
End.
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
