строки pascal
Автор Александр Кузнецов задал вопрос в разделе Другие языки и технологии
Паскаль строки и получил лучший ответ
Ответ от Ra[гуру]
Тупо, но зато не виснет: var s1, s2, s3: string; c: integer; begin write('string #1? '); readln(s1); write('string #2? '); readln(s2); for c := 1 to length(s1) do if (pos(s1[c], s2) <> 0) and (pos(s1[c], s3) = 0) then s3 := s3 + s1[c]; writeln('result: ', s3); end.
Ответ от Krab Bark[гуру]
Как минимум, начальное значение i программа возьмет с потолка. И if copy(str1, i,1)=copy(str2, j,1) выглядит ужасно. Цивилизованные люди пишут if str1[ i]=str2[ j]
Как минимум, начальное значение i программа возьмет с потолка. И if copy(str1, i,1)=copy(str2, j,1) выглядит ужасно. Цивилизованные люди пишут if str1[ i]=str2[ j]
Ответ от Ёелин Дмитрий[гуру]
а где функция copy???
а где функция copy???
Ответ от Gennady[гуру]
Ой, не нравится мне это.. . Про i Краб сказал уже. Дальше. Вот это if copy(str1, i,1)=copy(str2, j,1) можно вполне заменить на if str1[ i ] = str2[ j ] ... Но даже если и не менять, то если i-й символ первой стр
Ой, не нравится мне это.. . Про i Краб сказал уже. Дальше. Вот это if copy(str1, i,1)=copy(str2, j,1) можно вполне заменить на if str1[ i ] = str2[ j ] ... Но даже если и не менять, то если i-й символ первой стр
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Паскаль строки
Поиск символа в строке. Pascal
На основе этой программы
program z1;
uses crt;
var a,b:string;
подробнее...
спросили в Интернет
что обозночает @
@ — типографский символ, первоначально использовавшийся в платёжных документах на месте англ. at,
подробнее...
что обозночает @
@ — типографский символ, первоначально использовавшийся в платёжных документах на месте англ. at,
подробнее...
Создайте программу на языке Паскаль, которая будет определять: является ли данная строка S палиндромом. (Ввод:S; Вывод Д
А зачем слово переворачиамть?
Palindr := True; {предположим, что палиндром}
L :=
подробнее...
спросили в Паскаль
Турбо Паскаль 7.0 В функцию val можно загнать конкретный элимент строки или можно только всю строку?
не очень понятен вопрос) )
вот у Вас в строке есть какое-то число.
Паскаль его читает и
подробнее...
Турбо Паскаль 7.0 В функцию val можно загнать конкретный элимент строки или можно только всю строку?
не очень понятен вопрос) )
вот у Вас в строке есть какое-то число.
Паскаль его читает и
подробнее...
Программа умножение Pascal ABS,помогите доделать программу..
Вводи строки и превращай их в числа процедурой VAL. При неудаче она выдает соответствующий
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
помогите с Pascal ABC (длина строки)
вот мой вариант программы
var a:real;
p,pa,b:string;
n,c,z,i,x:integer;
label m1;
подробнее...
Pascal , Метод Гаусса
Твои главные ошибки:
1)Pascal
2)двумерные массивы ( это даже индусам непростительно
подробнее...
спросили в POS
строки в Паскале
Доброго времени суток.
Вот теперь видно, что пытались сделать. Можно делать и так.
подробнее...
строки в Паскале
Доброго времени суток.
Вот теперь видно, что пытались сделать. Можно делать и так.
подробнее...
Здравствуйте. Pascal. Не преобразовывается число в строку. См. вопрос.
Ты же переопределил имя str с обозначения стандартной процедуры на обозначение строки. Замени
подробнее...
Pascal. Объясните пожалуйста,как работает функция gotoxy. Например, в матрице gotoxy(x*2,y+3) - что это значит???
Go to означает дословно "Идти к" Т. е. Gotoxy(1,1) означает что осуществится переход к элементу
подробнее...
спросили в Object Pascal
Ребят на object pascal как перевести один тип данных в другой? На делфи это звучит так к примеру: strTOint а на паскале?
StrToInt нестандартная функцтя. ее удобство только в том что она функция.
зато сколько
подробнее...
Ребят на object pascal как перевести один тип данных в другой? На делфи это звучит так к примеру: strTOint а на паскале?
StrToInt нестандартная функцтя. ее удобство только в том что она функция.
зато сколько
подробнее...
Задачи в паскале! Решить через тип данных "Строка символов". Packed array или string.
S : String;
1, 2:
n := 0;
while Pos('A', S) > 0 do begin
Inc(n); //
подробнее...