В каждой строке удалить лишние пробелы и поставить ее по центру.

@Валерия В. · Регистрация: 20.09.2009

Дано N строк текста: в каждой строке удалить лишние пробелы и поставить ее(строку) по центру.
Решить с помощью процедуры. Прошу помочь

@Puporev · 16.12.2009, 17:43

Сообщение от Валерия В.

и поставить ее(строку) по центру.

По центру чего? И какая длина строк.

@Валерия В. · 16.12.2009, 18:03 **[ТС]**

чтобы программа, когда выводила строку, ставила ее по центру экрана.

@Puporev · 16.12.2009, 18:15

А если строка больше 80 символов?

@WolfCF · 16.12.2009, 18:31

Не по теме:

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

А если строка больше 80 символов?

можно тогда наверно проверку сделать. Например: меньше 20, то по центру экрана, иначе с начала экрана вывести.

@Валерия В. · 16.12.2009, 19:21 **[ТС]**

предпологается, что строка меньше 80 символов и мы выравниваем ее по центру

@Puporev · 16.12.2009, 20:22

Pascal

uses crt;
var s:array[1..100] of string[80];{ограничим длину строки}
    n,i,k:byte;
begin
clrscr;
write('Количество строк n=');
readln(n);
writeln('Введите строки длиной до 80 символов:');
for i:=1 to n do
readln(s[i]);
clrscr;
k:=0;
for i:=1 to n do
 begin
  while pos('  ',s[i])> 0 do{пока есть 2 пробела подряд}
  delete(s[i],pos('  ',s[i]),1); {1 удаляем}
  k:=length(s[i])+(80-length(s[i]))div 2;{ставим строку по середине}
  writeln(s[i]:k);
 end;
readln
end.

@Валерия В. 1 / 1 / 0 Регистрация: 20.09.2009 Сообщений: 44
		1
	В каждой строке удалить лишние пробелы и поставить ее по центру. 16.12.2009, 17:39. Показов 1289. Ответов 6 Метки нет (Все метки) Дано N строк текста: в каждой строке удалить лишние пробелы и поставить ее(строку) по центру. Решить с помощью процедуры. Прошу помочь 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	16.12.2009, 17:43	2
	Сообщение от Валерия В. и поставить ее(строку) по центру. По центру чего? И какая длина строк. 0

@Валерия В. 1 / 1 / 0 Регистрация: 20.09.2009 Сообщений: 44
	16.12.2009, 18:03 [ТС]	3
	чтобы программа, когда выводила строку, ставила ее по центру экрана. 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	16.12.2009, 18:15	4
	А если строка больше 80 символов? 0

@WolfCF
	16.12.2009, 18:31 #5
	Не по теме: Сообщение от Puporev А если строка больше 80 символов? можно тогда наверно проверку сделать. Например: меньше 20, то по центру экрана, иначе с начала экрана вывести. 0

@Валерия В. 1 / 1 / 0 Регистрация: 20.09.2009 Сообщений: 44
	16.12.2009, 19:21 [ТС]	6
	предпологается, что строка меньше 80 символов и мы выравниваем ее по центру 0

Опции темы