Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Апрель 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 45
от 19.04.2005, 08:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 4

Вопрос № 19683: Уважаемые эксперты. Подскажите, как мне перегнать все действительные числа из файла (которые записаны там через пробел) в массив....

Вопрос № 19683
Уважаемые эксперты. Подскажите, как мне перегнать все действительные числа из файла (которые записаны там через пробел) в массив.
Отправлен: 14.04.2005, 08:20
Вопрос задал: Lonelywolf (статус: Посетитель)
Всего ответов отправлено: 4
Отвечает: sir henry
Здравствуйте, Lonelywolf!
var
f: Text;
m: array[0..End_index] of double;
i: integer;
Begin
Assign(f, 'Имя_Вашего_Файла');
Reset(f);
For i:=0 to End_index do
Read(f, m[i]);
Close(f);
End.
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 14.04.2005, 09:03
Отвечает: Boriss
Здравствуйте, Lonelywolf!
Немного уточню ответ Sir Henry:
нужно завести переменную - сколько чисел прочитали из файла (count, например) и вести "учет" числа прочитанных чисел:
count:=0;
{ПОКА не конец файла и число прочитанных чисел меньше размерности массива ДЕЛАТЬ}
while (NOT EOF(f)) and (count < End_Index) do
begin
inc(count);
Read(f, m[count]);
end;
Close(f);
Ответ отправил: Boriss (статус: Профессор)
Отправлен: 14.04.2005, 09:10
Отвечает: Master135
Здравствуйте, Lonelywolf!
F:file of real;
i:integer;
A:array[1..100] of real;
i:=1;
Assign(f,'Раположение файла на диске');
reset(f);
repeat
read(f,A[i]);
i:=i+1;
until Eof(F);
close(f);
end.
Ответ отправил: Master135 (статус: 3-ий класс)
Отправлен: 14.04.2005, 10:08
Отвечает: Repose
Здравствуйте, Lonelywolf!
Я не буду утомлять вас еще одним кодом, просто соглашусь с Boriss-ом, только добавлю, что числа в файле должны быть записаны через точку(!), а не запятую.
Ответ отправил: Repose (статус: 1-ый класс)
Отправлен: 14.04.2005, 22:04

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное