Помогите сделать задачи с кнопками в Lazarus

[ReZiStOr]

Помогите сделать задачи с кнопками в Lazarus

вот готовые работающие задачи!
подскажите как их прописать в лазарусе? нужно чтоб с кнопками с окошками было!
кнопки и др я сделаю сам подскажите как прописать её?

program project1;
var
a,p,c:integer;
i:real;
begin
WriteLn('vvdite kollichevstvo smorodini, zatem kolvo sahara valy, zatem veri');
ReadLn(a,c,p);
i:=(a/2)*3;
if (c=i) and (p=i) then WriteLn('pravi obe') else
if c=i then WriteLn('prava valya') else
if p=i then WriteLn('prava vera') else
WriteLn('obe ne pravi');
readln;

end.



вот вторая

var
a:array [1..30] of integer;
i,z:integer;
begin
randomize;
for i:=1 to 30 do
begin
a:=random(501)+500;
writeln(' a[',i,']=', a, ' ');
if ((a mod 5)=0) and ((a mod 8)=0) then z:=z+a;
end;
writeln('ssumma=', z);
readln;
end.

 

[ReZiStOr]

плиз помогите

 

[ReZiStOr]

:tehnari_ru_138:

 

[kreol]

у меня ни лазаруса ни дельфи нету. но
1)
создаете форму. туда кидаете 2 label 3 edit 1 button
примерно такое размещение:
label1 edit1 edit2 edit3

label2

button

два раза клацаем на кнопку. открывается форма для ввода кода...
далее копируем от var до WriteLn внутрь. и заменяем WriteLn на label1.caption := {тут то, что в скобках}
и ReadLn на
a := edit1.text;
{p и c соответствунно...}

получится примерно следующее

procedure TForm1.Button1Click(Sender: TObject); ; ...{ну или что-то такого}
[B]var
  a,p,c:integer;
  i:real;[/B]
begin
{тут будет курсор...}[B]
Label1 := 'vvdite kollichevstvo smorodini, zatem kolvo sahara valy, zatem veri';
a := edit1.text;
p := edit2.text;
c := edit3.text;
i:=(a/2)*3;
if (c=i) and (p=i) then [/B][B]Label2 :=[/B][B] 'pravi obe' else
   if c=i then [/B][B]Label1 :=[/B][B] 'prava valya' else
    if p=i then [/B][B]Label1 := [/B][B]'prava vera' else
      [/B][B]Label1 := [/B][B]'obe ne pravi';[/B]
end;

дальше комплируем и выполняем. вводим в edit1,2,3 соответственно a p c и клацаем на кнопку. в последней label видим резулльтат...

п.с. лазару еще довольно сырой так что...
и возможно название процедуры другие... но думаю разберетесь если что..

2) задача примерно такая же

 

[kreol]

ой. немного не то в коде...

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var a,p,c:integer;
  i:real;
begin
label1.caption:= 'vvdite kollichevstvo smorodini,zatem kolvo sahara valy, zatem veri';
a := strtoint(edit1.text);
p := strtoint(edit2.text);
c := strtoint(edit3.text);
i:=(a/2)*3;
if (c=i) and (p=i) then Label2.caption := 'pravi obe' else
   if c=i then Label2.caption := 'prava valya' else
    if p=i then Label2.caption := 'prava vera' else
      Label2.caption := 'obe ne pravi';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    label1.caption:= 'vvdite kollichevstvo smorodini,zatem kolvo sahara valy, zatem veri';
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:= 'vvdite kollichevstvo smorodini,zatem kolvo sahara valy, zatem veri';
end;

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

 

[ReZiStOr]

спасибо! все работает!

распишите 2 плиззз! я пробовал не получается у меня её прописать!

 

[kreol]

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array [1..30] of integer;
  i,z:integer;
begin
  z = 0;
  randomize;
  for i:=1 to 30 do
   begin
    a[i]:=random(501)+500;
    memo1.clear;
    memo1.lines.add('a[',i,']=', inttostr(a[i]));
    if ((a[i] mod 5)=0) and ((a[i] mod 8)=0) then z:=z+a[i];
   end;
  memo1.lines.add(' ');
  memo1.lines.add(inttostr(z));
end;

вот обработчик кнопки. вроде так.

на форму кидаете один компонент Tmemo
и Tbutton

 

[Ksenchik]

Помогите написать программу:tehnari_ru_281: !!!!!
1.переписать элементы массива целых чисел x в обратном порядке в массив y. вычислить количество четных,нечетных и нулевых элементов массива y.
2.переписать элементы массива целых чисел x в обратном порядке в массив y. вычислить процент четных,нечетных и нулевых элементов массива y.перевести элементы массива y в двоичную систему счисления.
Буду очень благодарна!!!можем договориться о вознаграждении

 

[зарина]

здравствуйте,помогите,пожалуйста с лазарусом!мне нужен код на программу "светофор".нигде не могу его найти...буду очень благодарна за помощь!