Купить рекламу на форуме — 42 тыс руб за месяц, летом дешевле!
: 4
как в строке вставить n-ое количество пробелов
как в строке вставить n-ое количество пробелов. после каждого слова.
Белик Виталий 🙂
: 57,792
Так пойдет?
var s:string;k,i,n:integer; begin s:=’My Oh My’; n:=5; i:=1; while length(s)>=i do begin while (length(s)>=i)and(s[i]<>’ ‘) do inc(i); for k:=1 to n do insert(‘ ‘,s,i); inc(i,n+1); end; write(s);readln; < TODO -oUser -cConsole Main : Insert code here >end.
I’m learning to live.
Форумчанин
: 270
writeln(‘ ***** ‘, ‘ (пробелы ) ‘ ,’ ****** ‘);
Форумчанин
: 270
Stilet
___________
Дружище смотри проще на мир!))))
: 2,740
| после каждого слова. |
Нужно хотя бы знать, что в даннои случае считается словом, как отделены слова, надо ли ставить пробелы после последнего слова, например если это предложение и оканчивается знаком препинания, и т.д. и т.п.
Паскаль с нуля [ч3]. Константы и ввод данных
Ну а это
| writeln(‘ ***** ‘, ‘ (пробелы ) ‘ ,’ ****** ‘); |
видимо шутка такой?
Любопытная Вредина
Участник клуба
: 1,285
var s,s1:string; i,k,n:integer; begin clrscr; writeln(‘input string’); readln(s); writeln(‘input n’); readln(n); s1:=»; for i:=1 to length(s) do if s[i]=’ ‘ then begin for k:=1 to n do s1:=s1+’ ‘; end else s1:=s1+s[i]; clrscr; writeln(‘old string :’,s); Writeln(‘new string :’,s1); readln; end.
Дурь — это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
Источник: www.programmersforum.ru
написать программу в паскале которая вставит между буквами введенного слова пробел
Найди верный ответ на вопрос ✅ «написать программу в паскале которая вставит между буквами введенного слова пробел . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
КАК ВСТАВИТЬ ПРОБЕЛЫ В ТЕКСТ ЧЕРЕЗ ФУНКЦИИ СЦЕПИТЬ И ПСТР В EXCEL
Главная » Информатика » написать программу в паскале которая вставит между буквами введенного слова пробел
Источник: urokam.net
Поставить пробелы — Pascal
Есть задача: Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом — точка. Во все слова, за первым символом, вставить пробел. т.е нужно создать файл stroka.txt и после расстановки пробелов результат записать в файл rezult.txt я тут парюсь никак не выходит.
вот сама задача которую нужно выполнить с помощью файлов
uses strings; Var str1,str2:array[0..50] of char; i,k,n:integer; begin writeln(‘vvedite stroku:’); readln(str1); n:=strlen(str1); k:=0; while (str1[k]<>’.’) and (k’ ‘ then k:=k+1; str2[k]:=’ ‘; for i:=1 to n do begin k:=k+1; str2[k]:=str1[i]; if (str1[i]<>’ ‘) and (str1[i-1]=’ ‘) then begin k:=k+1; str2[k]:=’ ‘;end; end; writeln(str2); readln; end.
и практически такаяже: Строка символов представляет собой текст, слова в котором разделены одним или более пробелами. Преобразовать эту строку так, чтобы все слова разделились ровно одним пробелом, а ведущие и хвостовые пробелы отсутствовали.
var s:string; begin readln(s); while pos(‘ ‘,s)<>0 do delete(s,pos(‘ ‘,s),1); while s[1]=’ ‘ do delete(s,1,1); while s[length(s)]=’ ‘ do delete(s,length(s),1); writeln(s) end.
Источник: studassistent.ru