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

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

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

Разработайте программу, которая осуществляет «выравнивание по ширине» строк. Выравнивание должно выполняться таким образом, чтобы дополнительные пробелы между словами распределялись по подстроке равномерно. Определите максимальную длину строк, например, 80 символов.как это?????(((
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2010, 08:54
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2010, 14:39

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

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

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

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


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

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

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