Составте программу

@LimPIK · Регистрация: 10.12.2010

1.Расположить слова предложения в порядке возрастания количества букв.
Ограничения: Предложение представляет собой строку длиной до 255 символов. Слова в предложении могут разделяться любым количеством пробелов и знаками препинания.
Формат ввода: в единственной строке вводится предложение.
Формат вывода: вывести слова по одному в строке в порядке возрастания количества букв.
2.Дано N отрезков на прямой. Найти точку, принадлежащую наибольшему количеству отрезков. Отрезок задается парой точек Ai < В,.
Ограничения: 1<N<10000, -1000<Ai < Bi < 1000.
Формат ввода: В первой строке вводится число N. В следующих N строках вводятся пары чисел Ai и Bi.
Формат вывода: вывести X - координату искомой точки.

@Daemon025 · 24.04.2011, 20:15

Pascal

     uses crt;
     const rz=[' ',',','.',';',':','?','!'];//ðàçäåëèòåëè ñëîâ
     type str=array[1..30] of string;
 
Procedure Split(var s:string; var output:str; var index:integer);
    var i:integer;
Begin
    index:=1;
    For i:=1 to length(s) do
        if (s[i] in rz) then inc(index)
            else output[index]:=output[index]+s[i];
 
End;
//------------------------------------------------------------------------------
    var i,size,j:integer;
        A:str;
        s:string;
begin
  Write('String: ');
  ReadLn(s);
  Split(s,A,size);
 
  For i:=1 to size do
    For j:=1 to size-1 do
        if (length(A[j])>length(A[j+1])) then
        Begin
            s:=A[j];
            A[j]:=A[j+1];
            A[j+1]:=s;
        End;
 
  For i:=1 to size do
     WriteLn(A[i]);
  Readln;
end.

@LimPIK 0 / 0 / 0 Регистрация: 10.12.2010 Сообщений: 19
		1
	Составте программу 24.04.2011, 20:12. Показов 976. Ответов 1 Метки нет (Все метки) 1.Расположить слова предложения в порядке возрастания количества букв. Ограничения: Предложение представляет собой строку длиной до 255 символов. Слова в предложении могут разделяться любым количеством пробелов и знаками препинания. Формат ввода: в единственной строке вводится предложение. Формат вывода: вывести слова по одному в строке в порядке возрастания количества букв. 2.Дано N отрезков на прямой. Найти точку, принадлежащую наибольшему количеству отрезков. Отрезок задается парой точек Ai < В,. Ограничения: 1<N<10000, -1000<Ai < Bi < 1000. Формат ввода: В первой строке вводится число N. В следующих N строках вводятся пары чисел Ai и Bi. Формат вывода: вывести X - координату искомой точки. 0

Опции темы

Составте программу

Решение