Строки в Pascal Строковый тип данных, процедуры и функции для работы со строками в Pascal. Массивы символов. Строковый тип данных в Паскале Процедуры и функции для работы со строками Перекрёстные ссылки книги для Строки в Pascal Строковый тип данных в Паскале Добавить комментарий Комментарии Дублирование буквы Воробьев (не проверено) 24/05/2017 Продублировать буквы начала и конца алфавита А, Б, В, Э, Ю, Я: везде, где встречается буква А записать АА, везде, где Б – ББ и т.д. Ответить Запрет ввода символов Сима (не проверено) 27/05/2017 Как написать программу на запрет цифр и английских символов при вводе, даже одного символа. Ответить Строки в Паскале Виктория (не проверено) 08/06/2017 Написать программу которая,выводит слова, содержащие буквы «о» и «е». Ответить Ответ на вопрос Вячеслав (не проверено) 27/11/2017 Ответ на Строки в Паскале от Виктория (не проверено)var s: string; j: integer; i1: integer := 0; blank_position: array [1..1000000] of integer; words: array [1..100000] of string; new_words: integer := 1; word_: string; begin write('Текст: ');readln(s); s := Trim(s); for var i := 1 to s.Length do if (s[i] = ' ') then inc(i1); for var i := 1 to s.Length do if (s[i] = ' ') then begin inc(j);blank_position[j] := i; end; for var j1 := 1 to i1 do begin for var i := new_words to blank_position[j1] do begin if not (s[i] in ['.', ',', ' ', '!', '?', '"', ';', ':', '+', '=', '\', '|', '/', '«', '»', '`', '@', '#', '№', '$', '%', '^', '&', '*', '{', '}', '[', ']', '(', ')', '~', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0']) then if not ((s[i] in ['-']) and ((s[i + 1] in [' ']) or (s[i - 1] in [' ']))) then words[j1] := words[j1] + s[i]; end; new_words := blank_position[j1]; end; for var i := new_words to s.Length do begin if not (s[i] in ['.', ',', ' ', '!', '?', '"', ';', ':', '+', '=', '\', '|', '/', '«', '»', '`', '@', '#', '№', '$', '%', '^', '&', '*', '{', '}', '[', ']', '(', ')', '~', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0']) then if not ((s[i] in ['-']) and ((s[i + 1] in [' ']) or (s[i - 1] in [' ']))) then words[i1 + 1] := words[i1 + 1] + s[i]; end; for var i := 1 to i1 + 1 do begin word_ := words[i]; for var k := 1 to word_.Length do begin if not (word_[k] in ['е', 'о']) then (*) (*) else begin write(words[i], ' ');break; end; end; end; end. EMAIL: djslava0102@gmail.com Ответить Вводится строка из букв и… Гость (не проверено) 14/11/2017 Вводится строка из букв и цифр. Построить новую строку только из цифр (порядок не меняется) Ответить строковые и символьные величины катя (не проверено) 19/11/2017 составить программу нахождения количества букв 'к' в тексте Ответить Даны 2 строки. Подсчитать… Гость (не проверено) 27/11/2017 Даны 2 строки. Подсчитать количество тех символов первой строки, которые встречаются во второй Ответить Должны вводить:… Данила (не проверено) 03/12/2017 Должны вводить: 1 7 longintchar; Выводить char; Ответить Даны две строки. Вывести… Гость (не проверено) 04/12/2017 Даны две строки. Вывести большую по длине строку столько раз, на сколько символов отличаются строки Ответить Паскаль Владимир (не проверено) 19/01/2018 Дана строка, состоящая из слов, разделённых пробелами. Проверить, упорядочены ли слова в строке по длине. помогите пожалуйста срочно надо! Ответить Программа которая удаляет… Хацкер (не проверено) 27/01/2018 Программа которая удаляет все пробелы из строки: var s,s0:string; i,j:Integer; begin s0:=''; j:=1; Readln(s); for i:=1 to Length(s) do if s[i]=' ' then begin s0:=s0+Copy(s,j,i-j); j:=i+1; end; s0:=s0+Copy(s,j,i-j); Writeln(s0); Readln; end. Ответить сортировка одномерный массива на языке программирования Basic Евгений (не проверено) 15/03/2018 Напечатать часть строки от предпоследней до последней запятой Ответить Нумерация страниц Первая страница « first ← ‹ previous Страница 1 Текущая страница 2
Дублирование буквы Воробьев (не проверено) 24/05/2017 Продублировать буквы начала и конца алфавита А, Б, В, Э, Ю, Я: везде, где встречается буква А записать АА, везде, где Б – ББ и т.д. Ответить
Запрет ввода символов Сима (не проверено) 27/05/2017 Как написать программу на запрет цифр и английских символов при вводе, даже одного символа. Ответить
Строки в Паскале Виктория (не проверено) 08/06/2017 Написать программу которая,выводит слова, содержащие буквы «о» и «е». Ответить
Ответ на вопрос Вячеслав (не проверено) 27/11/2017 Ответ на Строки в Паскале от Виктория (не проверено)var s: string; j: integer; i1: integer := 0; blank_position: array [1..1000000] of integer; words: array [1..100000] of string; new_words: integer := 1; word_: string; begin write('Текст: ');readln(s); s := Trim(s); for var i := 1 to s.Length do if (s[i] = ' ') then inc(i1); for var i := 1 to s.Length do if (s[i] = ' ') then begin inc(j);blank_position[j] := i; end; for var j1 := 1 to i1 do begin for var i := new_words to blank_position[j1] do begin if not (s[i] in ['.', ',', ' ', '!', '?', '"', ';', ':', '+', '=', '\', '|', '/', '«', '»', '`', '@', '#', '№', '$', '%', '^', '&', '*', '{', '}', '[', ']', '(', ')', '~', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0']) then if not ((s[i] in ['-']) and ((s[i + 1] in [' ']) or (s[i - 1] in [' ']))) then words[j1] := words[j1] + s[i]; end; new_words := blank_position[j1]; end; for var i := new_words to s.Length do begin if not (s[i] in ['.', ',', ' ', '!', '?', '"', ';', ':', '+', '=', '\', '|', '/', '«', '»', '`', '@', '#', '№', '$', '%', '^', '&', '*', '{', '}', '[', ']', '(', ')', '~', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0']) then if not ((s[i] in ['-']) and ((s[i + 1] in [' ']) or (s[i - 1] in [' ']))) then words[i1 + 1] := words[i1 + 1] + s[i]; end; for var i := 1 to i1 + 1 do begin word_ := words[i]; for var k := 1 to word_.Length do begin if not (word_[k] in ['е', 'о']) then (*) (*) else begin write(words[i], ' ');break; end; end; end; end. EMAIL: djslava0102@gmail.com Ответить
Вводится строка из букв и… Гость (не проверено) 14/11/2017 Вводится строка из букв и цифр. Построить новую строку только из цифр (порядок не меняется) Ответить
строковые и символьные величины катя (не проверено) 19/11/2017 составить программу нахождения количества букв 'к' в тексте Ответить
Даны 2 строки. Подсчитать… Гость (не проверено) 27/11/2017 Даны 2 строки. Подсчитать количество тех символов первой строки, которые встречаются во второй Ответить
Должны вводить:… Данила (не проверено) 03/12/2017 Должны вводить: 1 7 longintchar; Выводить char; Ответить
Даны две строки. Вывести… Гость (не проверено) 04/12/2017 Даны две строки. Вывести большую по длине строку столько раз, на сколько символов отличаются строки Ответить
Паскаль Владимир (не проверено) 19/01/2018 Дана строка, состоящая из слов, разделённых пробелами. Проверить, упорядочены ли слова в строке по длине. помогите пожалуйста срочно надо! Ответить
Программа которая удаляет… Хацкер (не проверено) 27/01/2018 Программа которая удаляет все пробелы из строки: var s,s0:string; i,j:Integer; begin s0:=''; j:=1; Readln(s); for i:=1 to Length(s) do if s[i]=' ' then begin s0:=s0+Copy(s,j,i-j); j:=i+1; end; s0:=s0+Copy(s,j,i-j); Writeln(s0); Readln; end. Ответить
сортировка одномерный массива на языке программирования Basic Евгений (не проверено) 15/03/2018 Напечатать часть строки от предпоследней до последней запятой Ответить
Комментарии
Дублирование буквы
Запрет ввода символов
Строки в Паскале
Ответ на вопрос
Ответ на Строки в Паскале от Виктория (не проверено)
Вводится строка из букв и…
строковые и символьные величины
Даны 2 строки. Подсчитать…
Должны вводить:…
Даны две строки. Вывести…
Паскаль
Программа которая удаляет…
сортировка одномерный массива на языке программирования Basic