Forum Sveta kompjutera

Nazad   Forum Sveta kompjutera > Test Run > Programiranje

Programiranje Programski jezici, tehnike, alatke...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 13.5.2020, 15:55   #1
Marko Pudic
Novi član
 
Član od: 6.4.2020.
Poruke: 2
Zahvalnice: 0
Zahvaljeno 0 puta na 0 poruka
Post 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.
Marko Pudic je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


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


Sva vremena su po Griniču +2 h. Sada je 23:42.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2024, vBulletin Solutions, Inc.
Hosted by Beograd.com