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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
2) Вычислить значения выражения
95
43
2
−
−
+
aa
a
для а=1,2,…,100.
3) Дано натуральное число n и действительные числа a
1
, a
2
,…,a
n
. Вычис-
лить:
a) a
1
+a
2
+…+a
n
b) a
1
*a
2
*…*a
n
c) |a
1
|+|a
2
|+…+|a
n
|
d) |a
1
|*|a
2
|*…*|a
n
|
e) a
1
2
+a
2
2
+…+a
n
2
f) a
1
-a
2
+…+a
n-1
{Пошаговый ввод означает, что вводимое значение должно немедленно
использоваться в алгоритме. Применение масссивов исключается}
program zad1(input,output);
USES CRT;
var a,s1,p1,s2,p2,s3,s4:real; n,i:integer;
begin
clrscr;
write('Введите число n: ');
read(n);
s1:=0; s2:=0; s3:=0; s4:=0;
p1:=1; p2:=1;
for i:=1 to n do
begin
write('Введите ',i,'-е число: ');
read(a);
s1:=s1+a;
p1:=p1*a;
s2:=s2+abs(a);
p2:=p2*abs(a);
s3:=s3+sqr(a);
if i mod 2=0 then
s4:=s4-a
else
s4:=s4+a
end;
writeln('сумма s1 =',s1);
writeln('произведение p1 =',p1);
writeln('сумма модулей s2 =',s2);
writeln('произведение модулей p2 =',p2);
writeln('сумма квадратов s3 =',s3);
32
                               Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


2) Вычислить значения выражения       3a + 4 для а=1,2,…,100.
                                    a − 5a − 9
                                     2




3) Дано натуральное число n и действительные числа a1, a2,…,an. Вычис-
лить:
   a) a1+a2+…+an
   b) a1*a2*…*an
   c) |a1|+|a2|+…+|an|
   d) |a1|*|a2|*…*|an|
   e) a12+a22+…+an2
   f) a1-a2+…+an-1

  {Пошаговый ввод означает, что вводимое значение должно немедленно
использоваться в алгоритме. Применение масссивов исключается}

  program zad1(input,output);
  USES CRT;
  var a,s1,p1,s2,p2,s3,s4:real; n,i:integer;
  begin
      clrscr;
      write('Введите число n: ');
      read(n);
      s1:=0; s2:=0; s3:=0; s4:=0;
      p1:=1; p2:=1;
      for i:=1 to n do
      begin
         write('Введите ',i,'-е число: ');
         read(a);
         s1:=s1+a;
         p1:=p1*a;
         s2:=s2+abs(a);
         p2:=p2*abs(a);
         s3:=s3+sqr(a);
         if i mod 2=0 then
             s4:=s4-a
         else
             s4:=s4+a
      end;
         writeln('сумма s1 =',s1);
         writeln('произведение p1 =',p1);
         writeln('сумма модулей s2 =',s2);
         writeln('произведение модулей p2 =',p2);
         writeln('сумма квадратов s3 =',s3);


                                    32

Страницы