![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 23.04.2008
Сообщений: 2
|
![]()
помогите пожалуйста решить задачу в паскале
Дан текстовый файл натуральных чисел,за которыми следует целое отрицательное число. используя рекурсивную подпрограмму,вычислите сумму натуральных чисел файла заранее спасибо=)) |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
![]()
Вы хотя-бы начните. Сформируйте текстовый файл с данными, сделайте процедуру чтения, суммирования. Покажите, что не получается.
[off] Вот интересно, чему может научить такое задание ? Как правильно применять рекурсию или где не применять. [/off] |
![]() |
![]() |
![]() |
#3 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
![]()
Ну что-то такое
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
![]() |
![]() |
![]() |
#4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#5 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
![]()
Я вообще-то и так полный код написал, можешь ещё до кучи добавить в начало
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 23.04.2008
Сообщений: 2
|
![]()
Program P100;
uses crt; var i:integer; f:text; c,h:longint; function sum:longint; begin while not eof do begin readln(f,c); if c>=0 then sum:=sum+c else if c<0 then sum:=0; end; end; begin assign(f,'file.txt'); reset(f); h:=sum; close(f); writeln('summa=',h); end. Написала сама(но не уверена) Прошу специалистов прокомментировать и подсказать,если что-то не так :search а вы не подскажете,как рекурсивную программу составить,а то мой пример рекурсией не является Последний раз редактировалось Stilet; 06.05.2008 в 17:05. |
![]() |
![]() |
![]() |
#7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
А ты поиском поработай - примеров на рекурсию тут куча.
I'm learning to live...
|
![]() |
![]() |
![]() |
#8 | |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
![]() Цитата:
Код:
|
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на текстовый тип данных. | Fedos | Помощь студентам | 15 | 30.01.2008 17:03 |
Текстовый файл в текстовый массив | Kimimaru | Общие вопросы C/C++ | 1 | 02.12.2007 11:55 |
Tar фаил | Аббат | Свободное общение | 1 | 24.04.2007 17:08 |