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

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

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

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





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

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


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

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

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

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

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

Заранее спасибо.кто поможет!!! yes2.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


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

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

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


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

+ FAQ : Файлы


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


Гость






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

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

 




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