Задача 11 класса.

[Jessee]

Взять любое слово и проверить начинается и заканчивается ли это слово на одну и ту же букву.
Пример: "Азбука" Это слово и начинается и заканчивается на букву "а".
Помогите кто может, зарание большое спасибо. Срочно....=)))
Нужно написать Program'y.

[whatever]

Сообщение от Jessee

Нужно написать Program'y.

А на каком Language'е?

На паскале можно воспользоваться такой функцией:

function CheckWord(s:string):boolean;
begin
  if s[1]=s[length(s)] then
    result:=True
  else
    result:=False;
end;

Кстати, конкретно в паскале, "Азбука" начинается и заканчивается на разные буквы, "А"<>"а"

[Delphi_ProGer]

Program slovo;
var
  str: string;
begin
readln(str);
if str[0]=str[length(str)-1] then  // индекс 0, если это в делфи, если же паскаль, тогда будет индекс 1
writeln('начинаеться на ту же букву!');
end.

[whatever]

Сообщение от Delphi_ProGer

if str[0]=str[length(str)-1] then // индекс 0, если это в делфи, если же паскаль, тогда будет индекс 1

О_о. Это в какой версии дэлфи, если не секрет? И кстати, после end должна быть точка.

[Delphi_ProGer]

что именно вас не устраивает? индекс?? или что? )

[Jessee]

Сообщение от whatever

А на каком Language'е?

На паскале можно воспользоваться такой функцией:

function CheckWord(s:string):boolean;
begin
  if s[1]=s[length(s)] then
    result:=True
  else
    result:=False;
end;

Кстати, конкретно в паскале, "Азбука" начинается и заканчивается на разные буквы, "А"<>"а"

Да в Pascal ABC, ещё одна маленькая просьба, попроще что нибудь.
Есть возможность?

[Delphi_ProGer]

Jessee, whatever дал вам простой код.

[whatever]

Сообщение от Delphi_ProGer

что именно вас не устраивает? индекс?? или что? )

Да, индекс 0. Как и length(str)-1. Сам пишу в Delphi 2009. Хоть и был уверен, но проверил, не работает, а с "1" и "length(str)" работает.

Автору темы: "Попроще" товарищ Delphi_ProGer вам уже написал, Сейчас мы только с индексами разберемся, а то уже и у меня уверенность пропадает

[Delphi_ProGer]

whatever, емм...да...я ошибался...думал что стринг, как динамический массив, и там начинаються елементы с нуля)

[Jessee]

Парни, мне информатика как бы не сильно нужна.
Завтра сдавать, а я чесно говоря "нуб" в Pascal'e.
Напишите пожалуйста готовую программу, работающую. xD
Ещё раз спасибо. Выручайте.