-
Pranešimai
1.212 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
100%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Rhymond Pranešimai
-
-
Gimtadienis
program Gimtadienis; Const Cduom = 'U1.txt'; Crez = 'U1rez.txt'; Var yy, mm, dd, klaida : integer; data : string; Kelemieji : boolean; F, B : text; {------------------------Funkcijos ir procedûros------------------------------} Procedure nuliukas(var strc : string; x : integer); Begin if x >= 10 then str(x, strc) else begin str(x, strc); strc := '0' + strc; end; End; Procedure Rasyti(a, b : integer); Var stra, strb : string; Begin nuliukas(stra, a); nuliukas(strb, b); WriteLn(F, yy,'-',stra,'-',strb); End; procedure tikrinti(a, b : integer); Var tinkaa, tinkab : boolean; maxb : integer; Begin maxb := 0; tinkaa := false; tinkab := false; if a <= 12 then begin tinkaa := true; if (a = 1) or (a = 3) or (a = 5) or (a = 7) or (a = 8) or (a = 10) or (a = 12) then maxb := 31 else begin if (a = 2) then if kelemieji = true then maxb := 29 else maxb := 28; maxb := 30; end end else tinkaa := false; if b <= maxb then tinkab := true else tinkab := false; if (tinkaa = true) and (tinkab = true) then Rasyti(a, b) else begin klaida := klaida + 1; if klaida = 2 then WriteLn(F, 'NETEISINGA'); end; End; Procedure mmdd(var x, y : integer); Var str : string; er : integer; Begin str := copy(data,1,2); val(str, x, er); str := copy(data,4,2); val(str, y, er); End; Function arkelemi : boolean; Begin If yy mod 4 = 0 then arkelemi := true else arkelemi := false; End; Procedure spresti; var m, me, d : string[2]; er : integer; Begin m := copy(data,7,2); val(m, yy, er); if yy <= 6 then yy := 2000 + yy else yy := 1900 + yy; kelemieji := arkelemi; Assign(F, Crez); ReWrite(F); mmdd(mm,dd); tikrinti(mm,dd); mmdd(dd,mm); tikrinti(mm,dd); Close(F); End; Procedure Duomenys; Begin klaida := 0; Assign(B, Cduom); Reset(B); ReadLn(B, data); Close(B); End; {--------------------------Pagrindinë programa--------------------------------} begin Duomenys; spresti; end.
Mokslininkas
program mokslininkas; Const Cduom = 'U1.txt'; Crez = 'U1rez.txt'; dienos = 3; Cmax = 50; Type en = 2..100000; ce = 2..50; Var N : en; C : ce; blusos, buvo : integer; {-------------------------Funkcijos ir procedûros-----------------------------} Procedure Rasyti; Var F : text; Begin Assign(F, Crez); ReWrite(F); WriteLn(F,buvo, ' ',N); Close(F); End; Function Skaiciuoti: integer; Var i, x, k, y : integer; Begin buvo := 0; For i := 2 to Cmax do Begin k := blusos; y := 0; For x := 1 To dienos Do If k mod i = 0 Then Begin k := k div i; y := y + 1; If y = 3 Then begin Skaiciuoti := i; buvo := k; End; End; End; End; Procedure Duomenys; Var B : text; Begin Assign(B, Cduom); Reset(B); ReadLn(B, blusos); Close(B); End; {---------------------------Pagrindinë programa-------------------------------} begin Duomenys; N := Skaiciuoti; Rasyti; end.
Šitas su blusom kažkoks netoks ;)
Prašom ;)
-
-
Tokią įsimesk ;)
-
Pastaba:
Blogas yra super!
-
jau yra ir c++
-
-
-
1.
program Noname3; var stri : string; sk, klaida, x, len, i : integer; begin WriteLn('iveskite skaiciu: '); ReadLn(sk); x := 1; klaida := 0; Str(sk, stri); len := Length(stri); For i := len downto 1 do begin if stri[i] <> stri[x] then klaida := klaida + 1; x := x + 1; end; if klaida = 0 then WriteLn('Polindromas') else WriteLn('Nepolindromas'); ReadLn; end.
2.
program Noname3; Var x, i : integer; begin WriteLn('Rasykite seka(0 baigia): '); ReadLn(x); While x <> 0 do Begin ReadLn(x); if (x >= 5) And (x <= 15) then i := i + 1; end; WriteLn('I intervala [5;15] patenka ',i,' skaiciai'); ReadLn; end.
-
gal mentų aparatas geresnis, nu čia tų gal daug.
-
-
prajuokino ;) ačiū
-
-
Sveiki. Norėjau paklausti, ar kai kuriate naują dizainą visą kodą rašot iš naujo? Turiu omenyje theme.php ir .css failą.
Kiek dirbau tiek ant default temos viską dariau ;)
-
Gal kas galite padėti ir pasakykite, kaip teisingai įsivesti Lietuvišką valiutą į OC cms'ą? :) Kol kas defoultiškai duodama tik EU/USD/GBP, gal kas padėsite su Lieto įvedimu? Kaip sužinoti tą tikslų konvertacijos skaičių? :)
Vesk 1 aš dariau 1 ;)
-
Išbandžiau su 1.5.1.3 versija, veikia puikiai.
Einame į /catalog/controller/module ir keičiame featured.php į šį failą.
Labai dėkoju ;)
-
neinvestuojant, nenolifinant neskamba šitie du žodžiai prie uždarbis, Taip centus užsidirbt gali bux.to ar panašaus tipo svetainės moka pinigus, bet kaip esu girdėjąs, kad tu už elektrą prie kompo daugiau išleisi negu užsidirbsi ateina žiema, varyk sniego kast ;) arba dirbi daug iš peties arba investuoji pinigus norėdamas gauti dar didesnius, tokia yra paprasta logika ;)
-
Rinkčiausi A su paveiksliuku
Aišku žiūrint kaip viskas pateikta pirmiausia. Bet kartais užtenka pažiūrėt į paveiksliuką ir filmas būna nusakytas ;) Na man pirmą vaizdą apie filmą duoda pavadinimas ir paveiksliukas, jei jie man nepatinka, aprašymo tikrai nesivarginsiu skaityt. ;)
-
Tai tą užklausą tiesiog pakeisk pridėdamas
order by rand()
Šitą radau, bet neradau kur įmest ;) tai rytoj su šviesia galva panagrinėsiu rasiu pasidarysiu ;) ačiū už pagalbą.
-
Gal kas turi ar žino kur rasti Random skriptuką. Noriu, kad mestų atsitiktinai prekes. opencart versija 1.5
-
arba parduok įdėją, jeigu nenori nei samdytis, o pats daryti nemoki ;)
-
ai visai patiko ;) tik taip ta reklama rėžia akį, bet nieko nepadarysi dizainas kaip dizainas apie farmingą žalias gražu ;)
- Frankenstein sureagavo į tai
-
1
-
ne, kaip tik reikia tos dalies kuri yra po kableliu, bet ja atvaizduoti kaip sveikaji skaiciu.
Padaryk sveiką dalį ir atimk iš skaičiaus :)
-
daryk trunc() funkciją jei sveikos dalies reik
nelabai suprantu problemos, bet jei dėl tų negražių formatų, tai spausdindamas atsakymą gali bandyti kažką tokio:
writeln(liekana:7:0);
Tai reiškia, kiek skaitmenų spausdinti prieš ir po kablelio, nu ar kažkas tokio.
7 - reiškia kiek skiri vietos skaičiui
0 - kiek po kablelio skaičių
Čia pataisiau ;)
-
Daryti nuorodas
<a href="nuoroda">Tekstas</a> //paprasta nuoroda
<a href="nuoroda"><img src="paveikslelio nuoroda" /></a> //nuoroda su paveiksleliu
Pascal'is uzdavinys reikia pagalbos
Programuotojų kampas
Atrašyta · Redagavo raima220
Tam reikalingas rikiavimo algoritmas
procedure Burbulas(var a:array of integer; N:integer);
var i, j, t: integer;
begin
for i:=N downto 1 do
for j:=2 to i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end
end;
http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas