MyCity :: Pascal

igra moj broj u delphiju

nobody@mycity.rs (dacha47) — Thu, 20 Oct 2022 21:53:48 +0100

Potrebna mi je pomoc oko ove igre u delphiju, to mi je tema za maturski rad i pored toga asocijacije, ali oko toga nemam brige. Nisam siguran koliko bih napredno mogao u delphiju da napravim igru(tipa da se pre svakog pritisnutog stop, brojevi menjaju 20 u sekundi pa se izabere pritiskom na stop; time bar koji se prazni kako vreme istice i tako te neke fore) a uostalom ja nemam ideju od cega da pocnem. Ima li neko ideju, pomoc ili neki primer koji bih mogao da iskoristim?

StBits funkcije i BitWise operacije

nobody@mycity.rs (mateklajos) — Thu, 13 Jan 2022 20:21:10 +0100

Po�tovani Delphi programeri
Da li je neko koristio StBits unit funkcije? Konkretno "orBits" i "andBits" funcje, koje bi trebali da daju uniju i presek dva skupa, ako su skupovi objekti tipa TstBits ili TtaBits? Ujedno da li je neko od Vas ekspert i starim BitWise operatorima?

Lazarus ne prikazuje prozor

nobody@mycity.rs (mpman) — Sat, 26 Dec 2020 01:31:12 +0100

----------- Napisano: 26 Dec 2020 1:31 ---------

Imam jedan mali problem. Naime, pre oko godinu dana napravio sam jedno malo 'podprogram�e' za definisanje geometrije nosa�a. Me�utim, danas kada sam hteo da otvorim fajl projekta, do�ekao me je kod, ali ne i prozor GUI-a. Ako pritisnem F12 ni�ta se ne de�ava. Ako kompajliram i buildujem program, ne prijavljuje ni jednu gre�ku. Ako probam da pokrenem .exe fajl, on se pokrene, ali nije vidljiv na ekranu.

----------- Dopuna: 26 Dec 2020 1:44 ---------

Ako stavim da se program pokre�e 'maximised' onda vidim prozor, ali ne mogu da pristupim Form/unit view prozoru Lazarusa da bih mogao da menjam elemente programa

Formatiranje datuma

nobody@mycity.rs (mpman) — Mon, 06 Jan 2020 11:42:53 +0100

Pozdrav svima.

Pravim program�i� kao 'kontejner' za ro�endanski poklon (pismo).
Hteo sam da namestim da ne mo�e da se �ita ako se otvori pre ili posle ta�nog datuma.
Na primer, ako je danas 6.1.2020, ho�u da ne mo�e da se otvori ni 5.1.2020 ni 7.1.2020.

To sam uspeo da izvedem ovako:

const


  rodjendan='1/6/20';





Begin


  datum:=DateToStr(Date);


  if datum=rodjendan


  then


  begin odgovor:='Happy birthay !';





  end


  else begin odgovor:='Today is not your birthday.'; end;

Me�utim, ukoliko je datum na drugom ra�unaru prikazan kao 6-Jan-20, program ne�e raditi.
Postoji li na�in da se ovo izvede bolje i elegantnije nego ja da gatam u pasulj kako se prikazuje datum na sistemu?

Trebam pomoc oko programa

nobody@mycity.rs (anelsahovic17) — Thu, 29 Nov 2018 22:58:54 +0100

Moze li mi neko pomoci kako da napravim progream koji trazi unos od 35 brojeva i tako 3 puta,zatim sve brojeve koji se ponavljaju da ispise ili vec postoji slican program.
Napravio sam tako da provjerava svaki broj sa svakim ali to je predugo i ne mogu ga ucitati na pascal na mobitelu jer ga ne mogu kopirati i jednostavno crasha.Program mi radi na ra�unaru ali na mobitelu ne mogu pokrenuti console aplikaciju..Tako da ako bi mi neko pomogao bio bi muj veoma zahvalan D

Besplatan Delphi 10.1 Berlin Starter Edition do 9.9.2016

nobody@mycity.rs (Srki_82) — Tue, 23 Aug 2016 14:43:34 +0100

Embarcadero nudi Starter verziju Delphi 10.1 besplatno do po�etka septembra. Svako mo�e da skine jednu licencu preko svoje mail adrese. Detalje mo�ete pogledati ovde: [Link mogu videti samo ulogovani korisnici]

Paskal zadatak

nobody@mycity.rs (hermozone) — Tue, 09 Feb 2016 17:34:40 +0100

Имам сутра полагање испита из Паскала, радим писмено, па да питам да ли може неко да ми одради овај задатак:

1. Написати програм којим се формира датотека olimpijada.dat која садржи име такмичара, годину рођења, број освојених поена и земљу из које је долази такмичар. Слог датотеке има поља ime, godina, poeni и zemlja. Унос података се завршава када се уместо имена такмичара унесе реч �kraj�.
Након формирања датотеке омогућити штампање на екрану имена такмичара који су освојили више од 100 поена, као и њихове земље. Одредити и на екрану исписати колико постоји различитих земаља у датотеци. Једна земља може имати више такмичара.

Унапред хвала на одговору.

Problem u Lazarusu-��?!

nobody@mycity.rs (hanssel70) — Wed, 27 Jan 2016 20:56:05 +0100

Pozdrav! Treba mi jedna informacija u vezi sa Lazarusom, da li postoji neki nacin da se slova �,�,�,�,� unesu tj ispisu kada se napravi program u Lazarusu?

Neko ko zna Pascal?

nobody@mycity.rs (LoXo) — Wed, 20 Jan 2016 21:10:50 +0100

Odmah da kazem da mi treba za skolu

Potreban mi je neko sutra oko 2 sata da mu posaljem 2-3 zadatka koja treba da uradi sto pre. Najkasnije pola sata nakon sto posaljem. Takodje isto od oko 19:20 cu imati 2 zadatka da se uradi u sto kracem roku. Zadaci su nekome ko zna da radi laki, skolski su
Radi se o funkcijama, podprogramima, procedurama, itd.

Treba mi za prolaznu ocenu, placam 5$.

Pomo� oko rje�avanja zadatka

nobody@mycity.rs (Mladen Planojevi�) — Thu, 22 Jan 2015 16:59:22 +0100

Pozdrav,
prije nekoliko dana dobio sam zadatak:Napisati program koji ispituje da li je uneseni broj x pozitivan, negativan ili jednak 0. Ne mogu nikako da ga uradim. Gdje sam pogrije�io i kako se ovaj zadatak radi?
(evo i slike)

rad studio delphi xe6

nobody@mycity.rs (ANOMALIJA) — Sat, 20 Dec 2014 11:07:24 +0100

instaliro sam nedavno rad studio xe6 i uradio obicnu bazu podataka ,i prije sam pravio isti zadatak milion puta i non stop mi javlja ovu gresku network initialization failed
file or directory does not exist
file:c delphi, nema sta nisam radio pokusavo otvaro BDE administrator menjo kako sumi savjetovali ,gledo sam preko neta i nista nije pomoglo molio bi za pomoc .

Pomoc oko zadatka - Fibonacijevi brojevi i Pascal

nobody@mycity.rs (Immortal^^) — Mon, 24 Nov 2014 21:03:18 +0100

----------- Napisano: 24 Nov 2014 21:03 ---------

U Pascalu moram napraviti program: unese se niz nekih brojeva, a onda se od tih brojeva koji se unesu ispisu samo Fibonacijevi brojevi i redni brj koji su imali u tom nizu koji sam unela. Kako da se ispisu ti Fibonacijevi brojevi i njihov redni broj u prvobitnom nizu ?

----------- Dopuna: 24 Nov 2014 21:20 ---------

ovo je domaci

----------- Dopuna: 24 Nov 2014 21:22 ---------

zadatak je pod 1.

Problem 'value assigned "" to never used'

nobody@mycity.rs (jake_long_) — Tue, 28 Oct 2014 20:11:27 +0100

Naime, kao sto sam naslov glasi, 'mali' problem koji nisam uspeo da resim preko debuggera (iskreno tek sam poceo da ucim paskal ove skolske godine, pa mozda sam i preskocio nesto ocigledno, tako da se izvinjavam ako se tako nesto desilo).
Zadatak glasi ovako:
Banka za nove sredise koje unovcavaju vize na 6 i 12 meseci daje kamatnu stopu.
Za 6 meseci 2.25% i fiksni iznos od 100 evra, a za 12 meseci kamatnu stopu 5.9% i fiksni iznos od 120 evra. Izracunati iznos kamate posle isteka roka orocavanja i ukupan iznos na racunu stedise zajedno sa kamatom.
S obzirom na to da ce se mozda nekada menjati kamatna stopa i fiksni iznos, napomenuto nam je da stavimo i te podatke kao promenljive, a ne konstante.
Evo ga moj postupak rada:

implementation





{$R *.dfm}





procedure TForm1.bRacunajClick(Sender: TObject);


var N,K6,K12,D6,D12,Ik,UI:real;


var M:Integer;


begin


N:=StrToFloat(eN.text);


K6:=StrToFloat(eK6.text);


K12:=StrToFloat(eK12.text);


D6:=StrToFloat(eD6.text);


D12:=StrToFloat(eD12.text);


M:=StrToInt(eM.text);


eIk.text:=FloatToStr(Ik);


eUI.text:=FloatToStr(UI);





IF M=6


  then


    begin


    Ik:=N*K6/100;


    UI:=N+N*K6/100+D6;


    end;


IF M=12


  then


    begin


    Ik:=N*K12/100;


    UI:=N+N*K12/100+D6;


    end;


end;





end.

I kad pritisnem start dobijem ovo u BUILDU i ovo u samom programu

Narode, svaka pomoc ili savet su dobrodosli! Hvala!

Kori��enje tastera na tastaturi?

nobody@mycity.rs (respectzr) — Thu, 20 Mar 2014 18:19:07 +0100

Evo tek sam po�eo da radim pascal i prvi put se susre�em sa Lazarus okru�enjem pa mi treba mala pomo�. Tra�io sam na google i nisam uspeo da na�em.

Dakle, imam sliku koja se pomera gore do neke vrednosti kada kliknem neki button (aktivira se timer). E sad, ja ho�u da se ta slika pokrene kada pritisnem npr. enter ili space.
Da li je to mogu�e i kako?

Timer mi je: Timer1
Slika je: bullet
Dugme za aktivaciju timera je: BtnGo

I treba mi jo� da pomeram sliku (neku drugu, ne tu �to ide gore) sa strelicama na tastaturi. Dakle, dr�im levo i slika ide levo, drzim desno i ide desno (bez gore i dole) i tako dok ne do�e do neke granice (zida).

Hvala

Quicksort problem

nobody@mycity.rs (Predrag Djordjevic) — Fri, 28 Feb 2014 16:16:48 +0100

Hteo sam da naucim quicksort algoritam za sortiranje nizova.Znam kako algoritam funkcionise i probao sam da iskucam program.Prvi put mi je radio super, a posle sam mogao samo da ucitam clanove niza i toliko.
Program je napisan u lazarusu:

program project1;





{$mode objfpc}{$H+}





uses


  {$IFDEF UNIX}{$IFDEF UseCThreads}


  cthreads,


  {$ENDIF}{$ENDIF}


  Classes


  { you can add units after this };


type


  niz=array[1..100]of integer ;


var


  a:niz;


  n,i:integer;


procedure razmeni(var a,b:integer);


var


  p:integer;


begin


  p:=a;


  a:=b;


  b:=p;


end;





procedure quicksort(levi,desni:integer;var a:niz);


var


  i,j,d:integer;


begin


  if levi<desni then begin


    i:=levi;


    j:=desni;


    d:=a[desni];


    repeat


    while a[i]<d do i:=i+1;


    while (a[j]>d)and(i<j) do j:=j-1;


    if i<j then razmeni(a[i],a[j]);


    until i=j;


    razmeni(a[i],a[desni]);


    quicksort(levi,i-1,a);


    quicksort(i+1,desni,a);


  end;


end;


begin


  readln(n);


  for i:=1 to n do readln(a[i]);


  quicksort(1,n,a);


  for i:=1 to n do write(a[i],' ');


  readln;


end.

Ako neko moze da mi pomogne bicu jako zahvalan.Hvala unapred!!!