mantasurnieza

type date = record metai, menuo, diena : word; end; // skirtumas tarp dvieju datu function keliamieji (metai : integer) : boolean; begin keliamieji := (metai mod 400 = 0) or (metai mod 100 <> 0) and (metai mod 4 = 0); end; // menesio dienu skaicius function dienu_skaicius (data : date) : integer; begin if (data.menuo = 4) or (data.menuo = 6) or (data.menuo = 9) or (data.menuo = 11) then dienu_skaicius := 30 else if data.menuo = 2 then if keliamieji(data.metai) then dienu_skaicius := 29 else dienu_skaicius := 28 else dienu_skaicius := 31; end; // skirtumas

http://en.wikipedia.org/wiki/Sorting_algor...ting_algorithms išsirink :D

program atsitiktiniai; type arr = array[1..10] of boolean; var viso, i, skaicius : integer; skaiciai : arr; begin randomize; for i := 1 to 10 do skaiciai[i] := false; viso := 10; while viso > 0 do begin skaicius := random (10) + 1; if not skaiciai[skaicius] then begin dec (viso); Write (skaicius, ' '); skaiciai[skaicius] := true; end; end; Readln; end.

Sunkus laikotarpis buvo, visai laisvo laiko nebeturėjau :D liko tik kelios dienos iki olimpiados, reiktų susiimti :D Taip, visus uždavinius iki šito pasidariau. Dabar bandysiu tą optimalų sprendinį sukonstruoti :D Edit: puiku, padariau. Dviejų testų nepraeina dėl per ilgo vykdymo laiko, bet čia jau ne taip svarbu, ką nors sugalvosiu. Reiki kibti į kitus uždavinius, matau ten su grafais yra neblogas :D Rimai, dar kartą labai ačiū :D

o kur <form>? Šitaip nesiunčia juk jokių duomenų.

O ką su ta CRT turėsi daryti? Spalvas nebent keisti.

Dėkui už svenkinimus, bet tikėjausi geriau :) o klaidą tai aš palikau, nes šita funkcija panaikina tik pirmą elementą . function isimti (arr : masyvas; n : integer) : arr; var i : integer; begin dec (arr[0]); for i := n to arr[0] do arr[i] := arr[i+1]; end; Dabar teisinga.

http://www.google.com/search?q=pascal+proc...lient=firefox-a pirmas linkas ;)

function isimti (arr : masyvas; n : integer) : arr; var i : integer; begin dec (arr[0]); for i := 1 to arr[0] do arr[i] := arr[i+1]; end; Čia masyvo nulinis elementas rodo masyvo ilgį. Pašalinamas n'tasis elementas.

Reikia. Aš tau tik funkcijas sprendžiančias uždavinius parašiau, o ne duomenų nuskaitymą.

function skaitmenusuma (n : integer) : integer; begin skaitmenusuma := 0; while n > 0 do begin skaitmenusuma += n mod 10; n := n div 10; end; end; function antra (n : real) : integer; begin antra := trunc(sqrt(n)); end;

Reikia dėti į tą failą, kurį nurodai mokejimai.lt puslapyje.

program Bevardė10; var i : integer; suma : int64; begin suma := 0; for i := 1 to 30 do suma := suma + power(2, i); WriteLn (suma); Readln; end.

Spėju į laptopą rašai. Taip?

Viskas iki čia aišku :biggrin_xmas: O kaip man dabar tas slidžių poras gauti? Nes prašo ne tik sprendinio vertės, bet ir pačio sprendinio. Smagu kad čia lankosi žmonių, galinčiu padėti ne tik su mokykliniais uždaviniais. Ačiū, Rimai. :)

Arba aš nesupratau arba suklydai tu. Aš sprendinio vertę apibrėžiau taip: n - paskutinė nepanaudota slidė; p - sudarytų porų skaičius; k (n, p) = begalybe; , kai n < 2*p k (n, p) = l[1] - l[2]....+ l[n - 1] - l[n]; , kai 2*p = n k (n, p) = min (k(n-1, p), k(n-2, p-1) + l[n] - l[n-1]); , kitais atvejais. sprendinio vertei rasti pasirašiau funkciją: function l (n, p : integer; arg : arr) : longint; var i : integer; begin if n < 2*p then l := maxint; else if 2*p = n then begin l :=

Y(a, n) = a^(n*n)

Kad aš čia niekur to paprastumo nematau :) Godusis algoritmas netinka.

Pridedu uždavinį. Reiktų idėjos kaip jį spręsti, nes stoviu vietoje :) Lyg ir dinaminio programavimo uždavinys. Bet šitoje srityje neturiu pakankamai patirties. Gal kas užvesit ant kelio? DP.pdf

Tai pasakyk kaip sutvarkei :)

Suki ciklą ir tikrini visus žodžius su šita funkcija: function tinka (zodis : string) : boolean; begin tinka := zodis[1] = zodis[length(zodis)]; end; O jei nemoki nuskaitymo pasidaryti, sakyk.

program uzdarbislt; var a, b, suma, sandauga, i : integer; begin ReadLn (a, b); suma := 0; sandauga := 1; for i := a to b do begin sandauga := sandauga * i; suma := suma + i; end; writeln(sandauga - suma); Readln; end. Viskas veikia.

suma := 0; sandauga := 1; for i := a to b do begin sandauga := sandauga * i; suma := suma + i; end; writeln(sandauga - suma);

Tu tikras kad a<b ? jei taip tai gerai, bet jei ne tai ciklą reiktų sukti for i := min(a, b) to max(a, b) taip pat nepamiršk kad funkcija min yra tik math bibliotekoje.

Turėtų sąlygoje būti parašyta kiek simbolių skiriama vardui ir pavardei. Tai bus konstantos vardui ir pavardei. program uzdarbis; const vardui = 10; pavardei = 11; type studentas = record vardas : string[vardui]; pavarde : string[pavardei]; vidurkis : real; pazymiu : integer; pazymiai : array[1..100] of integer; end; studentai = array[0..100] of studentas; procedure vidurkiai(var arg : studentai); var i, j, suma : integer; begin for i := 1 to arg[0].pazymiu do begin suma := 0; for j := 1 to arg[i].pazymiu do suma += arg[i].pazymiai[j]; ar