Практикум по решению задач на ЭВМ. Тарова И.Н - 37 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
read(n);
k:=0; l:=0;
for i:=1 to n do
begin
write('Введите ',i,'-й элемент последовательности: ');
read(a);
if a>0 then k:=k+1;
if a<0 then l:=l+1;
if i=1 then max:=a;
if a>max then max:=a;
end;
if k>l then writeln ('Положительных элементов больше')
else writeln('Отрицательных элементов больше');
if abs(max)>1 then writeln('Наибольший элемент по мод.>1')
else writeln ('Наибольший элемент по мод < 1');
end.
5) Пусть
ni
i
i
Sin
i
i
a
i
...2,1,
1
)1(
1
1
2
=
+
−
+
+
−
=
Дано натуральное число n. Среди a
1
,
a
2
,…a
n
найти все положительные числа. Среди положительных выбрать
наименьшее число.
program polog (input,output);
uses CRT;
var n,i,b:integer;a,min:real;
begin
clrscr;
write('Введите кол-во элементов последовательности:' );
read(n);
for i:=1 to n do
begin
a:=(i-1)/(i+1)+sin((sqr(i-1)*(i-1))/(i+1));
if a>0 then writeln(a);
if a>0 then b:=b+1;
if b=1 then min:=a;
if (a>0) and (b>1) and (a<min) then min:=a;
end;
writeln('Наименьший полож. элем послед.: ',min);
37
                        Практикум по решению задач на ЭВМ


      read(n);
      k:=0; l:=0;
      for i:=1 to n do
         begin
write('Введите ',i,'-й элемент последовательности: ');
            read(a);
            if a>0 then k:=k+1;
            if a<0 then l:=l+1;
            if i=1 then max:=a;
            if a>max then max:=a;
         end;
if k>l then writeln ('Положительных элементов больше')
     else writeln('Отрицательных элементов больше');
if abs(max)>1 then writeln('Наибольший элемент по мод.>1')
       else writeln ('Наибольший элемент по мод < 1');
   end.




                 i −1       (i − 1) 2
5) Пусть a i =        + Sin           , i = 1,2...n Дано натуральное число n. Среди a1,
                 i +1         i +1
a2,…an найти все положительные числа. Среди положительных выбрать
наименьшее число.

  program polog (input,output);
  uses CRT;
  var n,i,b:integer;a,min:real;
  begin
     clrscr;
write('Введите кол-во элементов последовательности:' );
     read(n);
     for i:=1 to n do
     begin
        a:=(i-1)/(i+1)+sin((sqr(i-1)*(i-1))/(i+1));
        if a>0 then writeln(a);
        if a>0 then b:=b+1;
        if b=1 then min:=a;
        if (a>0) and (b>1) and (a

Страницы