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

Работа с текстовым файлом

11.03.2017, 22:43. Просмотров 926. Ответов 2
Метки нет (Все метки)

Нужна помощь с заданиями:
1) Найти количество строк начинающихся с гласной
2) Скопировать файл без пробелов
3) Подсчитать количество строк в файле
4) Подсчитать количество строк состоящих из одного и того же символа

Буду безмерно благодарен!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2017, 22:43
Ответы с готовыми решениями:

Работа с текстовым файлом
Уважаемые программисты! Условие задачи следующее: Вывести ФИО и оценки по физике, средний балл...

Ошибка с текстовым файлом
const m=5; frm=11; Type Tresults=record Name:string; Grades:arrayof 2..5; end;...

Написать программу с текстовым файлом
Дано целое число N и текстовый файл. Создать строковый файл, содержащий все слова длины N из...

Работа с текстовым файлом
Помогите пожалуйста) Задание: Объявите одномерный целочисленный массив размером из 10...

2
Эксперт Pascal/Delphi
2349 / 1270 / 1481
Регистрация: 29.08.2014
Сообщений: 4,586
12.03.2017, 04:42 2
Лучший ответ Сообщение было отмечено Feldonnnn как решение

Решение

это одна программа или 4?

Добавлено через 27 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const gl=['A','E','I','O','Y','А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
begin
  var s:=readlnstring('имя файла:');
  writeln('1. количество строк начинающихся с гласной:',
  System.IO.File.ReadAllLines(s,Encoding.GetEncoding(1251)).where(t->(length(t)>0) and (uppercase(t[1]) in gl)).count);
  writeln('2. Скопировать файл без пробелов ');
  System.IO.File.WriteAllLines(s+'_copy',
  System.IO.File.ReadAllLines(s,Encoding.GetEncoding(1251)).Select(t->t.replace(' ','')),Encoding.GetEncoding(1251));
  writelnformat('файл {0} создан',s+'_copy');
  writeln('3. количество строк в файле:',
  System.IO.File.ReadAllLines(s,Encoding.GetEncoding(1251)).count);
  writeln('4. количество строк состоящих из одного и того же символа:',
  System.IO.File.ReadAllLines(s,Encoding.GetEncoding(1251)).where(t->(length(t)>0) and (length(t.replace('['+t[1]+']',''))=0)).count);
 
end.
0
0 / 0 / 0
Регистрация: 11.03.2017
Сообщений: 12
12.03.2017, 19:03  [ТС] 3
одна программа, если конечно возможно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2017, 19:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Работа с текстовым файлом
Помогите, пожалуйста, сделать программу: Даны файлы f и g. Записать в файл h все совпадающие...

Работа с текстовым файлом
Вечер добрый. Можете подсказать как делается данная задача? В текстовый файл записать 20 чисел....

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

Turbo Pascal Работа с текстовым файлом
Дано целое число К и текстовый файл. Удалить из файла абзац с номером К (абзацы отделяются друг от...

Работа с текстовым файлом, помогите исправить ошибки в программе
Анкета содержит сведения в виде: фамилия, имя, отчество, величина зарплаты, стаж работы, количество...

Работа с текстовым файлом; запись в файл и чтение из него чисел
Задание такое: Ввести координаты треугольника с клавиатуры, записать их в файл, после чего...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.