Напишите программу для проверки, есть ли в слове X буквы "в"

@Vad1k · Регистрация: 25.09.2012

Author24 — интернет-сервис помощи студентам

Напишите программу для проверки, есть ли в слове X буквы "в". Если есть, то найдите номер первой из них. мне нужна полная процедура этой программы.

@zuxa-zuxa · 18.09.2013, 18:37

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=pos('â',X);
if i=0 then showmessage('íåòó áóêâ Â') else showmessage('íîìåð ïåðâîé áóêâû Â= '+inttostr(pos('â',X));
end;

@Vad1k · 19.09.2013, 07:04 **[ТС]**

Сообщение от zuxa-zuxa

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=pos('â',X);
if i=0 then showmessage('íåòó áóêâ Â') else showmessage('íîìåð ïåðâîé áóêâû Â= '+inttostr(pos('â',X));
end;

процедура не запускается на работу. тут что-то неправильно.
я пробовал изменить, написал вот что

это тоже не помогло)

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var  i:string;
begin
i:=Edit1.Text;
i:=pos('в',i);
if i=0 then showmessage('нету букв В')
else showmessage('номер первой буквы В= '+inttostr(pos('в',x));
end;

Что делать???

Комментарий модератора

Добавлены теги кода, исправлена кодировка текста.
Для оформления кода Delphi следует применять теги: [DELPHI] - [/DELPHI].
Чтобы при вставке текста с русскими буквами в редактор сообщений кодировка определилась верно, надо перед копированием исходного текста переключиться на русский язык ввода.

@Mawrat · 19.09.2013, 09:04

Vad1k, надо подправить:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  S : String;
begin
  //Исходный текст.
  S := Edit1.Text;
  //Ищем в тексте позицию первой буквы "в".
  i := Pos('в', S);
  if i = 0 then
    ShowMessage('нету букв В');
  else
    ShowMessage('номер первой буквы В = ' + IntToStr(i);
end;

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
		1
	Напишите программу для проверки, есть ли в слове X буквы "в" 18.09.2013, 18:02. Показов 1265. Ответов 3 Метки нет (Все метки) Напишите программу для проверки, есть ли в слове X буквы "в". Если есть, то найдите номер первой из них. мне нужна полная процедура этой программы. 0

	19.09.2013, 09:04