Консольное приложение.Readln

← →
dedo (2008-04-18 09:55) [0]

Есть текстовый файл, каждая строка
представляет собой записанные через пробел
<фамилия> <имя> <целое> при построчном чтении
командой Readln(s1,s2,n1); Вся строка целиком записываеться в s1
есть ли какая директива компилятору для чтения значения
в строковую переменную до пробела
или все - руками?

← →
DrPass © (2008-04-18 10:03) [1]

Только руками

← →
Anatoly Podgoretsky © (2008-04-18 10:10) [2]

> dedo (18.04.2008 09:55:00) [0]

Раньше было, теперь нет.
А что сложно разделить?

← →
dedo (2008-04-18 10:14) [3]

Anatoly Podgoretsky © (18.04.08 10:10) [2]
Легко , но не изящно)) а где было ?

← →
Anatoly Podgoretsky © (2008-04-18 10:18) [4]

> dedo (18.04.2008 10:14:03) [3]

В Турбо Паскале, они почему то считали, что строка это одно слово, теперь считают правильно, зато автоматически разделить нельзя

← →
dedo (2008-04-18 10:20) [5]

Где глянуть директиву?

← →
Palladin © (2008-04-18 10:31) [6]

какую директиву?

← →
han_malign © (2008-04-18 10:35) [7]

> Раньше было, теперь нет.

- и небыло, парсились только перечислимые и вещественные типы, но они и до сих пор парсятся через Read()...

← →
Плохиш © (2008-04-18 11:05) [8]

> Anatoly Podgoretsky © (18.04.08 10:18) [4]
> > dedo (18.04.2008 10:14:03) [3]
>
> В Турбо Паскале, они почему то считали, что строка это одно
> слово

Странно, в моих версиях так не считали.

← →
Anatoly Podgoretsky © (2008-04-18 11:07) [9]

> dedo (18.04.2008 10:20:05) [5]

Какую директиву?

← →
Anatoly Podgoretsky © (2008-04-18 11:09) [10]

> Плохиш (18.04.2008 11:05:08) [8]

Я конечно мог и забыть, но как закрою глаза, так вижу.

← →
DrPass © (2008-04-18 11:13) [11]

> Anatoly Podgoretsky © (18.04.08 11:09) [10]
> Я конечно мог и забыть, но как закрою глаза, так вижу.

Каждую ночь один и тот же сон

← →
Ega23 © (2008-04-18 11:17) [12]

> Каждую ночь один и тот же сон

пацталом! :))

← →
dedo (2008-04-18 11:23) [13]

Спасибо,
это балбесам я контольную решал - не заморачивайтесь мужики
сделал по жлобски
(* перенаправим стандартные потоки *)
assign(input,"c:\TP7\mih\input.txt");
reset(input);
(* прочитаем кол-во строк *)
readln(n);
for i := 1 to n do begin
x.fam := "";
while not eoln do begin
read(c);
if c=" "
then break
else x.fam := x.fam + c;
end;
x.nam := "";
while not eoln do begin
read(c);
if c=" "
then break
else x.nam := x.nam + c;
end;
with x do begin
readln(k1,k2,k3);
sum := k2+k3;
end;

← →
Palladin © (2008-04-18 11:25) [14]

> это балбесам я контольную решал

ну все... сейчас тебя будут бить ногами... :)

← →
Anatoly Podgoretsky © (2008-04-18 11:35) [15]

> Palladin (18.04.2008 11:25:14) [14]

За такой код, или за то что решал, а может за оба?

> dedo (18.04.08 11:23) [13]
>
> Спасибо,
> это балбесам я контольную решал

Ты сам такой же балбес.
1. ЗАЧЕМ перенаправлять стандартные потоки ввода-вывода????
2. Assign и AssignFile - это разные вещи.
3. Конечно же while not Eof(F) - это для ламеров и эмо-готов, кулхацкеры всегда пользуются циклом for
4. Функции Trim, Pos и StringReplace - тоже не наш выбор.
5. Ну это всё фигня была. Вот самое-то интересное: в твоём x каждый раз будет содержаться только последнее ФИО из файла.

> 2. Assign и AssignFile - это разные вещи.

Вообще-то одно и то же. AssignFile - это просто compiler-magic-псевдоним для стандартной процедуры Assign (чтобы не путать с TPersistent.Assign)

> 4. Функции Trim, Pos и StringReplace - тоже не наш выбор.

Думаю, что в этой папке

> "c:\TP7\mih\input.txt"

...нет модуля sysutils.dcu :)

а можно забить на Assign и использовать сразу Reset(f,"c:\TP7\mih\input.txt")

:)

> Вообще-то одно и то же. AssignFile - это просто compiler-
> magic-псевдоним для стандартной процедуры Assign (чтобы
> не путать с TPersistent.Assign)
>

> ...нет модуля sysutils.dcu :)
>

Даже если и так, то всё равно в x только последнее значение ФИО в файле будет. И никаких других массивов х я не вижу.

← →
dedo (2008-04-18 12:04) [21]

>Ega23 © (18.04.08 11:36) [16]
с балбесом - согласен, постараюсь исправиться
>5. Ну это всё фигня была.
приношу свои извинения Мастеру, за то, что не привет код и условия задачи полностью, чем ввел оного в заблуждение, если хототе покритиковать,
могу выложить, но задачка решена

Консольное приложение.Readln Найти похожие ветки