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

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

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

> Использование файловой переменной, задачки
Александра
сообщение 16.04.2006 12:54
Сообщение #1





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

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


Помогите пожалуйста срочно решить!!

1. Дан файл вещественных чисел. Определить количество нулевых значений в этом файле.

2. Даны два файла целых чисел. Определить являются ли они тождественными.

3. Даны два символьных файла одинакового размера. Произвести обмен информацией между ними.

4. В текстовом файле Т записана непустая последовательность вещественных чисел, разделенных пробелами. описать функцию Max(T) для нахождения наибольшего из этих чисел.

Заранее спасибо.кто поможет!!! yes2.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
Den64
сообщение 17.04.2006 0:07
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Денис

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


Это по поводу первой задачки:
Program _1;
Uses Crt;
Var
i,n:Integer;
r:Real;
name:String;
F:File Of Real;
Begin
ClrScr;
Write('Введите имя файла: ');
ReadLn(name);
Assign(F,name);
Reset(F);
n:=0;
For i:=0 To FileSize(F)-1 Do
Begin
Read(F,r);
If r=0 Then n:=n+1;
End;
WriteLn;
WriteLn(n,' - нулевых значений');
ReadLn;
End.


За спасибо могу решить и другие задачи, но мне непонятно что значит тождественные во второй задачке и другие условия какие-то непонятные все.
{Это кто такие задания тупые и непонятные выдавал ??}
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 17.04.2006 11:58
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Пользуйтесь наконец поиском ! Все задачи решались.

+ FAQ : Файлы


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 17.04.2006 12:42
Сообщение #4


Гость






Den64
А скажи мне, зачем придумали функцию Eof(f) ? При работе с файлом как раз более логично производить действия "Пока не конец файла", чем вычислять его длину...
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 24.06.2025 14:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"