Sam

program Bevardė2; var k, r, j, m,h:integer; n,n2,n3, n1,n4:real; begin WriteLn('kiek petras laimejo'); Readln (n); WriteLn('kiek procentu duos valstybei'); Readln (k); WriteLn('kiek kamset isleidzia pietka'); Readln (r); for m:= 1 to 10 do begin n2:= (n*k)/100; //kiek atyduoda bankui n1:= n-n2; //kiek lieka po atydavimo n3:= n1*0.06; n:= n1+ n3; n4:=n-r; writeln (m,' sask liko ', n4,' isleido',r,'uzaugo',n); if n<r then writeln ('petriukas pasime pinigus'); if n=0 then writeln ('saskaita tuscia'); end; readln(); end. uzduoti radau internete Petriukas Laimėjo auks

:) pagelbekit :)

kaip reiketu pascalio kalba parasyti uzdavinio 1 daly . petriukas gali suvalgyti 20% turimu obuoliu per diena bet ne maziau 3. jei lieka maziau negu 3 , jis juos paima ir suvalgo ir turi rasyt (obuoliu nebera) kaip mazdau turetu atrodyti sita salyga?

program Lektuvas; var a, b, c, d, val, min : longint; laik : longint; begin Writeln('Iveskite reiksmes'); Readln(a, b, c, d); If ( 0 <= a) and (a < 23) and (0 <= b) and (b < 60) and (30 > C) and (c < 600) and (-12 <= d) and (d <= 12) then begin laik := a * 60 + b; // skaiciuoja kada lektuvas pakilo (minutemis). laik := laik + c + d * 60; // skaiciuoja kada nusileis (minutemis). val := laik div 60; // skaiciuoja kiek valandu bus nusileidimo metu. min := laik - val * 60; // skaiciuoja kiek minuciu bus nusileidimo metu. Writeln('Lektuvas nusileis ', val

###### matai gal ir as buciau taip parases :lol: bet truksta patirties ir loginio mastymo

aj jo jo , supratau jau :DD bet va dar beda program lektuvas; var a, b, c, d, p:integer; begin WriteLn('iveskite 1lektuvo laikas pakilimo h, min, kiek skris min,vietos laiko skirtuma'); Readln(a,b,c,d); p:=a+b+c-d; writeln ('nusileis frankfurte ',p) ; readln(); end. kur tuos apribojimus ikisti?

nera formules, yra tik klausimas, Kada nusileis lėktuvas. Lėktuvas pakilo iš Frankfurto aerouosto, kai buvo A valandų ir B minučių. Lėktuvas ore praleis C minučių. Lėktuvo nusileidimo ir pakilimo vietose laikas skiriasi D valandų. Užduotis. Parašykite programą, kuri nustatytų, kuriuo laiku nusileis lėktuvas. Lėktuvo nusileidimo laikas turi būti užrašytas valandomis ir minutėmis. Pradiniai duomenys pateikiami vienoje eilutėje ekrane. Galioja ribojimai: 0£A<23, 0£B<60, 30£C£600, –12£D£12; <<kas do cia per apribojimai ir kaip juos uzrasyti

Galioja ribojimai: 0£A<23, 0£B<60, 30£C£600, –12£D£12; cia visai as ne i tema, bet ka reiskia sitie apribojimai paskalyje?

juk rasiau temoj pradziamokslis :D biski per sunku tad nesiu savo sukurta ;D nes nlb suprantu is kur tie mas ir t.t. :)

/

jo dekui , as jau ta issiskinau is knygos pavyzdziu :DD

program nd; var a, b, c, d, l, j:integer; begin writeLn ('iveskite keturzenkli skaiciu'); readLn (a, b, c, d); if (a = b) or (a = c) or (a = d) or (b = c) or (b = d) or (c = d) then l:= a + b + c + d else j:= a * b * c * d ; writeln ('yra lugiu', l ,'nera lygiu ', j); readln; end. mano pirmas kodas be niekeno pagalbos ... as manau kad ji galima dar kaskaip pakeisti ir suredaguoti . cia turbut buvo lengviausia iseiti pagal mane :D . bet atitinka i uzduoti ... kuri buvo "ar tiesa kad duotojo skaiciaus m bent du skaitmenys yra lygus, jeigu bent du skaitmenys lygus, tai visus skait

i := 0; for k := 1 to n do begin i := i + t; is kur tas k atsirado ? :) ir supratau dabar esme =]]]

tai va, pradejau mokytis free pascal . nieko nelaukes pradejau rasyt programas is knygu, ir uzstrigau prie vienos uzdeuoties, Prie kasos langelios stovi N zmoniu ,.kasininke i-ajam zmogiu skiria ti laiko. Sudarykite programa , kuri apskaiciuotu kiekvieno kliento sugaista laika sioje istaigoje, pradiniai duomenys ivedami is klaviaturos. pagalvokite apie vaizdu rezultatu apipavidalinima. ... masciau masciau ir pradejau rasyt koda, taciau man gavos jis nei sioks nei toks ir pasimeciau program klientai; var n, t:integer; i:real; begin WriteLn ('iveskite kasininkes darbo laika valandomis