Напишите прогу

  • Автор темы Dimapokal
  • Дата начала
D

Dimapokal

Гость
#1
нада прога которая: 1.из введенного рядка в МЕМО удаляет слова которие стоят после комы (например: "я люблю сидеть в инете, но мне, очень дорого." после выполнения програмы "я люблю сидеть в инете, мне, дорого.")
2.из введенных рядков в МЕМО считает сколько рядков с непарным количеством слов.

Помогите плиз!!! очень нада!!!
 
B

BurcevD

Гость
#4
1. Задание

function deleteaftercomma(S:string):String;
var i:Integer;
IsAfter:Boolean;
Res:string;
Begin
IsAfter:=false;
s:=' '+s+' ';
Res:='';
For i:=2 to Length(s) do
begin
if (s[i-1]=',') and (s=' ') then IsAfter:=true else
if (s[i-1]<>' ') and (s=' ') then IsAfter:=false;
If not IsAfter then Res:=Res+s;
end;
Result:=Res;
end;

Вторая непонятна, либо есть парные слова (повторяющиеся) либо четное количество