4 года назад

составить программу для решения задачи:в массиве b1 b2 b20 найдите количество единиц

Знания

Информатика

1 ответ:

Владимир Бобров4 года назад

0 0

c++

#include <iostream>

void search (int mass[])

{

int counter = 0;

for (int i=0; i<mass.length(); i++)

if (mass i == 1)

counter++;

std::cout<<counter;

}

void main()

{

int b[20];

for (int i = 0; i<b.length(); i++)

b[i] = rand % 5;

search(b);

}

Читайте также

Дан числовой ряд и некоторое число eps. Найти сумму тех членов ряда, модуль кото-рых больше или равен заданному eps. Общий член

Dennkanseers

Сначала немного математики.
$\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N$
О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
i:integer;
p:real;
begin
p:=1;
for i:=n+1 to 2*n do p:=p*i;
ai:=1/p
end;

var
i:integer;
eps,s,an:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1;
repeat
an:=ai(i);
if an>=eps then begin s:=s+an; Inc(i) end
until an<eps;
Writeln('s=',s);
ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

0 0

4 года назад

Какие есть устройства компьютера: ? Например устройства ввода и вывода информации и ещё какие???

maksim1223

Устройства связи с другими вычислительными системами. Например: модем или сетевой адаптер

0 0

4 года назад

Кто знает сор по информатике за 6класс 2четверть скиньте

BitThe

Вот, пользуйся. Только не спались

0 0

4 года назад

В классе 1111(2) девочек и 1100 (2) мальчиков. Сколько учеников в классе?

gabba60

1111(2) = 1*2^0+1*2^1+1*2^2+1*2^3= 1+2+4+8=15 мальчиков

0 0

4 года назад

Задан двумерный массив A [5, 10]. Получить новую матрицу путем деления всех элементов исходной матрицы на её наибольший по модул

Drug-zzz [84]

Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.

0 0

4 года назад