РЕБЯТА! Delphi

[Mad_Cat]

блин вам хорошо вы в этом разбераетесь, а я нет
нам лекции вычитали что такое делфи в общем какие есть функии и все
а задачи как хочет так и решай

Извините, что вмешиваюсь,а учебники вообще зачем, по-вашему, пишут?

я переделала Ваш код практически полностью и он заработал

А покажите как, плиз?

[ACE Valery]

я поняла что это счетчики и что?
блин вам хорошо вы в этом разбераетесь, а я нет

Да ладно вам прибедняться. Я вроде не училась на лингвиста, но я же не начинаю плакать, что не разбираюсь в знаках препинания.
Мыслите логически. Счетчик. У вас есть дома счетчик? На газ, на воду, на свет? Так он что, числа считает или строки?
Тем более, лингвистам, вроде, положено и английский язык знать. А компилятор вам жалуется, что "не объявлен идентификатор". Ну если это вам не понятно - не проблема. Вбейте в гугл текст ошибки. И вуаля - все достаточно подробно объяснено.
Так что не "не шарим", а "немного ленимся".

[Marika Polskyh]

var
s:string;
i: integer;
one: integer;
two: integer;
begin
for i:=1 to length (s) do begin
if s[i] = ' ' then inc(one)
else inc(two);
end;
if (one<two) then edit2.text := 'у послідовності пропусків більше ніж символів'
else if (one>two) then edit2.text:='у послідовності пропусків менше ніж символів'
end;
end.

не много переделано. смысл естественно тотже но куча мелких ошибок устранена

[Marika Polskyh]

Сообщение от ACE Valery

Да ладно вам прибедняться. Я вроде не училась на лингвиста, но я же не начинаю плакать, что не разбираюсь в знаках препинания.
Мыслите логически. Счетчик. У вас есть дома счетчик? На газ, на воду, на свет? Так он что, числа считает или строки?
Тем более, лингвистам, вроде, положено и английский язык знать. А компилятор вам жалуется, что "не объявлен идентификатор". Ну если это вам не понятно - не проблема. Вбейте в гугл текст ошибки. И вуаля - все достаточно подробно объяснено.
Так что не "не шарим", а "немного ленимся".

я же не спросила какую ошибку выбило вроде бы? я спросила как это обьявить не каким способом и где писать, а просто как обьявить.
у меня помимо англ еще языки и куча предметов
учебник у нас есть даже могу скинуть но там тоже многое не написано много упрощено показаны несколько вариантов. Для того чтоб мыслить логически нужна основа, а где ее взять если у нас пусто поповоду делфи?

[Marika Polskyh]

Mad_Cat ты просто чудо!)))


ACE Valery я не ною, а говорю честно что в этом я дуб. Если б я не пыталась что то понять я б вобще по этому поводу не парилась, а так обидно что многое выкинуто (не по нашей вине), а спрос то пополной

[Marika Polskyh]

Дано символьная строка S. Распечатать позиции всех точек.
MAD_Cat плиз хотя б это скажи
хоть что то

[ByAlex]

Дано символьная строка S. Распечатать позиции всех точек.
Вот, держи -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s:string;
  i:Integer;
begin
  s:='when. i grow. up. i. want. be. famouse.';
  writeln(s);
  for i:=1 to Length(s) do
    if s[i]='.' then
      write(i,' ');
  readln;
  readln;
end.

[Mad_Cat]

var
  s:string;
  i:Integer;
begin
  s:=edit1.text;
  for i:=1 to Length(s) do
    if s[i]='.' then
    edit2.text:=edit2.text+' '+inttostr(i);
end;

[Marika Polskyh]

Mad_Cat
Ты просто ВЕЛИКОЛЕПЕН!!!! ты очень мне помог)) еще половина не сделана(((
а как удалить пост?

[ByAlex]

Сколько предложений в строке -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  SetChar:set of Char;
  s:string;
  i,n,kol:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  SetChar:=['.','!','?'];
  s:='asdfr. dfgdfdg. fdfd fdfdf.'; // это наш текст
  n:=0;
  kol:=0;
  for i:=1 to Length(s) do
  begin
    if not (s[i] in SetChar) then
      inc(n)
    else
    begin
      if n>0 then // если слово не равно нулю, то будем считать его предложением
        Inc(kol);
      n:=0;
    end;
  end;
  Writeln('Kol = ',kol);
  readln;
end.