Блок-схема по паскалю. 1) задано вік трех друзів. складіть програму, за якої ми визначимо хто з них старше. 2) задано вік двох друзів. складіть програму, за якої ми визначимо хто з них старше.
1)var a,b,c:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); writeln('Введите возраст 3 друга'); readln(c); if (a>b) and (a>c) then writeln('Старшим является 1 друг') else if (b>a) and (b>c) then writeln('Старшим является 2 друг') else writeln('Старшим является 3 друг'); end. 2)var a,b:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); if a>b then writeln('Старшим является 1 друг') else writeln('Старшим является 2 друг'); end.
В основу решения возьму тот факт, что точка лежит внутри треугольника только в том случае, если сумма площадей трех образованных этой точкой и вершинами треугольников треугольников равна площади самого треугольника. Для нахождения площади треугольников использую формулу векторного произведения, деленного пополам.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var n:=ReadInteger('Задайте число строк/столбцов массива:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Write(a[i,j]:4); Writeln end; Write('Кол-во нечетных элементов выше главной диагонали: '); var k:=0; for var i:=0 to n-2 do for var j:=i+1 to n-1 do if Odd(a[i,j]) then Inc(k); Writeln(k) end.
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (a>b) and (a>c) then writeln('Старшим является 1 друг')
else if (b>a) and (b>c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
end.
2)var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if a>b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
end.