Строки в делфи

[bella15]

Добрые люди, помогите пожалуйста решить задачу.
Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой. с оператором условия if then else нужно. сама делаю не получается

а лучше цикл с условием while

[Hacker19_90]

а лучше цикл с условием while

зачем?
по-моему чётко указано

Строки в делфи

Тогда так

  ReadLn(num);
  Writeln(num[1] = num[length(num)]);

[bella15]

напишите как для чайника

[Hacker19_90]

а что вам не понятно?
вы тут писали

сама делаю не получается

показывайте, что не получается!

[bella15]

в общем, я пишу function IntToStr(x: integer): string;
а в var не знаю что писать. х нельзя, а других переменных у меня нет

[Mad_Cat]

Строки в делфи

var s:string;
begin
s:=edit1.text;
if s[1]=s[length(s)] then showmessage('Да')
else showmessage('неа')
end;

почему делфи выдаёт мне ошибку

Лето - телепаты в отпуске!

[bella15]

почему делфи выдаёт мне ошибку [Error] Unit5.pas(41): ';' expected but '.' found
в этой строке procedure TForm5.Button1Click(Sender: TObject);

теперь выдаёт ошибку [Error] Unit5.pas(16): Unsatisfied forward or external declaration: 'TForm5.Button1Click' в строке procedure Button1Click(Sender: TObject);

[s-andriano]

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

зачем?
по-моему чётко указано

Тогда так

  ReadLn(num);
  Writeln(num[1] = num[length(num)]);

Нужно с оператором if

var a,g,c : boolean;
begin
  ReadLn(num);
  a := num[1] = num[length(num)];
  if a = TRUE then
    b := TRUE
  else
    if a = FALSE then
      b := FALSE
    else
      if a = TRUE then
        b := TRUE;
  if b then
    c := TRUE
  else
    c := FALSE;
  if (a and b and c) = TRUE then
    writeln('TRUE')
  else
    writeln('FALSE');

[bella15]

var
s:integer;
x:string;
begin
s:=inttostr(x);   //÷èñëî ïåðåâîäèòñÿ â ñòðîêó
if s[1]=s[length(s)]
then showmessage ('Öåëîå ÷èñëî íà÷èíàåòñÿ è çàêàí÷èâàåòñÿ îäíîé è òîé æå öèôðîé')
else showmessage ('Öåëîå ÷èñëî íà÷èíàåòñÿ è çàêàí÷èâàåòñÿ íå îäíîé è òîé æå öèôðîé')
end;

вот мой код. что неправильно?

[QUOTE=Mad_Cat;1046259]

var s:string;
begin
s:=edit1.text;
if s[1]=s[length(s)] then showmessage('Да')
else showmessage('неа')
end;

s:=edit1.text; вот здесь чего то не хватает. strtofloat или ещё чего то

[Stilet]

вот здесь чего то не хватает.

А тут и не надо ничего такого. Ты число свое все равно как строку вводишь, твой код верен. Ты запусти его.