Символьные данные на Паскале...

[Miledi]

Необходимо написать программки на Паскале, тема: символьные данные: описание, обработка.
Вот задания:
1.Задана цепочка символов, в которой два слова разделены
знаком ":". Поменять их местами.
2. Дана цепочка символов вида "число1+число2*число3". Вычис¬лить числовое значение выражения и напечатать.
3. Задан массив из восьми строк. В строке фамилии и инициа¬лы. Отсортировать список по алфавиту.

[Air]

1.Задана цепочка символов, в которой два слова разделены знаком ":". Поменять их местами.

Var s,s1,s2,Result:string; i,j,countSTR:integer;
begin
S:='ssssssssss:eeeeeeeeeee';// твои слова
countSTR:=strlen(pchar(s))-1;// опредеоили длину строки
for i:=0 to countSTR do 
 begin
  if s[i] <> ':' then
   s1:=s1+s[i]
  else
   for j:=i+1 to countSTR do
    s2:=s2+s[i];
 Result:=s2+':'+s1;
 end;
end;

Ну... что-то в этом роде, код написал от руки, спрашивай если что.

2. Дана цепочка символов вида "число1+число2*число3". Вычислить числовое значение выражения и напечатать.

Это же проще некуда.

var N1,N2,N3, Result:integer;
begin
N1:=3;
N2:=7;
N3:=10;

Result:=N1+N2*N3;
Writeln(Result);
end;

Если я ни что не напутал

P.S. Хотя может и напутал...
Возможно так.

var N1,N2,N3,i, Result:integer; S,s1,s2,s3:string;
begin
S:='3+7*10';

N1:=strtoint(copy(s,1,1));
N2:=strtoint(copy(s,3,1));
N3:=strtoint(copy(s,5,2));

{это сработает только если Вы точно знаете на какой позиции 
расположены числа, если Вы вводите их с клавы, 
то конвертируйте сразу в числовой тип или принимайне в числовом формате.}

Result:=N1+N2*N3;
Writeln(Result);
end;

3. Задан массив из восьми строк. В строке фамилии и инициа¬лы. Отсортировать список по алфавиту.

Это почитай тут.
http://avance.narod.ru/q_sort.htm

[Artificial]

Отсортируй методом пузырька, проще не куда.

procedure SortPuz (var Arr : array of Integer; n : Integer);
var
  i : Integer; 
  Temp : Integer; 
  Flag : Boolean; 
begin
  repeat
    Flag := False;
    for i := 0 to n - 1 do
      if Arr [i] > Arr [i + 1] then begin 
        Temp := Arr [i]; 
        Arr [i] := Arr [i + 1];
        Arr [i + 1] := Temp; 
        Flag := True; 
      end; 
  until Flag = False; 
end;

Он будет сортировать по номеру в таблице ASCII.
Я когда-то делал так)

[1234]

Подскажите, пожалуйста, как реализовать вот такую задачу:

В файле исходных данных задается символьная строка
Написать Паскаль-программу, включающуй 2 процедуры, выполняющие следующие действия:

1. Нахождение слов-палиндромов (перевертышей), одинаково-читающихся как слева направо, так и справа налево
2. Удаление из строки слов, не являющихся палиндромами.

-Очень интересует то, как именно проводить поиск слов-перевертышей

[-=<[Evklidd]>=-]

Вот когда-то прогу писал, посмотри, адаптируй для своего случая, главная что есть функция по определению слов-палиндромов

program palindrom;
var
 s: string;
 b: boolean;
 a,c: integer;
function pal(s: string; Var n, i: integer): boolean;
var
 x: integer;
begin
 if s[n] = s[length(s)-n+1] then
  begin
   if i = ((length(s) div 2) + (length(s) mod 2)) then
    pal:= true
   else
    begin
     inc(i);
     x:= n+1;
     pal:= pal(s,x,i);
   end;
  end
   else
    pal:= false;
end;
begin
write('Input string: ');
readln(s);
writeln('Is string palindrom?');
a:= 1;
c:= 1;
b:= pal(s,a,c);
if b then
 writeln('Yes')
else writeln('No');
readln;
end.

[1234]

Спасибо!, попробую..

[Stilet]

1234, нечего в чужую тему вставлять свои просьбы.
Тема закрыта