Структуры. Написать функцию, определяющую сумму полей idn для заданного имени (name)

02.05.2012, 19:57. Показов 1040. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Дан файл структуры name:string[30]; idn:integer.(имя, идентификационный номер). может быть несколько элементов с одинаковыми именами. написать функцию, определяющую сумму полей idn для заданного имени (name), и вывести на экран имена элементов, имеющих наибольшую сумму по полю idn в файле. вывести первые 7 имен.

Fortran

Program Lab_6
 character name*30, nmax*30
 integer idn,s,x,max
 open (5,file='data1.txt', status='old')
 max=0
 do 3 j=1,100
 read (5,100,end=2) name, idn
 x=idn
 s=x/1000
 x=x-x/1000*1000
 s=s+x/100
 x=x-x/100*100
 s=s+x/10
 x=x-x/10*10
 s=s+x
 if (j.le.7) print *, name
 if (s.gt.max) then
 max=s
 nmax=name
 endif
 3 continue
 2 print *,'Элемент с наибольшей суммой:'
 print*,nmax
 print*,max
 100 format (a30,i4)
 stop
 end

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.05.2012, 19:57

Ответы с готовыми решениями:

Написать функцию, определяющую сумму полей idn для заданного имени
Дан файл структуры name:string; idn:integer.(имя, идентификационный номер). может быть несколько...

Написать функцию, определяющую сумму полей idn для заданного имени (name)
Дан файл структуры name:string; idn:integer; (имя, идентификационный номер). Может быть несколько...

Написать функцию, определяющую периметр заданного прямоугольника
Имеется прямоугольник с параллельными осям координат сторонами. Написать функцию, определяющую...

Написать функцию, определяющую разрядность заданного целого числа
Написать программу, определяющую разрядность заданного целого числа. В программе при помощи функции...

	02.05.2012, 19:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.05.2012, 19:57

Помогаю со студенческими работами здесь

Реализовать рекурсивную функцию, определяющую сумму цифр заданного натурального числа
Реализовать рекурсивную функцию, определяющую сумму цифр заданного натурального числа

Написать функцию, определяющую сумму массива
Написать функцию, определяющую сумму массива. Функция работает со статическим массивом из 5...

Написать функцию булевского типа, определяющую наличие пересечения заданной прямой и заданного отрезка.
ребят нужна помощь Задачи по программированию. Задача решается на двух языках. Задача 10....

Написать функцию PrnStruct() с одним параметром типа TMyStruct, выводящую на печать значения полей структуры.
Разработать тип данных TMyStruct– структуру, содержащую поля различных типов. В функции main()...

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

Или воспользуйтесь поиском по форуму:

Наверх