Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
dedo © (2008-04-18 09:55:00)
Есть текстовый файл, каждая строка
представляет собой записанные через пробел
<фамилия> <имя> <целое> при построчном чтении
командой Readln(s1,s2,n1); Вся строка целиком записываеться в s1
есть ли какая директива компилятору для чтения значения
в строковую переменную до пробела
или все - руками?

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

Ega23 (2008-04-18 12:00:00) [2]

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

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

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

Palladin (2008-04-18 11:58:00) [3]
а можно забить на Assign и использовать сразу Reset(f,'c:\TP7\mih\input.txt')

:)

DrPass (2008-04-18 11:54:00) [4]

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

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

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

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

DrPass (2008-04-18 11:52:00) [5]

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

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

Ega23 (2008-04-18 11:36:00) [6]

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

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

Anatoly Podgoretsky (2008-04-18 11:35:00) [7]
> Palladin (18.04.2008 11:25:14) [14]

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

Palladin (2008-04-18 11:25:00) [8]

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

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

dedo (2008-04-18 11:23:00) [9]
Спасибо,
это балбесам я контольную решал - не заморачивайтесь мужики
сделал по жлобски
(* перенаправим стандартные потоки *)
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;

Ega23 (2008-04-18 11:17:00) [10]

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

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

DrPass (2008-04-18 11:13:00) [11]

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

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

Anatoly Podgoretsky (2008-04-18 11:09:00) [12]
> Плохиш (18.04.2008 11:05:08) [8]

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

Anatoly Podgoretsky (2008-04-18 11:07:00) [13]
> dedo (18.04.2008 10:20:05) [5]

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

Плохиш (2008-04-18 11:05:00) [14]

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

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

han_malign (2008-04-18 10:35:00) [15]

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

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

Palladin (2008-04-18 10:31:00) [16]
какую директиву?

dedo (2008-04-18 10:20:00) [17]
Где глянуть директиву?

Anatoly Podgoretsky (2008-04-18 10:18:00) [18]
> dedo (18.04.2008 10:14:03) [3]

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

dedo (2008-04-18 10:14:00) [19]
Anatoly Podgoretsky © (18.04.08 10:10) [2]
Легко , но не изящно)) а где было ?

Anatoly Podgoretsky (2008-04-18 10:10:00) [20]
> dedo (18.04.2008 09:55:00) [0]

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »