|
Programiranje Programski jezici, tehnike, alatke... |
|
Alatke vezane za temu | Vrste prikaza |
13.5.2020, 15:55 | #1 |
Novi član
Član od: 6.4.2020.
Poruke: 2
Zahvalnice: 0
Zahvaljeno 0 puta na 0 poruka
|
Tekstualni zadatak
Zna li neko kako se ovo rjesava, samo do ovdje znam?
Korisnik isčitava broj iz tekstualne datoteke na disku i unosi jedan broj preko edit boxa. Upoređuje ta dva broja i u zavisnosti od rezultata poređenja ispisuje sljedeće poruke: Ako su oba broja ista, ispisuje poruku (u labelu): „Brojevi su jednaki.“ Ako je unijeti broj veći od očitanog iz datoteke, ispisuje poruku (u novi prozor i labela mora biti prazna): „Unijeti broj je veći.“ Ako je unijeti broj manji od očitanog iz datoteke, izračunava kvadrat unijetog broja i provjerava da li je unijeti broj djeljiv sa 3. U poruci ispisuje rezultat ovog izračuna i provjere (u listbox). var Form1: TForm1; a:string; b:integer; f:Text; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin a:=(Edit1.Text); b:=sqr(a); assignFile(f,'C:\datoteka.txt'); rewrite(f);; CloseFile(f); if a=f then Label2.Caption:='Brojevi su jednaki.'; if a>f then Label2.Caption:='„Unijeti broj je veci.'; if a<f then Lisbox1.Items:='inttostr(b)'; if a mod 3=0 then showmessage('Broj je djeljiv sa tri!); end; end. |
Bookmarks sajtovi |
Alatke vezane za temu | |
Vrste prikaza | |
|
|
Slične teme | ||||
tema | temu započeo | forum | Odgovora | Poslednja poruka |
Zadatak iz matematike... | Down Force | Brbljaonica | 84 | 29.6.2010 12:39 |
c++ zadatak | sunce86 | Programiranje | 19 | 7.6.2010 22:37 |
Kviz na Pinku - matematički zadatak! | stevan10 | Brbljaonica | 15 | 18.3.2009 13:00 |
Jedan zadatak u C-u | RuSkO_17 | Programiranje | 18 | 17.11.2008 17:30 |