Форматирование текста

27.02.2013, 21:09. **Показов** 5198. **Ответов** 3

Author24 — интернет-сервис помощи студентам

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

ВАСИЛЕВС · 27.02.2013, 21:45

Pascal

var
 s: string;
 text: string;
 i: integer;
 endPos: integer;
 incr: integer;
begin
 write('Введите строку: ');
 readLn(s);
 write('Введите число выравнивания: ');
 readLn(incr);
 endPos := 1;
 for i := 1 to Length(s) do
   begin
    text := Copy(s, endPos, incr);
    writeLn(text);
    endPos := endPos + incr;
   end;
end.

28.02.2013, 20:33

не,не,не.он должен брать из файла и записывать в новый файл

ВАСИЛЕВС · 28.02.2013, 21:01

Сообщение от yporot

он должен брать из файла и записывать в новый файл

Сообщение от yporot

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

yporot, я не вижу упоминание об этом.

yporot
		1
	Форматирование текста 27.02.2013, 21:09. Показов 5198. Ответов 3 Метки нет (Все метки) дан произвольный текст,нужно его выронить по ширине.по какому-то числу например: вводим число 5 программа должна отформатировать текст по ширине до 5 символов: я люблю фасоль"-должно выглядить при 5 так я люб лю фа соль

yporot
	28.02.2013, 20:33	3
	не,не,не.он должен брать из файла и записывать в новый файл

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	28.02.2013, 21:01	4
	Сообщение от yporot он должен брать из файла и записывать в новый файл Сообщение от yporot дан произвольный текст,нужно его выронить по ширине.по какому-то числу например: вводим число 5 программа должна отформатировать текст по ширине до 5 символов: я люблю фасоль"-должно выглядить при 5 так я люб лю фа соль yporot, я не вижу упоминание об этом. 0