Сұрақтарға жауап берейік 1. Деректерді сұрыптау қандай қадамдардан тұрады? 2. Кеңейтілген сүзгілеуді пайдалану реті қандай? (2 Ойланайық, талқылайық 1. Деректер базасында сұрыптау және сүзгілеу не үшін қолданылады? 2. Деректер базасымен жұмыс істеу кезінде MS Excel сұрыптау және сүзгілеу әдістеріне қалай көмектеседі?
function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem := a; if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b; end;
function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum := a; if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;
begin write('введите первый член прогрессии:'); readln(a); write('введите разность прогрессии:'); readln(b); write('введите номер члена прогрессии:'); readln(n); writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2); writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2); end.
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы'); if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.