Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
11 rus
0 / 0 / 0
Регистрация: 13.11.2010
Сообщений: 4
1

Создать текстовый файл в любом текстовом редакторе. Выполнить его обработку по указанному заданию.

15.11.2010, 08:54. Просмотров 651. Ответов 1
Метки нет (Все метки)

Разработайте программу, которая осуществляет «выравнивание по ширине» строк. Выравнивание должно выполняться таким образом, чтобы дополнительные пробелы между словами распределялись по подстроке равномерно. Определите максимальную длину строк, например, 80 символов.как это?????(((
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2010, 08:54
Ответы с готовыми решениями:

Создать файл записей и выполнить его обработку
Создать файл и выполнить его обработку Список абитуриентов, которые не прошли по конкурсу на...

Создать файл и выполнить его обработку.
Создать файл и выполнить его обработку. Обработка заключается в выборе из файла и выдаче на экран...

Создать файл и выполнить его обработку
Помогите пожалуйста решить: Создать файл и выполнить его обработку. Обработка заключается в выборе...

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

Создать файл («БД») и выполнить его обработку
Формат данных: Поиск в базе данных вида «Фамилия, имя, группа, дата рождения, средний рейтинг» всех...

1
Puporev
Модератор
56333 / 43115 / 29823
Регистрация: 18.05.2008
Сообщений: 102,462
15.11.2010, 14:39 2
Лучший ответ Сообщение было отмечено 11 rus как решение

Решение

Вот пример для строки в 60 символов, измените ввод.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var s:string;
    i,k,d:byte;
begin
clrscr;
repeat
writeln('Введите непустую строку не более 50 символов, содержащую пробелы:');
readln(s);
if not(length(s) in [3..50])or not(pos(' ',s) in [2..length(s)-1])
then writeln('строка введена неверно, повторите ввод');
until (length(s) in [3..50])and (pos(' ',s) in [2..length(s)-1]);
d:=60-length(s);
k:=0;
repeat
for i:=length(s) downto 1 do
if (s[i]=' ')and(s[i-1]<>' ')then
 begin
  insert(' ',s,i);
  k:=k+1;
  if k=d then break;
 end;
until k=d;
write(s);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2010, 14:39

Выполнить обработку текстового файла по указанному алгоритму
Разработать программу на Турбо Паскале 1. Выполнить обработку текстового файла по указанному...

Как отредактировать файл специального формата в текстовом редакторе или редакторе кодов?
Привет специалистам! Я - программист СУБД и не могу решить указанную задачу. Как...

Создать текстовый файл с произвольной информацией.Организовать обработку данных
В файле имеется информация о владельце автомобиля:ФИО;адрес;марка;номер телефона.Нужно вывести...


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

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

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