agnek21

program skaitmenuradimas;
//procedura skaityti duomenis ir rasti skaitmenis
procedure skaitmenys;
var i, s, sk : integer;
begin
   writeln('iveskite sakiciu ');
   readln(sk);
   s := 0;
   while sk <> 0 do
       begin
           s += 1;
           sk := sk div 10;
       end;
   writeln ('skaicius turi ', s, ' skaimenis');
   Readln;
end;
begin
 skaitmenys;
end.

kazkas panasaus..

aš nesuprantu arba aš blondinė, arba tu net pats nesupranti ka parašei :huh:

Parenkite programą, kuri pateiktu faile balsavimo rezultatus,
surikiuotus mažėjančia tvarka, pagal surinktų balsų skaičių.

kur tie balsai pagal ka rikuot? pagal surinktų balsų skaičių.

Visu pirma, tai pati tema, mano nuomone, turėtų būti 'programuotojų kampe'. Visų antra, perskaičius sąlyga ir pažėjus duomenų failą nieko nesupratau ko Tu nori, nes duomenų faile nieko nėra pagal ką būtų galima rikuoti, atlikus kokius nors skaičiavimus.

labas, ką aš galiu pasakyt, nenusirašyk aklai, bet išsiaiškink kas ką daro, nes aš už tave vbe neišlaikysiu :D

program pirkimai;
const Cduom = 'Duom2.txt';
     Crez = 'Rez2.txt';
     max = 100;
type mokiniai = record
       vard_pavard : string[20];
       p_kartai : integer; //pirkimo kartai, dienos
       S : array[1..1000] of real;
     end;
var A : array[1..max] of mokiniai;
   n : integer;
   P : array[1..31] of integer; // dienos kai pirko;
//procedura failo nuskaitymui
procedure skaityti;
var fd : text;
   i, j, d : integer; //d - dienos kada pirko
begin
   assign(fd, Cduom); reset(fd);
   readln(fd, n);

   for i := 1 to n do
       begin
           read(fd, A[i].vard_pavard, A[i].p_kartai);
           for j := 1 to A[i].p_kartai do
               begin
                   read(fd, d);
                   read(fd, A[i].S[d]);
                   P[d] := 1;
               end;
           readln(fd);
       end;
   close(fd);
end;
//funkcija mokinio islaidoms skaicuoti
function m_islaidos (n : integer): real;
var i : integer;
begin
   m_islaidos := 0;
   for i := 1 to 31 do
       m_islaidos += A[n].S[i];
end;
//funkcija parduotuves pajamu skaiciavimui
function parduotuves_pajamos : real;
var i : integer;
begin
   parduotuves_pajamos := 0;
   for i := 1 to n do
       parduotuves_pajamos += m_islaidos(i);
end;
//funkcija dienu, kai nebuvo perkama, skaiciui rasti
function nepirko : integer;
var i, j : integer;
begin
   nepirko := 0;
   for i := 1 to 31 do
       if P[i] = 0
           then nepirko += 1;
end;
//procedura spausdinimui i faila
procedure spausdinti;
var fr : text;
   i : integer;
begin
   assign(fr, Crez); rewrite(fr);
   for i := 1 to n do
       writeln(fr, A[i].vard_pavard, m_islaidos(i):2:2);
   writeln(fr, parduotuves_pajamos:2:2);
   writeln(fr, nepirko);
   close(fr);
end;
begin
   skaityti;
   spausdinti;
end.

Ką manote apie Donatą Montvydą, bei jo atliekamą dainą 'Lobe is blind'?

Kaip sakot yra mums vilčių užimti vietą bent 15-uke? :)

http://www.youtube.com/watch?v=92wzctYvdx4&feature=related

Man tai asmeniškai ta eurovizija toks nesažiningas reikalas atrodo, nes nevisada dainininkai yra vertinami už atliktą dainą. O Donatą Montvydą įvertinčiau gana gerai, nes buvo kur kas prastesnių važiavusių i euroviziją(pvz. pastarieji 2 metai), na aisku čia tik mano nuomonė. :) Taigi kokia yra jūsų nuomonė?

nu paziurejom manau ne vienas...

ko tau reik kad padarytu uz tave kasnors ar paaiskintu kaip daryt?

čia 2009 vbe. o jei dėl atlikimo tai peržėk kaip http://kodai.manualai.lt/pascal/valstybiniu-egzaminu-sprendimai/informaciniu-technologiju-valstybinio-brandos-egzamino-2009-pagrindines-sesijos-uzduoties-sprendimas-2-dalis.html daro gal kils idėjų kaip padaryti ;)

labas,

Aš pati pascalį mokiausi iš G.Grigo knygos 'programavimas paskaliu', taip pat yra R.Burbaitės knyga 'šiuolaikiškas žvilgsnis į programavimo pagrindus', yra lietuvišku video pamoku, bet jos, manau, tiktu nebent pradžiai tik, nors čia kaip kam... Jei turėsi klausymų rašyk čia, mes padėsim, jei tik norėsi išmokti. Užduočių pradžiai pats sugalvok tokiu paprastų, vėliau egzamininės užduotys tiks, paskui jau ir olimpiadines spręsi :)knygose užduočių būna.

Jei gerai supratau, tai jau programavimo kažkokia kalbą moki, tai tą pascalį nebus sunku išmokti, tik laiko ir noro reikia ;)

O mums jau 10klasei uždavė.

Normalu :D bus lengviau 12

tokie uzdaviniai 12-oj klasei a lygiu pries kokius 2men teko sita daryt, jei neras as paieskosiu tada ;)

Būtų idealu iš tokių uždavinių suformuot "svarbią" temą - nuo naujokams skirtų iki rimtesnių uždavinių. Ką manot?

už šita idėja!

1. parašyti programą, kuri išrašytu visus triženklius skaičius, kuriu pirmas ir paskutinis skaitmuo vienodi.(121)

2. Išrašyti visus triženklius skaičius, kurių šoninių skaitmenų suma lygi vidurinio kvadratui.(138)

3. Atspausdinti įvesta 4-enklį skaičių atbulai. (495 -> 594)

4. Atspausdinti įvesta 5-enklį skaičių sukeitus, pirma skaitmenį su ketvirtu, antra su trečiu.(25684 -> 86524)

Tam kartui užteks.

čia paskalio uždaviniu tau reikia?

taip tas += čia jau įkišta iš C++, bet kadangi tai nieko nekeičia skaičiavime, tai ir naudoju :rolleyes: dėl 28 tai pas mane klaida, pasitaisyk jei gali, jei ne pataisysiu, bet pamėgink tai padaryti pats ;)

program bulviakasis;
type maisai = array [1..100] of integer;
var A : maisai;
   n, nr, m, maxkr : integer; //n - ukininku skaicius, m - kiek telpa maisu
{---------------procedura failo nuskaitmui-------------------------------------}
procedure skaitymas;
var i : integer;
   fd : text;
begin
   assign(fd, 'Duom1.txt');
   reset(fd);
   readln(fd, n, m);
   for i := 1 to n do
       readln(fd, A[i]);
   close(fd);
end;
{------------Skaičiavimas, kiek kartų Petras važiavo į laukus------------------}
function kartai (mais : integer) : integer;
var i : integer;
begin
    kartai:=mais div m;
    if mais mod m <> 0 then kartai:=kartai+1;
end;
{----kiek kartų važiavo Petras į daugiausia bulvių prikasusio ūkininko lauką---}
procedure Daugiausia (var nr : integer; var maxkr : integer);
var i, max : integer;
begin
max:=A[1]; {Nustatoma pradine max reiksme}
for i:=2 to n do
   begin
       If A[i] > max
            then begin
                    max:=A[i];
                    nr:=i; {Ukininko numeris}
                 end;
   end;
maxkr:=max div m;
If max mod m <> 0 then maxkr:=maxkr+1;
end;
{---------rezultatu spausdinimas-----------------------------------------------}
procedure spausdinimas;
var fr : text;
   i, kiek : integer;
begin
   assign(fr, 'Rez1.txt');
   rewrite(fr);
   for i := 1 to n do
       kiek += kartai(A[i]);
   writeln(fr, kiek);
   writeln(fr, A[nr], ' ', maxkr);
   close(fr);
end;
begin
   skaitymas;
   Daugiausia(nr, maxkr);
   spausdinimas;
end.

patikrink ar veikia nežėjau dabar, šiaip gal dar yra klaidų, nes kodas prieš dagiau nei metus rašytas. Išsitaisyk jei yra. Na bet esmę turėtum suprast.

program kolekcija;
const duom = 'U1duom.txt';
     rez = 'U1rez.txt';
     max = 100;
type masyvas = array[1..100] of integer;
var L, J, Lm, Jm : masyvas;
   n, m : integer;
{-------------------procedura failo nuskaitymui--------------------------------}
procedure skaitymas;
var fd : text;
   i, nr, mr : integer;
begin
   assign(fd, duom); reset(fd);
   readln(fd, n, m);
   for i := 1 to n do   // nuskaitoma linos kolekcija
       begin
           read(fd, nr);
           L[nr] += 1;
       end;
   readln(fd);
   for i := 1 to m do    // nuskaitoma jurgio kolekcija
      begin
           read(fd, mr);
           J[mr] += 1;
       end;
   close(fd);
end;
{--------------mainu procedura-------------------------------------------------}
procedure mainai;
var i, nr, yra  : integer;
begin
   for i := 1 to max do
       begin
           if (L[i] > 1) and (J[i] = 0)
               then begin
                       nr := i;
                       Lm[nr] := 1;
                    end;
           if (J[i] > 1) and (L[i] = 0)
               then begin
                       nr := i;
                       Jm[nr] := 1;
                    end;
       end;
end;
{---------------------procedura failo spausdinimui-----------------------------}
procedure spausdinimas;
var fr : text;
   i : integer;
   jt, lt : boolean;
begin
   assign(fr, rez); rewrite(fr);
   jt := false;
   lt := false;
   for i := 1 to max do
      if Lm[i] = 1
       then begin
               write(fr, i, ' ');
               lt := true; // ar lina turi zaisliuku mainymuisi
            end;
   if not lt
               then write(fr, '0');
   writeln(fr);
   for i := 1 to max do
      if Jm[i] = 1
       then begin
               write(fr, i, ' ');
               jt := true; // ar lina turi zaisliuku mainymuisi
            end;
   if not jt
       then write(fr, '0');
   writeln(fr);
   for i := 1 to max do
       if (L[i] > 0) or (J[i] > 0)
           then write(fr, i, ' ');
   close(fr);
end;
begin
 skaitymas;
 mainai;
 spausdinimas;
end.

vadovaujantis principu, kad geriausias vaistas nuo pagirių - nepadauginti iš vakaro, tai šiandien viskas liux! :rolleyes:

čia mano sprendimas pažėk gal kas pravers

program metro;
const Cduom = 'U1.txt';
     Crez = 'U1rez.txt';
     Cmax1 = 1000;
     Cmax2 = 100;
type masyvas = array[1..Cmax1] of integer;
var n, m, i : integer;
   E, S, St : masyvas;//E/S ijejusiu/isejusiu keleiviu skaicius S stoteles numeris
   fr : text;
{---------------------nuskaitymo procedura-------------------------------------}
procedure skaitymas;
var fd : text;
   i, d, n, ieje, iseje : integer;
begin
   assign(fd, Cduom); reset(fd);
   readln(fd, m);
   for i := 1 to m do
       begin
           readln(fd, n, d, ieje, iseje);
           St[n] := 1;
           E[n] += ieje;
           S[n] += iseje;
       end;
   close(fd);
end;
{-----funkcija skaicuojanti kiek keleiviu apsilanke kiekvienoje stotyje--------}
function keleiviai (E, S : integer): integer;
var i : integer;
begin
   keleiviai := e + s;
end;
{-------------stotele kurioje  apsilankė  daugiausia  keleivių  per  savaitę---}
function stotele : integer;
var i, max : integer;
begin
   max := 0;
   for i := 1 to Cmax2 do
       if stotele < (E[i] + S[i])
           then begin
                    stotele := i;
                    max := (E[i] + S[i])
                end;
end;
{----------kiek per savaitę iš viso žmonių mieste naudojosi metro--------------}
function metro : integer;
var i : integer;
begin
   metro := 0;
   for i := 1 to Cmax2 do
       metro += E[i];
end;
{-------------------pagrindine programa----------------------------------------}
begin
   skaitymas;
   assign(fr, Crez); rewrite(fr);
   for i := 1 to Cmax2 do
       if St[i] <> 0
           then write(fr, i, '    ');
   writeln(fr);
   for i := 1 to Cmax2 do
       if St[i] <> 0
           then write (fr, keleiviai(E[i], S[i]), '    ');
   writeln(fr);
   writeln(fr, stotele);
   writeln(fr, metro);
   close(fr);

end.

Bandžiau rašyti aš tą programą. Viskas gaunasi, kol vienas skaičius yra, pvz antroj užduotį ten lyginiai, nelyginiai skaičiai.. Ir kaip pirmoje užduotyje padaryt, ten su tais u1, kad įvedus taip būtų 1, įvedus ne - 0?

tai kam prašai, kad padėt antra jei ten tik vienas skaičius ir yra. :D tu gal bent užduotį nrml perskaityk, nes čia nei taip nei ne įvedinėt nereik. ir nebeteršk kita kart forumo su tokiom nesąmonėm eik paskalio pasimokyt...

program pirma;
var u1, u2, u3 : integer;
begin
 WriteLn('duomenys');
 Readln(u1, u2, u3);
 if (u1 = 1) and (u2 = 1)and(u3 = 1)
   then writeln('Žilvinas Eglę namų aplankyti išleis')
   else writeln('Žilvinas Eglės aplankyti namų neišleis');
 readln;
end.

program antra;
var k : integer;
begin
 WriteLn('duomenys: ');
 Readln(k);
 if k mod 2 <> 0
   then writeln('Kambarį tvarkys jaunėlis')
   else writeln('Kambarį tvarkys vyresnėlis');
 readln;
end.

Bet užduotys tai absurdiškos, gal paskaityk knygų nereiks nesąmoningų temų kurt

program Tyrimai;
const Cduom = 'U1.txt';
     Crez = 'U1rez.txt';
     Cmax = 100;
type masyvas = array[1..Cmax] of integer;
var A, B,C : masyvas;// A stoteles numeris, B/C ilipe/islipe keleiviai
   n : integer;
   fr : text;
{--------------------duomenų skaitymo iš failo procedūra-----------------------}
procedure skaitymas;
var i, st, kel : integer; // st stoteles nr, kel keliaiviai
   fd : text;
begin
   assign(fd, Cduom); reset(fd);
   readln(fd, n);
   for i := 1 to n do
       begin
           readln(fd, st, kel);
           A[st] := 1;
           if kel > 0
               then B[st] += kel
               else C[st] += kel;
       end;
   close(fd);
end;
{-----funkcija maršruto, kuriuo vežta daugiausia keleivių, numeriui rasti------}
function daugiausia : integer;
var i, max : integer;
begin
   max := 0;
   daugiausia := 0;
   for i := 1 to n do
       if max < B[i]
           then begin
                   max := B[i];
                   daugiausia := i;
                end;
end;
{---------------procedūra maršrutų numeriams spausdinti didėjimo tvarka--------}
procedure marsrutai;
var i : integer;
begin
   for i := 1 to Cmax do
       if A[i] <> 0
           then write(fr, '   ', i);
   writeln(fr);
end;
{---------procedura kitiems rezultatams surasyti i faila-----------------------}
procedure kiti_rezultatai;
var i : integer;
begin
   for i := 1 to Cmax do
       if A[i] <> 0
           then write(fr, '   ', B[i]);
   writeln(fr);
   for i := 1 to Cmax do
       if A[i] <> 0
           then write(fr, '   ', C[i]);
   writeln(fr);
   writeln(fr, '   ', daugiausia);
end;
begin
 assign(fr, Crez); rewrite(fr);
 skaitymas;
 marsrutai;
 kiti_rezultatai;
 close(fr);
end.

jei nėra ciklas cikle manau naudoti galima visada i, jei prisiskiri nauja reikšmę.

viso record'o dažniausiai neprireikia, o jei nereikia tai kam siusti visą? O jei klaidos nerodo ir viska skaičiuoja teisingai, tai reiškia galima.(Negaliu tiksliai pasakyt, nes neteko dar viso siust)

Kiek žinau, tai funkcijoje globaliųjų kintamųjų(tie kurie aprašyti tik programoje) naudoti negalima, funkcijai juos reikia siusti. Procedūroje globaliuosius kintamuosius naudoti galima, nebūtina jų siusti.

Na bet čia tik mano žinios kurios gali būti klaidingos. :)

jei niekas nepadės parašysiu ryt.

tai apsijuokt nebijau tikrai, nes IT valstybini laikysiu, tai manau nebus sunkiau nei valstybinis egzas. :lol: Šiaip tai gerai sakot, niekada negali žinot ar prireiks ar ne.. Jaučiu reiks išlaikyt tą įskaitą ir bus rami galva :rolleyes: