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

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

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

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


Новичок
*

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

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


Люди пожалуйста помогите сделать программы по файлам у меня что-то плохо получается!!!
Очень сильно нужно PLZZZ!!!

1. Создать файл вещественных чисел. Переписать в другой файл его компоненты, сначала положительные, затем отрицательные.
2. Дан текстовый файл F. Записать в файл F1, компоненты файла F, заменив все прописные буквы на строчные.
3. Дан файл F, компоненты которого являются целыми числами. Найти сумму всех четных чисел среди компонент.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

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

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


FAQ Файлы. здесь все необходимое.


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


Бывалая
***

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

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


Задача №3:

uses crt;
const
N=3;
var
f : file of integer ;
summ, i, B : integer;

begin
clrscr;
assign(f,'c:\test');
rewrite(f);
writeln ('Введите числа: ');

for i:=1 to N do begin

readln(b);
write (F, B);
end; close(f);

reset(f);
summ:=0;
while not eof(f) do begin
read(f,B);

if B mod 2=0 then summ:=summ+b; end;

writeln('Сумма чётных чисел = ',summ);
readln;
close(f);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалая
***

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

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


Задача №2:

uses crt;
const
Q = ['A'..'Z', 'А'..'Я'];
var
f1, f : text;
B : char;
x, i : integer;

begin
clrscr;
assign(f,'c:\test.txt');
reset(f);

assign (f1, 'c:\test1.txt');
rewrite(f1);

while not eof (f) do begin
read (F, B);

if b in q then begin x:=(ord(b)+32);
b:=chr(x); x := x+1; end;

write(f1,b);
end;
writeln ('Все прописные буквы были заменены на строчные');
write ('Клавиша для выхода ...');
readln;
close(f);
close(f1);
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалая
***

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

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


Задача №1:

const
n=5;

var
f, f1: file of real;
B : real;
s,s1 : string;
i : byte;

begin

writeln ('Имя вход. файла: '); readln (s);
assign (f,s); rewrite(f);
writeln ('Имя результирующего файла: '); readln (s1);
assign (f1,s1); rewrite(f1);

writeln ('Введите числа: ');
for i:=1 to N do begin
readln(B);
write (f, B);
end;

reset(f);
while not eof(f) do
begin
read(f,B);
if B>=0 then write(f1,B);
end;

reset(f);

while not eof(f) do
begin
read(f,B);
if B<0 then write(f1,B);
end;
writeln ('Все компоненты переписаны в ',s1, ' файл');
writeln ('Для выхода - любая клавиша');
readln;
close(f);
close(f1);
end.


GoodWind blum.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Автооответчик
*****

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

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


чё " blum.gif " ?
я ж тебе решение разжевал lol.gif blum.gif


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


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

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

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


во второй задаче впринципе можно сократить :

 while not eof (f) do begin
read (F, B);

if b in q then begin x:=(ord(b)+32);
b:=chr(x); x := x+1; end;

write(f1,b);
end;


на

 while not eof (f) do begin
read (F, B);
if b in q then write(f1, chr(ord(b)+32));
end;


и вообще что такое x := x + 1 я не понял unsure.gif


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


Новичок
*

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

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


Cпасибо за редактирование второй программы!
Думаю она дествительно так станет намного проще!

Может мне еще поможете с такой задачкой разобраться. Буду очень благодарен!!!
Задача:
Даны файлы f1, f2, f3, f4, f5 компоненты которых являются действительными числами. Организовать обмен компонентами между файлами в соответствии со следующей схемой. f1=> f3; f2=>f2; f3=>f5; f4=>f2; f5=>f1 (т. е . компоненты файла f1 переписываются в файл в файл f3)/ Разрешается использовать только одby вспомогательный файл h.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

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

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


Как можно вывести на экран данные которые содержит текстовый файл???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


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

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

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


http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=55413


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


Бывалая
***

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

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



...
reset(f); {открываешь файл}
while not eof(f) do begin {пока не конец файла ..}
read(f,b); {считываешь каждый элемент}
writeln (b); {выводишь на экран}
end; {ВСЁ!}
...

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


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

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

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


файл текстовый - содержимое строки, чатать надо строками - будет быстрее чем посимвольно.


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


Новичок
*

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

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


Что получится если из файла F,содержащего данные переписать данные в другой файл G, содержащий данные. И потом из G в F???
Получится два файла содержащие одинаковые данные??? Или что-то другое???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Гость






Смотря какие это файлы, как ты их открываешь, и как записываешь... Может получиться дубликат одного и того же файла, информация из одного файла может быть добавлена в другой... Вариантов много.
 К началу страницы 
+ Ответить 

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

 





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