0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 2
1

Сложные типы данных. Многомерные массивы

19.12.2012, 13:42. Показов 1654. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребята выручайте, сижу на лабе.
Задание: Определить количество <<особых>> элементов массива D, если этот элемент <<особым>> , если он больше суммы остальных элементов своей строки.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2012, 13:42
Ответы с готовыми решениями:

Сложные типы данных. Многомерные массивы
Определить, является ли заданная целочисленная квадратная матрица 5-го порядка симметричной...

Сложные типы данных. Многомерные массивы (матрицы)
а теперь многомерные))) Помогите, а?:friends::umnik::wall: Дано (построчно) вещественная матрица...

Сложные типы данных. Одномерные/многомерные массивы (вектора)
задали два задания по информатике на Fortran 77, над которыми я бьюсь уже несколько дней, и не могу...

Сложные типы данных. Одномерные массивы (вектора)
Помогите пожалуйста :( Вводится одномерный вещественный массив фиксированной длины, состоящей из...

4
4248 / 2944 / 688
Регистрация: 08.06.2007
Сообщений: 9,846
Записей в блоге: 4
19.12.2012, 20:21 2
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    program Console245
    implicit none
    parameter m=3, n=6
    integer a(m,n)
    DATA a/0,0,1,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0/
    integer i,j,k,s
    s=0
    do i=1,m
        k=0
        do j=1,n
            k=k+a(i,j)
        end do
        do j=1,n
            IF(a(i,j).GT.k-a(i,j)) s=s+1
        end do
    end do
    print *,s
    end program Console245
1
158 / 157 / 81
Регистрация: 31.12.2012
Сообщений: 254
02.01.2013, 22:43 3
Так вот:

Fortran
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
43
        program examp
        
        integer d(5,5)
  1     format ("")
  
        print *,'Vvedite elementy'
        print 1
  
        do i=1,5
           read *,(d(i,j), j=1,5)
        enddo
        
        print 1
        
        do i=1,5
           print *,(d(i,j), j=1,5)
        enddo
        
        print 1
        
        do i=1,5
           sum=0
           do j=1,5
              sum=sum+d(i,j)
           enddo
           
           do k=1,5
              z=sum-d(i,k)
              if(d(i,k).GT.z) then
                 itog=d(i,k)
              endif
           enddo
 
           if (itog.NE.0) then
              print *,'Osoby` element v stroke: ', i
              print *,'Znachenie = ',itog
              print 1
           endif
           itog=0
           
        enddo
  
        end
1
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 2
06.04.2013, 11:24  [ТС] 4
если несложно то обыясните как это сделано
0
4248 / 2944 / 688
Регистрация: 08.06.2007
Сообщений: 9,846
Записей в блоге: 4
06.04.2013, 12:25 5
s - счетчик особых элементов. Внешний цикл do по строкам, i - номер строки. Первый внутренний цикл do подсчитывает сумму элементов строки. k - это сумма ВСЕХ элементов строки. Второй внутренний цикл do второй раз проходит по строке и подсчитывает число элементов, которые больше суммы остальных элементов строки (то есть сумма всех отнять данный), наращивая счетчик s. В конце печатаем счетчик s.
1
06.04.2013, 12:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2013, 12:25
Помогаю со студенческими работами здесь

Тема: Сложные типы данных Одномерные массивы (вектора)
Вводится одномерный вещественный массив фиксированной длины, состоящий из «N» элементов (конкретное...

Сложные типы данных. Массивы

Сложные типы данных. Записи

Сложные типы данных: записи
Описать тип записи, который содержит информацию: об ассортименте обуви в магазине фирмы. Структура...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru