Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
13 / 0 / 0
Регистрация: 11.12.2019
Сообщений: 15
1

Использование стандартных процедур и функций для работы с файлами

12.12.2019, 19:57. Показов 1123. Ответов 5
Метки нет (Все метки)

Задание №1
Исходный файл переписать в новый в обратной последовательности. (Последняя строка должна быть записана первой и т.д.).

Задание №2
Все строки файла переписать в новый файл, оставив при этом в строчках по 5 символов.

Задание №3
Каждая строка файла это фамилия и дата рождения сотрудника. (например Иванов 12.04.95). вывести фамилии тех, у кого день рождения летом.

Задание №4
Переписать в новый файл из исходного файла последнее слово каждой строки

(наглость льётся через край, извините)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2019, 19:57
Ответы с готовыми решениями:

Использование стандартных процедур и функций для работы со строками
Вычеркните из заданного слова все буквы, совпадающие с его поледней буквой помогите плизмииииииии...

Использование стандартных процедур ифункций для работы со строками
Заданы фамилия, имя и отчество учащегося, разделенные пробелом. Напечатать его фамилию и инициалы...

Использование стандартных процедур и функций
Составьте программу, которая по числу <1000, написанному арабскими цыфрами, формирует его...

Использование стандартных функций для работы с массивами
Дана действительная квадратная матрица размера NxM Преобразовать матрицу следующим образом:...

5
1828 / 1024 / 418
Регистрация: 07.04.2017
Сообщений: 3,917
12.12.2019, 20:55 2
Лучший ответ Сообщение было отмечено Mayutka как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
begin
  
  ReadLines('in.txt')
  .Reverse
  .WriteLines('out.txt');
  
end.
2.
Pascal
1
2
3
4
5
6
7
begin
  
  ReadLines('in.txt')
  .Select(s-> s.Length>5 ? s.Remove(5) : s )
  .WriteLines('out.txt');
  
end.
3.
Pascal
1
2
3
4
5
6
7
8
9
begin
  
  ReadLines('in.txt')
  .Select(s-> s.ToWords )
  .Where(t->t[1].ToIntegers('.')[1].InRange(6,8))
  .Select(t->t[0])
  .PrintLines;
  
end.
4.
Pascal
1
2
3
4
5
6
7
begin
  
  ReadLines('in.txt')
  .Select(s-> s.ToWords.Last )
  .WriteLines('out.txt');
  
end.
А вообще - 1 задание = 1 тема.
1
13 / 0 / 0
Регистрация: 11.12.2019
Сообщений: 15
13.12.2019, 04:57  [ТС] 3
Спасибо огромное, за ваши старания, но это немного не то, что мне нужно было
0
79 / 32 / 10
Регистрация: 14.06.2019
Сообщений: 516
13.12.2019, 09:25 4
А что было нужно?
0
13 / 0 / 0
Регистрация: 11.12.2019
Сообщений: 15
16.12.2019, 18:45  [ТС] 5
Оно должно иметь примерно такой вид, с такими функциями, как ASSIGN, RESET и прочего...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program ftxtx; {Ввод с текстового файла и вывод в текстовый файл}
Uses CRT;
Const n=10;
Type
t=text;
mas=array[1..n] of real;
Var
f1,f2       :t;
x,y          :mas;
i             :byte;
Begin
ClrScr;
Assign(f1,'d1.txt');  Reset(f1); Assign(f2,'d2.txt'); Rewrite(f2);
For i:=1 to n do
begin
Read(f1,x[i]);
y[i]:=sqrt(abs(x[i]));
Writeln(f2,y[i]:10);
Writeln(y[i]:10);
end;
Readln;
Close(f2);   Close(f1)
End.
0
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
16.12.2019, 19:58 6
16.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
https://www.cyberforum.ru/announcement.php?a=3

 Комментарий модератора 
Тема закрыта.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2019, 19:58

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...

Подскажите синтаксис функций и процедур для работы с массивами
Не получается написать функцию/процедуры, которая принимает статический массив (и в случае с...

Использование процедур и функций в программе
1)сформировать второй массив, разместив в нем элементы первого массива, значения которых...

Использование процедур и функций в Pascal
Может кто чего знает по этим двум задачкам подскажите пожалуйста... 1)Ввести два числа....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru