Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 01.03.2012
Сообщений: 8
1

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

01.03.2012, 21:38. Просмотров 778. Ответов 3
Метки нет (Все метки)


Помогите решить задачу в паскале
1.Создание и использование процедур
Вычислить средние квадратические значения и количество ненулевых элементов заданных массивов, и вывести их отдельно на экран.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2012, 21:38
Ответы с готовыми решениями:

Вычислить и вывести средние квадратические значения положительных элементов заданных массивов
Составить алгоритм и программу по заданному условию. Для выполнения повторяющихся неоднократно,...

Сформировать массивы А[15] и B[10]. Вывести их на экран. Подсчитать количество ненулевых элементов и максимальные значения в обоих массивах
Сформировать массивы А и B. Вывести их на экран. Подсчитать количество ненулевых элементов и...

Вычислить количество положительных элементов заданных массивов.
Вычислить количество положительных элементов заданных массивов V1(6), V2(12), V3(13) и вывести их...

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

3
iOS/Android Developer
Эксперт С++
5132 / 1569 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
01.03.2012, 21:50 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
32
33
34
35
36
37
38
39
40
41
42
const
  n = 15;
type
  TArr = array[1..n] of integer;
var
  arr: TArr;
  i: byte;
 
procedure SredKvad(arr: TArr);
var
  Summa: integer;
  i: byte;
begin
  Summa:=0;
  for i:=1 to n do
    inc(Summa, arr[i]);
  writeln('Среднее квадратическое: ', sqrt(Summa / n):0:2);
end;
 
procedure NonZeroCount(arr: TArr);
var
  Count: integer;
  i: byte;
begin
  Count:=0;
  for i:=1 to n do
    if arr[i] <> 0 then inc(Count);
  writeln('Кол-во ненулевых элементов: ', Count);
end;
 
begin
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    arr[i]:=random(20);
    write(arr[i], ' ');
  end;
  writeln;
  SredKvad(arr);
  NonZeroCount(arr);
end.
0
0 / 0 / 0
Регистрация: 01.03.2012
Сообщений: 8
01.03.2012, 21:58  [ТС] 3
Цитата Сообщение от Саша1194 Посмотреть сообщение
Помогите решить задачу в паскале
1.Создание и использование процедур
Вычислить средние квадратические значения и количество ненулевых элементов заданных массивов, и вывести их отдельно на экран.
массивы-J1(13), J2(15), J3(17)
0
iOS/Android Developer
Эксперт С++
5132 / 1569 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
01.03.2012, 22:02 4
ну вот я сделал для одного...объявляете еще 2, заполняете их в программе и для каждого используете выше написанные процедуры..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2012, 22:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти средние значения положительных и отрицательных элементов каждого столбца матрицы отдельно
Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести...

В массиве из случайных чисел подсчитать отдельно средние значения элементов, меньших 50, и больших или равных 50
Заполните массив случайными числами в диапазоне от 0 до 100 и подсчитайте отдельно среднее значение...

Вычислить и вывести на экран значения функции F в пяти заданных пользователем точках
Составить программу на C++ которая вычисляет и выводит на экран значение функции F в пяти, заданных...

Вывести значения массивов и количество элементов
Ввести массивы a(8) и b(8). Получить массив С(8) , элементы которого формируются по правилу Сi =...

Вычислить средние арифметические отрицательных элементов массивов X(n1), Y(n2) и Z(n3)
Вычислить средние арифметические отрицательных элементов массивов X(n1), Y(n2) и Z(n3) (n1 –...

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


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

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

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