Практическая работа...№7

[ЭдикNEO]

1. Организовать ввод элементов трех множеств A, B, C. По запросу пользователя вычислить и напечатать одно из производных множеств (объединение, пересечение, разность) для любой пары множеств. Запрос вводится в виде: A*C, C+B, B-C и т.п

2. Дан текст из N символов. Группы символов, расположенные между пробелами и не содержащие пробелов внутри себя, называем словами. Подсчитать количество слов в данном тексте


помогите сделать эти 2-е задачи)

[Mad_Cat]

2)

program st;
var
  s,s1: string;
  i,k: integer;
  kol: integer;
begin
  cls;
  readln(s);
  s:=s+' ';
  repeat
    if pos('  ',s)>0 then
      delete(s,pos('  ',s),1);
  until pos('  ',s)=0;
  k:=0; kol:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
    begin
      s1:=copy(s,k+1,i-k);
      kol:=kol+1;
      k:=i;
    end;
  writeln(kol,' Слов');
end.

[ЭдикNEO]

спасибо большое)))

[PinchGG]

5.Задано предложение, состоящее из слов, разделённым одним или несколькими пробелами. Вывести на экран все слова, преобразовав каждое при этом следующим образом: первую букву слова заменить последней.

[Mad_Cat]

5)

program st;
var
  s,s1: string;
  i,k: integer;
  kol: integer;
begin
  cls;
  readln(s);
  s:=s+' ';
  repeat
    if pos('  ',s)>0 then
      delete(s,pos('  ',s),1);
  until pos('  ',s)=0;
  k:=0; kol:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
    begin
      s1:=copy(s,k+1,i-k-1);
      kol:=kol+1;
      k:=i;
     s1[1]:=s1[length(s1)];
    writeln(s1);
    end;
end.

[Serge_Bliznykov]

Mad_Cat, ну зачем Вы поощряете нарушение правил форума и раздела?! (для учебных задач у нас предназначен раздел "Помощь студентам", кроме того, на форуме действует правило - Одна тема - один вопрос.)

закрыто.