VPF::[c++&Pascal]создать список из элементов файла

sunny19

Дата 3.6.2007, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

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

Xenon

Дата 3.6.2007, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1529
Регистрация: 12.4.2006

Репутация: 19
Всего: 50

Код


#include <iostream>
#include <algorithm>
#include <string>
#include <fstream>
#include <list>

int main(int argc, char* argv[]) 
{ 
    std::string path;
    std::cout << "Enter path to file: ";
    std::getline(std::cin, path);
    try
    {
        std::ifstream file( path.c_str() ); //Откроем файл
        if ( !file.is_open() ) throw std::exception("File does not exist"); //Если файла не существует - выкенем исключение, мол, нет файла
        std::list<int> nums; //Создадим список чисел
        nums.assign( std::istream_iterator<int> (file), std::istream_iterator<int>() ); //Копируем в список числа из файла
        std::copy( nums.begin(), nums.end(), std::ostream_iterator<int> (std::cout, " ") ); //Выводим все числа на печать
    }
    catch (std::exception& exp)
    {
        std::cout << exp.what();
    }
    std::cin.sync();
    std::cin.get();
    return 0;
}

--------------------

sunny19

Дата 4.6.2007, 01:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.6.2007

Репутация: нет
Всего: нет

ой! спасибо огромное, что отозвались smile

получилось-то очень даже красиво, но дело в том, что программу мне надо сдать в виде, который я якобы "учила"
а это что-то типо такого(это то, что я пробовала написать, кгекгем, знаю, что бред, но общий вид примерно такой):

Код


program five;
type
sp=^elem;
elem=record
info:real;
next:sp;
end;
procedure plus(n:real;last,p:sp);
begin
new(p);
p^.info:=n;
p^.next:=nil;
last^.next:=p;
last:=p;
write(p^.info,' ');
end;
 var
beg,last,p:sp;
f:file of real;
n:real;
begin
assign(f,'D:/5.txt');
reset(f);
read(f,n);
beg:=nil;
last:=nil;
new(p);
p^.info:=n;
p^.next:=nil;
beg:=p;
last:=p;
while not(eof(f)) do
begin
read(f,n);
plus(n,last,p);
end;
end.

Добавлено @ 01:38
епперный театр! точно блондинка!!!
smile

не ругайте меня:это все сессия

язык не тот указала!
я дико-дико извиняюсь((

Это сообщение отредактировал(а) Alexeis - 6.6.2007, 11:42

Xenon

Дата 4.6.2007, 03:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1529
Регистрация: 12.4.2006

Репутация: 19
Всего: 50

sunny19, ну вот smile

язык другой. Тогда жди других помощников.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »