Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Полиндрома  (Прочитано 5491 раз)
0 Пользователей и 1 Гость смотрят эту тему.
jonec
Интересующийся

ua
Offline Offline

« : 20-11-2010 21:01 » 

Вот что у меня выходит программы.
Помогите на писать правильно код что бы когда  число веденное пользователям было квадратом палиндромы.Числом называют квадратом палиндромы,когда оно есть квадратом определенного натурального числа и может читаться с право налево и слева на право.
к примеру(11).При 3-ой кнопке должно выводиться это число.

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Button3: TButton;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   i,n,a,b:Integer;
      polen:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
polen:=0;
if  n>0 then Label4.Caption:='Результат:  '  else
  Label5.Caption:='Введите число:';
 polen:=(sqr(n));
      for i:=1 to n do
    begin
      polen:=polen+i;
      if i=n then
        Label4.Caption:=Label4.Caption+IntToStr(polen)+'.'
      else
        Label4.Caption:=Label4.Caption+IntToStr(polen)+','+''
    end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
polen:=0;
if n>0 then  Label4.Caption:='Результат:  'else
  Label5.Caption:='Введите число:';

   polen:=(sqr(n));

    if polen=0 then polen:=polen-1;
    n:=0;
    for i:=1 to polen do
    begin
      n:=n+i;
      if i=polen then
        Label4.Caption:=Label4.Caption+IntToStr(n)+'. '
      else
        Label4.Caption:=Label4.Caption+IntToStr(n)+','+''
    end


end;

procedure TForm1.Button3Click(Sender: TObject);
var s,s1:string;
    

begin

{n-число заданное пользывателем}n:=StrToInt(Edit1.Text);
polen:=0;
s:=FloatToStr(polen);

if n>0 then  Label4.Caption:='Результат:  'else
  Label5.Caption:='Введите число:';

      polen:=(sqr(n));
     a:=StrToInt(s);
     if a=n then Label4.Caption:=(IntToStr(a))+ '  Это число "полендромы"';
    if polen=0 then
      Label4.Caption:='  Это число "полендромы"'
    else
      Label4.Caption:='  Это не число "полендромы" '
end;

end.

 
« Последнее редактирование: 20-11-2010 21:10 от jonec » Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 20-11-2010 21:10 » 

jonec, расскажи нам без ОШИБОК, что такое палиндромы

а может все же Полиндрома?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
baldr
Команда клуба

ru
Offline Offline
Пол: Мужской
Дорогие россияне


WWW
« Ответ #2 : 22-11-2010 07:47 » 

Sla, это чесло полендромы штоли не знаеш ты считать давай писать.

jonec, если будешь писать с ТАКИМИ ошибками, то готовься и программу с такими же ошибками получить. Ты где учишься?
Записан

Приличный компьютер всегда будет стоить дороже 1000 долларов, потому что 500 долларов - это не вполне прилично
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #3 : 22-11-2010 08:20 » 

Падробнасти сдеся:

https://forum.shelek.ru/index.php/topic,26002.0.html
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #4 : 22-11-2010 08:26 » 

допустим мы поняли что такое квадратный палиндром

тогда по смыслу:

сравниваем первый символ с последним
до тех пор пока указатели не сравняются, или пересекутся
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Sel
Злобный
Администратор

ru
Offline Offline

« Ответ #5 : 22-11-2010 10:31 » 

baldr, Джон, Жжешь
Записан

Слово не воробей. Всё не воробей, кроме воробья.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines