Ú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öm
unit 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
- Formula-1
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- OLED monitor topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- A fociról könnyedén, egy baráti társaságban
- Kompakt vízhűtés
- Canon MILC: EOS R és M topik
- Akciófigyelő: Megnyílt a Xiaomi hivatalos magyar webáruháza
- Videó stream letöltése
- További aktív témák...
- BESZÁMÍTÁS! ASUS H510M i5 10400F 16GB DDR4 512GB SSD RTX 3060 Ti 8GB ZALMAN T4 Plus CHIEFTEC 700W
- HIBÁTLAN APPLE WATCH ULTRA 2 NATURAL TITANIUM 49MM -1 ÉV GARANCIA - MS3713, 100% AKKUMULÁTOR
- GYÖNYÖRŰ iPhone 12 Mini 64GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3456
- Xiaomi Redmi Note 12 128GB, Kártyafüggetlen, 1 Év Garanciával
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő




