Написать программу на языке паскаль для решения : 1. скорость лодки в стоячей воде v км/ч, скорость течения реки u км/ч (u < v). время движения лодки по озеру t1 ч, а по реке (против течения) — t2 ч. определить путь s, пройденный лодкой. 2. на числовой прямой выбран отрезок [ a, b ]. ввести а и в с клавиатуры и определить координату середины отрезка. 3. найти площадь кольца по заданным внешнему и внутреннему радиусам.
var
d : array of integer;
n : integer;
function arrSumRec(d : array of integer; n : integer) : integer;
begin
if n > d.Length-1 then exit;
result := d[n]+arrSumrec(d, n+1);
n += 1;
end;
begin
write('введите количество элементов для массива ');
readln(n);
d := new integer[n];
d := arrRandom(n, 1, 100);
writeln('сгенерирован массив из ', n, ' элементов со значениями в диапозоне 1..100');
writeln(d);
writeln('Сумма = ', arrSumRec(d, 0));
end.
функция function arrSumRec(d : array of integer; n : integer) : integer; в качестве первого параметра получает массив сумму которого считаем в качестве второго номер члена начиная с которого считаем сумму. Не забываем что нумерация начинается с нуля. поэтому чтобы посчитать сумму всех членов массива в качестве второго параметра указываем 0.
треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения:
program qq;
uses crt;
var a, b, c, p: integer;
begin
p:=0; // обнуляем переменную
writeln('Введите через пробел значения a, b и с');
readln (a, b, c);
if a<=(b+c) then
if b<=(a+c) then
if c<=(b+a) then
p:=1; //если все условия
//выполнены то треугольник
//существует. присваиваем переменной значение 1.
writeln (p);
end.