паскаль_строки

[Пе4енька]

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

А где в задании сказано что "слово" может содержать исключительно символы латинского алфавита ?)
Нигде не сказано)

чё за троллинг?

[Sparkman]

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

А где в задании сказано что "слово" может содержать исключительно символы латинского алфавита ?)
Нигде не сказано)

в нелокализованном паскале нет кириллицы

пс: в моем паскале тоже нет такой роскоши, так бы начеркал в константу

[Serge_Bliznykov]

в нелокализованном паскале нет кириллицы

ой, вот только не надо!!
в строках Паскаль используется тип char - тип char определён как однобайтовая величина от 0(нуля) до 255. Что там будет - английский, русский 866, русский KOI8 или что-то другое - дело программиста.

Так что, если у Вас не получилось включить русские буковки в консоли - не надо всё на Паскаль валить!

[Sparkman]

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

ой, вот только не надо!!
в строках Паскаль используется тип char - тип char определён как однобайтовая величина от 0(нуля) до 255. Что там будет - английский, русский 866, русский KOI8 или что-то другое - дело программиста.

Так что, если у Вас не получилось включить русские буковки в консоли - не надо всё на Паскаль валить!

хых, сколько эмоций (восклицательных знаков)
ок, переделываю алгоритм:

const b:set of byte=[65..90,97..122,128..175,224..241]; //в паскале ДОСовская кодировка 866 ;)
var x,t,s:string;
    i:integer;
begin
     write('Enter string: ');
     readln(x);
     for i:=1 to length(x) do
     if ord(x[i]) in b then
        t:=t+x[i]
     else
     begin
          if length(t)>length(s) then s:=t;
          t:='';
     end;
     if ord(x[i]) in b then
     if length(t)>length(s) then
     s:=t;
     writeln('Max length word: ',s);
     readln;
end.

пс: кстати я баг нашел и исправил в предыдущем своем коде
щааещз: предложите девушке на Num Pad набрать следующее: Alt+1, +, Alt+2, =, Alt+3...

[stensmir]

Ребят, помогите пожалуйста.
Вот условие задачи:
Значением строки
служит предложение, содержащее тире. Требуется поменять местами
части предложения до и после тире.
Вот я сижу и бью себе голову, написал кое что, но он не меняет местами, а дублирует мне все после тире. Местами менять не хочет. Помогите решить проблему, а то уже мозг кипит.

У меня получилось вот такая штука.
program test;
var s, s1, s2: string;
N: integer;
begin
readln(s);
N:=pos('-', s);
s1:=copy(s, N-1, length(s)-1);
s2:=copy(s, N+1, length(s)+1);
s:=s2+'-'+s1+'.';
writeln(s);
end.

П.С. Аццкий нуб в этом деле.

[Mad_Cat]

program test;
var s, s1, s2: string;
N: integer;
begin
readln(s);
N:=pos('-', s);
s1:=copy(s, 1, n-1);
s2:=copy(s, N+1, length(s)-n);
s:=s2+'-'+s1+'.';
writeln(s);
end.

мама-папа
папа-мама.

[stensmir]

Огромное спасибо! Все работает, все хорошо. Вы меня спасли!