1. Вводится одномерный массив размерностью 40 для обработки данной программой. Что делает программа?
var a: array [1..40] of integer;
1, p, n: integer;
begin
for i:=1 to 40 do begin
a[i]:=10+random(90);
write(a[i]. '');
end;
writeln;
for n:=1 to 40 div 2 do
begin
p:=a[n]:
а[n]:=a[n+1]:
а[n+1]:=p;
end;
for i:=1 to 40 do
write(a[i]: ');
end
Данная программа осуществляет:
а) перестановку наибольшего и наименьшего
значений;
b) меняет местами значения элементов, стоящие на
чётных местах,
значениями элементов,
стоящими на нечетных местах;
с) меняет порядок следования значений элементов в
массиве на обратный порядок,
d) переставляет первый элемент в середину массива.
со
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0
then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 = ',x1,' x2 = ',x2);
end
else if d=0 then begin
x1:=-b/(2*a);
writeln('x = ',x1);
end
else writeln('Корней нет');
end.
Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3
3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
then begin
b:=a; c:=a;
end
else begin
a:=-a; b:=-b; c:=-c;
end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2
Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5
Переменная в императивном программировании — поименованная, либо адресуемая иным область памяти, адрес которой можно использовать для осуществления доступа к данным. Данные, находящиеся в переменной (то есть по данному адресу памяти), называются значением этой переменной (короче: переменная — именованный участок памяти, обладающий некоторым типом).
Переменную обозначают символом, общим для каждого из её значений. Русский термин «переменная величина» происходит от латинского словосочетания quantitas