Решите как можно быстрее во Запишите значение переменной s, полученное в результате работы следующей программы. Var s, k: integer; Begin s := 1; for k := 3 to 7 do s := s * 2; writeln(s); End. 2 во Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4? Var K, n, F1, F2, P : Byte; Begin Readln(K); F1 := 1; F2 := 1; n := 1; Repeat n := n + 1; P := F1 + F2; F2 := F1; F1 := P Until n > K; Writeln (‘P=’, P:3) End. 3 во Запишите значение переменной s, полученное в результате работы следующей программы. Var s, k: integer; Begin s := 1; for k := 4 to 8 do s := s + 7; writeln(s); End. 4 во Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 5? Var K, n, F1, F2, P : Byte; Begin Readln(K); F1 := 1; F2 := 1; n := 1; Repeat n := n + 1; P := F1 + F2; F2 := F1; F1 := P Until n > K; Writeln (‘P=’, P:3) End. 5 во Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4? Var K, n, F1, F2, P : Byte; Begin Write (‘Задайте К =’); Readln(K); F1 := 1; F2 := 1; n := 2; While n <= K do Begin P := F1 + F2; n := n + 1; F2 := F1; F1 := P End; Writeln (‘P=’, P:3) End.
Ответы
Const
n = 1000;
var
massiv : array[1..n] of integer;
countOfElements, maxElement, i, m, j : integer;
begin
write('Введите количество элементов массива: '); readln(countOfElements);
writeln('Введите элементы массива');
for i := 1 to countOfElements do
read(massiv[i]);
writeln();
maxElement := massiv[1];
for i := 1 to countOfElements do
if (maxElement < massiv[i]) then maxElement := massiv[i];
m := countOfElements;
i := 1;
while i <= m do
if massiv[i] = maxElement then
begin
for j := i to countOfElements - 1 do
massiv[j] := massiv[j+1];
m := m - 1;
end
else
i := i + 1;
massiv[countOfElements] := 0;
write('Максимальный элемент: '); writeln(maxElement);
for i := 1 to countOfElements do
write(massiv[i]:4);
end.
n = 1000;
var
massiv : array[1..n] of integer;
countOfElements, maxElement, i, m, j : integer;
begin
write('Введите количество элементов массива: '); readln(countOfElements);
writeln('Введите элементы массива');
for i := 1 to countOfElements do
read(massiv[i]);
writeln();
maxElement := massiv[1];
for i := 1 to countOfElements do
if (maxElement < massiv[i]) then maxElement := massiv[i];
m := countOfElements;
i := 1;
while i <= m do
if massiv[i] = maxElement then
begin
for j := i to countOfElements - 1 do
massiv[j] := massiv[j+1];
m := m - 1;
end
else
i := i + 1;
massiv[countOfElements] := 0;
write('Максимальный элемент: '); writeln(maxElement);
for i := 1 to countOfElements do
write(massiv[i]:4);
end.
// PascalABC.Net 3.0, сборка 1066
type
Point=record
x,y:double;
end;
procedure GetPoint(c:char; var M:point);
begin
Write('введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function L(A,B:Point):double;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function S(A,B,C:Point):double;
var
p,la,lb,lc:double;
begin
la:=L(A,B); lb:=L(B,C); lc:=L(C,A);
if (la+lb>lc) and (la+lc>lb) and (lb+lc>la) then begin
p:=0.5*(la+lb+lc);
Result:=sqrt(p*(p-la)*(p-lb)*(p-lc))
end
else
Result:=0
end;
var
A,B,C,D:Point;
S1,S2:double;
begin
GetPoint('A',A);
GetPoint('B',B);
GetPoint('C',C);
GetPoint('D',D);
S1:=S(A,B,C);
if S1=0 then Write('По точкам А,В,С нельзя построить треугольник')
else begin
S2:=S(C,D,A);
if S2=0 then Write('По точкам C,D,A нельзя построить треугольник')
else Writeln('Площадь четырехугольника равна ',S1+S2)
end
end.
Тестовое решение:
введите координаты точки A: -5 -7
введите координаты точки B: -2 4
введите координаты точки C: 5 9
введите координаты точки D: 9 -3
Площадь четырехугольника равна 123
type
Point=record
x,y:double;
end;
procedure GetPoint(c:char; var M:point);
begin
Write('введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function L(A,B:Point):double;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function S(A,B,C:Point):double;
var
p,la,lb,lc:double;
begin
la:=L(A,B); lb:=L(B,C); lc:=L(C,A);
if (la+lb>lc) and (la+lc>lb) and (lb+lc>la) then begin
p:=0.5*(la+lb+lc);
Result:=sqrt(p*(p-la)*(p-lb)*(p-lc))
end
else
Result:=0
end;
var
A,B,C,D:Point;
S1,S2:double;
begin
GetPoint('A',A);
GetPoint('B',B);
GetPoint('C',C);
GetPoint('D',D);
S1:=S(A,B,C);
if S1=0 then Write('По точкам А,В,С нельзя построить треугольник')
else begin
S2:=S(C,D,A);
if S2=0 then Write('По точкам C,D,A нельзя построить треугольник')
else Writeln('Площадь четырехугольника равна ',S1+S2)
end
end.
Тестовое решение:
введите координаты точки A: -5 -7
введите координаты точки B: -2 4
введите координаты точки C: 5 9
введите координаты точки D: 9 -3
Площадь четырехугольника равна 123
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дан целочисленный массив размера n. найти количество отрицательных элементов массива.
Автор: Galina-Marat1096
Ввосьмеричной системе счисления есть 8 цифр 0 1 2 3 4 5 6 7 а что идет после них какие буквы . 30
Автор: veronikagrabovskaya
Какие числа можно отнести к двоичному коду?11 12 15 2211 10 02 0011 011110101
Автор: rimmatrotskaia303
решите задание указанного на рисунке используя язык программы Lazarus!
Автор: chetverikovalex3738
Графические изображения в тестах документах
Автор: AMR89154331531
1.32
2.8
3.36
4.12
5.5
Объяснение: