Új hozzászólás Aktív témák
-
Csajó
csendes tag
szia!
valahogy így néz ki a programom,csak a vége már nem kóser,azzal már nem igazán tudok mit kezdeni,ez már nagyon kifogott rajtam
egyébként nagyon szépen köszönömunit gondoltam;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
szam:integer;implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
szam := random(60)+1;
end;procedure TForm1.Button1Click(Sender: TObject);
var tipp :integer;
begin
tipp:= StrToInt (Edit1.Text);
if tipp <szam then
Label3.Caption := 'Nagyobb szamra gondoltam'
else if tipp >szam then
Label2.Caption := 'Kissebb szamra gondoltam'
else
begin
Label3.Caption := 'Eltaláltad';
if MessageDlg (' : ) ',end;
end;end.
Új hozzászólás Aktív témák
- Battlefield 6
- Melyik tápegységet vegyem?
- Profi portréfotós lehetsz ezzel a telefonnal
- Linux kezdőknek
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen billentyűzetet vegyek?
- Windows 11
- Milyen belső merevlemezt vegyek?
- Futás, futópályák
- További aktív témák...
- Gyors, Precíz, Megbízható TELEFONSZERVIZ, amire számíthatsz! Akár 1 órán belül
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Motorola Moto G32 / 8/256GB / Kártyafüggetlen / 12 Hó Garancia
- Bomba ár! Dell Latitude E6220 - i7-2GEN I 8GB I 128SSD I 12,5" HD I HDMI I Cam I W10 I Garancia!
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest