Mail

Уголок начинающего программиста

В данном разделе приводятся программы, написанные посетителями данного сайта. Идея данного раздела принадлежит Валерию из города Новотроицк Оренбургской области, который прислал мне письмо, в котором предложил публиковать его программы, мотивировав это тем, что на сайте не хватает простых, элементарных программ. А поскольку он все-равно будет "мучаться", то чтоб труд не пропадал зря, он предложил размещать его примеры на сайте. Мне эта идея понравилась и вот первая партия программ размещена в данном новом разделе. Я постараюсь снабжать программы комментариями, если что-то можно сделать в программах лучше. Я не обещаю проверять данные программы на работоспособность, компилируя их, но просматривать на предмет ошибок обязательно буду.

Модератор.

Задач в выбранных темах: 66

Страница 17

Условие задачи

Дана строка содержащая текст, заканчивается точкой. Вывести на экран слова содержащие три буквы.

Решение
Автор: Moderator

var st,w:string;
  k,i:byte;
  what2look:char;
begin
st:='This is just an example string wich has few commas.';
what2look:=' ';
i:=pos(what2look,st);
write('Words: ');
while (i>0) do
  begin
  w:=copy(st,1,i-1);
  delete(st,1,i);
  if (length(w)=3) then
    write(w,', ');
  i:=pos(what2look,st);
  end;
writeln;
end.

Комментарии

to top

Условие задачи

Bычислить сколько pаз каждое слово встpечается во введенной стpоке.

Решение
Автор: Moderator

var s,w:string;
  k,i,wc:byte;
begin
s:='This This is a test line This line has few words Each one of the words of this line is not unic';
writeln;
writeln('Sentence: '+s);
s:=s+' ';
{Assume there is no commas, no dots there. Otherwise first remove them }
k:=Pos(' ',s);
while (k>0) do
  begin
  w:=copy(s,1,k-1);
  s:=copy(s,k+1,255);
  i:=Pos(' '+w+' ',' '+s);
  wc:=1;
  while (i>0) do
    begin
    inc(wc);
    s:=copy(s,1,i-1)+copy(s,i+length(w)+1,255);
    i:=Pos(' '+w+' ',' '+s);
    end;
  writeln('word: ''',w:15,''' has been met ',wc,' times');
  k:=Pos(' ',s);
  end;
end.

Комментарии

to top

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Задач в выбранных темах: 66