С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Кондуктор Вася
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 8
1

Вычислить произведение отличных от нуля элементов и подсчитать количество элементов равных 0.

23.05.2011, 08:38. Просмотров 804. Ответов 4
Метки нет (Все метки)

Вычислить произведение отличных от нуля элементов и подсчитать количество элементов равных нулю
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2011, 08:38
Ответы с готовыми решениями:

Вычислить и напечатать произведение отличных от нуля элементов каждой нечетной строки заданой матрицы AO.
Вычислить и напечатать произведение отличных от нуля элементов каждой нечетной...

Найти количество элементов матрицы, отличных от нуля
Массив символьного типа !!! вот, то что я сделал, но я сделал для целого...

Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементов
1)из заданной строки напечатать только заглавные английские буквы и их коды ...

Используя процедуру-функцию, для каждой матрицы найти количество элементов, отличных от нуля
Даны матрицы А(5, 7), В(3, 2), С(7, 11). Используя процедуру-функцию, для...

Вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0
1) В двумерном массиве А(4,4) вычислить среднее арифметическое элементов...

4
ruslan_abel
33 / 33 / 14
Регистрация: 06.05.2011
Сообщений: 91
23.05.2011, 08:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const
  N = 5;
 
var
  a: array [1..N] of integer;
  p, i, count: integer;
 
begin
  randomize;
  for i := 1 to N do
    begin
      a[i] := random(10) - 5;
      write(a[i], ' ');
    end;
 
  writeln;
 
  p := 1;
  count := 0;
 
  for i := 1 to N do
    if a[i] = 0 then
      inc(count)
    else
      p := p * a[i];
 
  writeln('Count = ', count);
  writeln('P = ', p);
 
  readln;
end.
1
Кондуктор Вася
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 8
29.05.2011, 16:52  [ТС] 3
Помогите пожалуйста сделать задания по паскалю !!!)))
1. задание
Подсчитать количество положительных элементов.

2. задание
Вычислить произведение отличных от нуля элементов и подсчитать количество элементов равных 0.

3. задание
Вычислить:
y=cos(1+cos(2+...+cos(39+cos40)...)

4. задание
Вычислить таблицу значений:
y=(a*http://www.cyberforum.ru/cgi-bin/latex.cgi?{tg}^{t}*x)/(b+0.7x)
где х изменяется от Xn до Xk c шагом dx=(Xk-Xn)/n
An - число разбиений интервалов [Xn;Xk]

5. задание
Для заданной матрицы ТТ, заменить нулями все элементы расположенные на главной диагонали. Преобразованную матрицу напечатать.

...заранее всем спасибо
0
KaiTheCat
К.О.
531 / 496 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.05.2011, 17:09 4
1. В массиве?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
VAR
   a: array[1..100] of integer;
   i,n,k: byte;
BEGIN
   Randomize;
   Write('количество элементов: ');
   ReadLn(n);
   For i:=1 to n do
      Begin
          a[i]:=Random(101)-50;
          Write(a[i],' ');
          If a[i]>0 then inc(k);
      End;
   WriteLn;
   WriteLn('положительных: ',k);
   ReadLn
END.
2. В массиве?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
VAR
   a: array[1..100] of integer;
   i,n,k: byte;
   pr: longint;
BEGIN
   Randomize;
   Write('количество элементов: ');
   ReadLn(n);
   For i:=1 to n do
      Begin
          a[i]:=Random(101)-50;
          Write(a[i],' ');
      End;
   WriteLn;
   pr:=1;
   For i:=1 to n do
      If a[i]<>0 then pr:=pr*a[i] else inc(k);
   Writeln('произведение: ',pr,' нулевых: ',k);
   ReadLn
END.
5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
VAR
   a: array[1..100,1..100] of integer;
   i,j,t: byte;
BEGIN
   Randomize;
   Write('T: ');
   ReadLn(t);
   For i:=1 to t do
      Begin
         For j:=1 to t do
            Begin
               a[i,j]:=random(101)-50;
               Write(a[i,j]:4);
            End;
         WriteLn;
      End;
   WriteLn;
   For i:=1 to t do
      a[i,i]:=0;
   For i:=1 to t do
      Begin
         For j:=1 to t do write(a[i,j]:4);
         WriteLn;
      End;
   ReadLn
END.
1
Кондуктор Вася
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 8
29.05.2011, 17:16  [ТС] 5
Ну да, наверное в массиве ...
0
29.05.2011, 17:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 17:16

Массивы. Определить сумму элементов меньших нуля и произведение элементов больших нуля
сформировать с помощью генератоа случайных чисел массивы D(4,9), A(4,5),...

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

В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля
В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru