Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=3;
а:=12;
while i<3 do begin
а:=а+i;
i:=i+1;
end;
Чему будет равно значение целой переменной «a» после выполнения фрагмента этой программы?
а:=4;
For i:=1 to 2 do begin
a:=a+a ;
end;
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза?
i:=... ;
while i>=3 do begin writeln('Привет!');
i:=i-1;
end;
Чему будет равна переменная «c» после выполнения этой программы?
a := 20;
b := 3;
b := a div b ;
c := a mod (b + 1);
Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a < 15 then
a := a+12 ;
else
a:=a-7
Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a < 5 then a := a+12
else a:=a-7 ;
if a < 5 then a := a+12
else a:=a-7 ;
Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a < 5 then
a:=a+12 ;
else
a:=a-7 ;
Что будет выведено на экран в результате выполнения фрагмента программы?
a:= 5;
b:= 3;
Write( a,'=Z(',b,') ');
Здесь а и b целые переменные
Чему будет равно значение целой переменная «а» после выполнения этой программы?
а:=10;
for i:= 1 to 2 do begin
a:= a-1;
end;
Чему будет равно значение переменной "а" после выполнения этого цикла?
i:=2;
a:=12;
While i<3 do begin
a:=a+i;
i:=i+1;
end;
uses crt;
const
n=10;
m=8;
var
A:array[1..n,1..m] of integer;
cur,up,right,down,left,qw,i,j:integer;
begin;
randomize;
writeln(' Alphaeus ');writeln;
writeln ('Програма пошуку всіх елементів масиву А[1..n, 1..m], що менші, ніж усі сусідні');
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(101)-50;
write(A[i,j]:3, ' ');
end;
writeln;
end;
writeln;
qw:=0;
for i:=1 to n do
for j:=1 to m do
begin
cur:= A[i,j];
up:=0; right:=0;down:=0;left:=0;
if i>1 then
begin
if cur<A[i-1,j] then up:=1;
end
else up:=1;
if i<n then
begin
if cur<A[i+1,j] then down:=1;
end
else down:=1;
if j>1 then
begin
if cur<A[i,j-1] then left:=1;
end
else left:=1;
if j<m then
begin
if cur<A[i,j+1] then right:=1;
end
else right:=1;
if up+right+down+left=4 then
begin
qw:=qw+1;
writeln('Елемент масиву À[',i,',',j,'], що рівний ',A[i,j]:3,', є меншим за своїх сусідів');
end;
end;
writeln('Всього таких елементів: ',qw);
end.
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975