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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Практикум по решению задач на ЭВМ
k:=pos('!',s);
if k<>0
then s[k]:='.'
end;
writeln(s);
readln;
end.
Лабораторная работа №9
Вычисления с хранением последовательности значений
1) Даны действительные числа а
1
, а
2
, …, а
15
. Получить
∑
=
=
15
1
15
1
~
i
i
aa
,
14
)
~
(
15
1
2
∑
=
−
=
i
i
aa
s
.
2) Даны действительные числа а
1
, а
2
, …, а
17
. Получить:
а) а
17
, а
1
, а
2
, …, а
16
;
б) а
11
, а
12
, …, а
17
, а
1
, а
2
, …, а
10
;
в) а
11
, а
12
, …, а
17
, а
10
, а
9
, …, а
1
3) Написать программу, которая вводит с клавиатуры массив из 7 чисел и
выводит количество не нулевых элементов.
uses CRT;
const SIZE=7; {размер массива}
var
a:array[1..SIZE] of integer;
n:integer; {колличество не нулевых элементов}
i:integer; {индекс}
begin
clrscr;
writeln('ввод массива целых чисел.');
write('после ввода каждого числа ');
writeln('нажимайте <enter>');
41
                               Практикум по решению задач на ЭВМ


       k:=pos('!',s);
       if k<>0
       then s[k]:='.'
    end;
    writeln(s);
    readln;
  end.




  Лабораторная работа №9
        Вычисления с хранением последовательности значений

1) Даны действительные числа а1, а2, …, а15. Получить                   1 15 ,
                                                                   a~ = ∑ ai
                                                                       15 i =1
     15

     ∑ (a   i   − a~ ) 2
                           .
s=   i =1

            14

2) Даны действительные числа а1, а2, …, а17. Получить:
а) а17, а1, а2, …, а16;
б) а11, а12, …, а17, а1, а2, …, а10;
в) а11, а12, …, а17, а10, а9, …, а1

3) Написать программу, которая вводит с клавиатуры массив из 7 чисел и
выводит количество не нулевых элементов.

  uses CRT;
  const SIZE=7; {размер массива}
  var
    a:array[1..SIZE] of integer;
    n:integer; {колличество не нулевых элементов}
    i:integer; {индекс}
  begin
    clrscr;
    writeln('ввод массива целых чисел.');
    write('после ввода каждого числа ');
    writeln('нажимайте ');


                                              41

Страницы