[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

держи

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
k:boolean;
begin
k:=true;
for i:=1 to (length(edit1.Text) div 2)do
if edit1.Text[i]<>edit1.Text[length(edit1.Text)-i+1] then
begin
k:=false;
break;
end;
if k=true then 
showmessage('Polindrom')
else showmessage('Ne polindrom');
end;
end.

 

DooD Все работает, спасибо
Нужно еще написать программу виртуализации падения шарика с высоты h=100m. Ускорение свободного падения g = 9.8m\c.
Это нужно сделать с использованием компонента Timer

 

Переформатировать файл!

А как переформатировать файл?

 

это надо с графикой что ли делать или как?
upd
вот короче тут с микро-графой.

Code:

procedure TForm1.Button1Click(Sender: TObject);


begin
y0:=0;

h:=100;

g:=9.8;

t:=h/g;

y:=y0;
Timer1.Enabled:=True;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if y0-y<=h then

begin
PaintBox1.Refresh;

PaintBox1.Canvas.Ellipse(y+20,y0+20,y,y0);

y0:=y0+round(t);
end
else timer1.Enabled:=false;

end;

 

На форму бросаеться шарик, и делаеться так что бы он бегал по форме

 

что надо сделать, чтобы при отправке запроса, в Headers была моя дополнительная переменная?

 

добавь в масив свои переменные....в чём проблемма?

 

Очередной трабл.

Компоненты ServerSocket и ClientSocket

var
I: Integer;
begin
for I := 0 to Server.Socket.ActiveConnections - 1 do
Server.Socket.Connections.SendText('qwe');
end;

Если вызывать функцию из бутн клика, например, то сообщение получают все клиенты.
Но стоит только запихнуть эту функцию в onClientRead ServerSocket'a - сообщение получает только первый подключившийся.

Кто ещё сталкивался с такой траблой?

 

До сих пор не понял как, но проблему исправил

 

У меня в этом кусе кода сплошные ошибки

Code:

begin
y0:=0;
h:=100
g:=9.8;
t:=h/g;
y:=y0;
Timer1.Enabled:=true;
end;

Компилятор не понимает y0, h, g и т.п.

 

обьявить надо переменные
var y0, h, g : integer;

 

Куда это вставлять? Я вставил так

Code:

procedure TForm1.Button1Click(Sender: TObject);
var y0, h, g, t, y = integer;
begin
y0:=0;
h:=100
g:=9.8;
t:=h/g;
y:=y0;
Timer1.Enabled:=true;
end;

Но все равно выдает ошибку

 

var y0, h, g, t, y : integer;

 

С : тоже ошибка. Ты скажи куда вставлять код
var y0, h, g : integer;
В какое место?

 

g,t: integer?
А то, что переменной присваивается значение операции деления, а второй вообще десятичная дробь ничего?
Изучите хотя-бы основы.

 

Вот весь код

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var y0, h, g, t, y, : integer;
begin
y0:=0;
h:=100
g:=9.8;
t:=h/g;
y:=y0;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if y0-y<=h then
begin
PaintBox1.Refresh;
PaintBox1.Canvas.Ellipse(y+20,y0+20,y,y0);
y0:=y0+round(t);
end;
else timer1.Enabled:=false;
end;

end.

А ошибок много всяких разных.
Конкретно по var y0, h, g, t, y, : integer;
пишет Identifer expected but ':' found

 

Ну а что нужно делать?

 

RTFM...
1
var y0, h, g, t, y, : integer; кому убери
2
Опиши переменные h и t правильным типом. В твоем случае это Real.

 

Империал

PHP:

unit Unit1;
    interface   
 uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, ExtCtrls, StdCtrls;    
type    TForm1 = class(TForm)      
Image1: TImage;      
Button1: TButton;      
Timer1: TTimer;      
procedure 
Button1Click(Sender: TObject);      
procedure Timer1Timer(Sender: TObject);    
private     y0,h,g,t,y : integer;      
{ Private declarations }    
public      
{ Public declarations } 
   end; 
   var    Form1: TForm1;  
  implementation    {$R *.dfm} 

   procedure TForm1.Button1Click(Sender: TObject);   
 begin 
 y0:=0;   
 h:=100;    
g:=9; 
   t:=h mod g;  
  y :=y0;  
  Timer1.Enabled:=True; 

   end;  
  procedure TForm1.Timer1Timer(Sender: TObject);  
begin 
 if y0-y<=h then  
  begin   
 Image1.Canvas.Ellipse(y+20,y0+20,y,y0);  
  y0:=y0+round(t); 
 end  else timer1.Enabled:=false;  end; 
   end.  

 

Каким образом это сделать?