IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите с задачкой на файлы!, условие что-то не пойму...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Женский

Репутация: -  0  +


"В заданном тексте определить целое число, состоящее из наибольшего количества цифр."

то есть получается у меня текстовый файл будет состоять из чисел типа real ? и среди них надо будет искать например чсла 500.0 , 456.0 ... а как тогда для них считать количество цифр? Я сначала сделала вообще без количества цифр, типа у целого числа неважно какое наибольшее количество, надо лишь найти максимальное.. вот:
 Program Z1;
uses crt;
var
f:text;
name:string[20];
a,max:real;
i,k:integer;
begin
clrscr;
writeln ('Enter file name ');
readln (name);
max:=0;
assign(f,name);
{$I-}reset(f) {$I+};
If IOResult<>0 then begin
writeln ('Error');halt;end;
while not eof(f) do begin
read (f,a);
if frac(a)=0 then begin k:=k+1;
for i:=1 to k do
if a>max then max:=a;
end;
writeln(max:4:2);
close(f);
readln;
end.


но по-моему так неграмотно..

или все-таки файл будет из чисел типа integer ?

подскажите, пожалуйста!

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


123.0 - это не целое число с точки зрения ЭВМ.
Странно задача сформулирована.... В файле могут быть только числа? Или, например, такое тоже допустимо:
Цитата
fjklf 1246dkjd; 123
?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Ты сама себе противоречишь:
Цитата
"В заданном тексте определить целое число, состоящее из наибольшего количества цифр."
, при чем здесь Real?

Я бы разбивал текст на слова (можно прямо "на лету", хранить все слова совершенно необязательно), и КАЖДОЕ слово проверял, не является ли оно целым (через Val), и если является - то тогда уже проверять количество цифр, т запоминать то число, в котором цифр больше...

Прежде чем начать реализовывать - маленькое уточнение: что будет, если есть больше одного числа с одинаковым (и максимальным) количеством цифр? Какое из них будет ответом?

P.S. Кстати, "в заданном тексте" наводит на мысль, что файл все-же текстовый...

Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 2
Пол: Женский

Репутация: -  0  +


ладно, я поняла вою ошибку, спасибо всем) переделаю заново все..

Сообщение отредактировано: Svechka -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.10.2020 2:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name