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

[Delphi_ProGer]

Program Pr1;
function CheckWord(s:string):boolean;
begin
  if s[1]=s[length(s)] then
    result:=True
  else
    result:=False;
end;
var str: string;
BEGIN
readln(str);
if CheckWord(str) then
writeln('одна и та же буква') else
writeln('разные буквы');
END.

P.S. проверте работает ли? и здесь вроде бы ничего сложного...

[whatever]

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

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

Я так и понял, тоже сразу их вспомнил :D. Нулевой символ в строке служебный, правда непомню, что там за информация хранится.

Jessee, Можешь уверенно писать

Program slovo;
var
  str: string;
begin
readln(str);
if str[1]=str[length(str)] then 
writeln('начинаеться на ту же букву!');
end.

Update: хех, похоже полностью автора запутали :D

[Jessee]

Огромное спасибо. Но походу не поверят в мою самостоятельность т.к половину этих команд ещё не прошли. xDD

[Alex11223]

Дык бери последний вариант, который в сообщении выше, там вроде нету никаких особых команд Program slovo; можешь еще убрать.

Парни, мне информатика как бы не сильно нужна.

а чего, она для всех обязательна у вас? наверно ж была возможность ее не брать.

[Jessee]

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

Дык бери последний вариант, который в сообщении выше, там вроде нету никаких особых команд Program slovo; можешь еще убрать.а чего, она для всех обязательна у вас? наверно ж была возможность ее не брать.

Я её и не выбирал, просто задание. Компами занимаюсь: ремонт, обслуживание и т.д. А с програмированием отношения не заладились =(((

[Delphi_ProGer]

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

Огромное спасибо. Но походу не поверят в мою самостоятельность т.к половину этих команд ещё не прошли. xDD

ну так скажите что вы проходили, так будем думать как сделать с помощью команд, которые вы изучали)

[Mad_Cat]

Напишите пожалуйста готовую программу, работающую.

Да легко

var s:string;
n:integer;
begin
readln(s);
n:=length(s) div 2 +1;
while Length(s)>2 do
begin
delete(s,n,1);
n:=length(s) div 2 +1;
end;
if s[1]=s[2] then writeln('одинаковые')
else writeln('разные');
end.

[Alex11223]

Я её и не выбирал, просто задание.

я имел в виду предмет "Информатика", а не задание

[whatever]

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

я имел в виду предмет "Информатика", а не задание

Я как школу закончил, с тех пор и не интересовался, что там происходит. Неужели всетаки приняли закон, что ученики самии предметы выбирают?

[Alex11223]

Не знаю, я не в РФ живу. Но сомневаюсь, что всех подряд независимо от их желания заставляют программировать.