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

В файле задана последовательность целых чисел, найти сумму чисел, предшествующих первому отрицательному

05.04.2015, 19:58. Показов 2560. Ответов 2
Метки нет (Все метки)

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

Ввести с клавиатуры список целых чисел. Найти сумму чисел, которые входят в список по одному разу
Прошу помочь с заданием по Турбо Прологу. Мне кажется, что для людей которые понимают и...

В списке целых чисел определить максимально длинную последовательность чисел
Помогите, пожалуйста написать программу на SWI-Prolog реализующую обработку списка. С прологом...

Найти сумму чисел, предшествующих первому отрицательному числу в файле
Задача: 1) Найти сумму чисел, предшествующих первому отрицательному числу в файле. Исходник:...

Файл: Найти сумму чисел, предшествующих первому отрицательному числу в файле
В файл записать целые числа. Найти сумму чисел, предшествующих первому отрицательному числу в...

2
2303 / 1062 / 77
Регистрация: 12.03.2013
Сообщений: 4,987
08.04.2015, 01:15 2
Цитата Сообщение от Ati11 Посмотреть сообщение
найти сумму чисел
Это классический ФВП reduce.
Цитата Сообщение от Ati11 Посмотреть сообщение
предшествующих первому отрицательному
Это классический ФВП take_while, отсутствующий какого-то чёрта в стандартной библиотеке SWI-Prolog.
Запомни этих засранцев на всю жизнь!
Prolog
1
2
3
4
5
6
take_while(Predicate, [X|Xs], [X|Ys]) :-
    apply(Predicate, [X]),
    take_while(Predicate, Xs, Ys),
    !.
take_while(_, _, []) :-
    !.
Prolog
1
p(X) :- X >= 0.
Prolog
1
2
3
4
5
6
%% Example
%% 
%% ?- Xs = [1,2,3,4,5,-1,6,7,8], take_while(p, Xs, Ys), foldl(plus, Ys, 0, Zs).
%% Xs = [1, 2, 3, 4, 5, -1, 6, 7, 8],
%% Ys = [1, 2, 3, 4, 5],
%% Zs = 15.
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
31354 / 17306 / 3627
Регистрация: 12.02.2012
Сообщений: 29,105
Записей в блоге: 5
09.04.2015, 10:15 3
Турбо-пролог:

Prolog
1
2
3
4
5
6
7
8
9
10
11
domains
file = input
 
predicates
start
sum_by_neg(integer)
 
clauses
sum_by_neg(S)  :- not(eof(input)),readint(N), N>=0, Q=S+N, sum_by_neg(Q).
sum_by_neg(S)  :- write(S),nl.
start :- openread(input,".\\my\\A1.TXT"),readdevice(input),sum_by_neg(0).
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2015, 10:15
Помогаю со студенческими работами здесь

Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел
Цикл с предусловием: Найти сумму чисел, предшествующих первому отрицательному в...

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

Вычислить сумму квадратов вещественных чисел, предшествующих первому отрицательному
Вычислить сумму квадратов вещественных чисел, предшествующих первому отрицательному в...

Найти сумму элементов массива, предшествующих первому отрицательному элементу
Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу....


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

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

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