Ниже на пяти языках программирования записаны две рекурсивные функции: F и G.
function F (n : integer) : integer;
begin if n > 1 then
F := F(n - 1) + G(n - 1) else F := n;
end;
function G (n : integer) : integer;
begin if n > 1 then
G := G(n - 1) + F(n) else G := n;
end;
Чему будет равно значение, вычисленное при выполнении вызова G(5)?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=new List<real>;
a.AddRange(ReadSeqReal('Введите список А:',10));
var b:=new List<real>;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new List<real>;
x.AddRange(a.Zip(b,(p,q)->q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p->Trunc(p) mod 5=0).Println;
end.
Пример
Введите список А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите список B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ArrRandom(ReadInteger('n='),1,300).Println.
Where(k->(k>=100) and ((k mod 100) div 10=0));
if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов')
end.
Пример
n= 15
76 283 171 140 113 65 185 35 202 42 93 51 205 76 138
205
2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.
const
nn=100;
var
i,n,max:integer;
a:array[1..nn] of integer;
begin
Write('n=');
Read(n);
Randomize;
max:=0;
for i:=1 to n do begin
a[i]:=Random(300)+1;
Write(a[i],' ');
if (a[i]>=100) and ((a[i] mod 100) div 10=0) then
if a[i]>max then max:=a[i]
end;
Writeln;
if max>0 then Writeln(max)
else Writeln('Нет элементов')
end.
Пример
n=15
219 68 131 115 104 169 80 288 143 108 124 214 50 101 1
108