agnek21

Gegužės 23, 2011

program Bevarde0;
var d, r : text;
   s, suma, n, k : integer; // k - kaina
begin
   assign(d,'Duom.txt');
   reset(d);
   readln(d, s);
   while not eof (d) do;
       begin
           readln(d, n, k);
           s += n * k;
       end;
   close(d);
   assign(r,'rez.txt');
   rewrite(r);
   writeln(r, s);
   close(r);
end.

pataisiau kaip man atrodo, patikrink ar skaicuoja

Gegužės 1, 2011

imesk uzduoti pazesiu kur problema. ir savo duomenu failiuka ;)

Balandžio 10, 2011

program palukanos;
var n : integer;
   q, m : real;
begin
 WriteLn('iveskite q ir m');
 readln(q, m);
 if q > m
   then begin
            while m < q do
               begin
                m := m + 0.1 * m;
                n += 1;
               end;
           writeln('po ', n, ' metų');
        end
   else writeln('klaida');
   Readln;
 end.

manau taip

Kovo 22, 2011

program uzduotis;
type masyvas = array[1..15] of integer;
var i, y, sk, n : integer;
   A : masyvas;
begin
 readln(sk);
 n := sk;
 while n > 0 do
   begin
       i := i + 1;
       A[i] := n mod 10;
       y := y * 10 + n mod 10;
       n := n div 10;
   end;
if (sk = y)
   then WriteLn('Palindromas');
  Readln;
end.

na masyvo cia nereiktu bet jei to reikalauja salyga taitada reik :)

Kovo 22, 2011

Paskui tikrinti skaičius pirma ir paskutini, antra skaičiu su nuo galo antru ir t.t.

kaip suprast tikrini?, tai čia ta prasme kad lygini kuris didesnis? ir ką daryt jei skaičius yra pvz 5, 7, 9 skaitmenų?

Kovo 21, 2011

{Parašykite programą:
c) su procedūra 12 elementų masyvui užpildyti klaviatūra renkamais sveikaisiais
skaičiaus;
d) ir procedūra šį masyvą spausdinti vienoje eilutėje;
e) ir procedūra kitoje eilutėje spausdinti masyvo elementus atvirkščia tvarka.}
program Buzduotis2;
type masyvas = array[1..12] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 12 do
   readln(A[i]);
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 12 do
       write(A[i],' ');
   writeln;
end;
{-----------------prodedura spausdinti atvirkscia tverka-----------------------}
procedure atvirksciai;
var i : integer;
begin
   for i := 12 downto 1 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 atvirksciai;
 Readln;
end.

{1. Parašykite programą:
a) su procedūra 8 elementų masyvui užpildyti elementų indeksais;
b) ir su procedūra masyvo elementus išspausdinti vienoje eilutėje.}
program Buzduotis1;
type masyvas = array[1..8] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 8 do
   A[i] := i;
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 8 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 Readln;
end.

as taip suprantu pirma uzduoti :rolleyes: nzn ar gerai :)

{3. Antrąją programą papildyti procedūra, kuri suskaičiuotų masyvo elementų,
didesnių už 5, sumą skaičiavimo.}
program uzduotis2;
type masyvas = array[1..12] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 12 do
   readln(A[i]);
end;
{------------------procedura didesniu uz 5 sumai skaicuoti---------------------}
procedure sum;
var i, suma : integer;
begin
   suma := 0;
   for i := 1 to 12 do
       if A[i] > 5
           then suma += A[i];
   writeln('didesniu uz 5 suma yra ',suma);
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 12 do
       write(A[i],' ');
   writeln;
end;
{-----------------prodedura spausdinti atvirkscia tverka-----------------------}
procedure atvirksciai;
var i : integer;
begin
   for i := 12 downto 1 do
       write(A[i],' ');
   writeln;
end;
begin
 uzpildymas;
 spausdinimas;
 atvirksciai;
 sum;
 Readln;
end.

jei reiks pakomentuot galiu, klausk jei ko nesuprasi ;)

Kovo 21, 2011

Ačiū sameon :)

supratau ir jau padariau šią programėlę :)

Kovo 20, 2011

duomenys:

'Egle' 3 (keliones pavadinimas ir grupes dydis d)

Jonas Petraitis 38808080099 10 500 20 500 100 20 20 20 10 10 50

Petras Jonaitis 38099820014 8 20 10 50 100 500 10 50 10

Aidas Briedis 38956854245 5 10 20 50 200 100

bandysiu daryt su masyvu įrase,

Kovo 20, 2011

program uzduotis;
type asmuo = record
    kazkas,
       pavad, vard, pav : string[10];
       d, akod, bkiek : longint;
    end;
    masyvas = array[1..100] of asmuo;
    mas = array[1..100] of integer;
var A : masyvas;
   B : mas;
{------------------procedura failo nuskaitymui---------------------------------}
procedure skaitymas;
var fd : text;
   i, j, sk : longint;
begin
   assign(fd, 'duomenys.txt');
   reset(fd);
   read(fd, A[1].pavad);
   readln(fd, A[1].d);
   for i := 1 to A[1].d do
       read(fd,A[i].vard, A[i].pav, A[i].akod, A[i].bkiek);
           for j := 1 to A[1].bkiek do
               read(fd, B[j]);
   close(fd);
end;

dabar pabandziau taip tik s vienu turistu tai gerai o kaip padaryt jei ju daugiau?

Kovo 20, 2011

nu tai cia nuo x iki (to) y vygdys (do) sakin esanti po ciklo,

Kovo 20, 2011

program sksuma;
var sk : integer;
function suma : integer;
begin
suma := 0;
while sk <> 0 do
   begin
       suma += sk mod 10;
       sk := sk div 10;
   end;
end;
begin
 readln(sk);
 writeln(suma);
 Readln;
end.

Kovo 20, 2011

netingiu patikėt ir neprašau visko rašyti tik procedūrą nuskaitymui.Fps, stringu ties įrašo nuskaitymu kaip kiekvieno banknotus nuskaityt?

Kovo 20, 2011

tokia sąlyga:Duomenų failo pirmoje eilutėje įrašytas kelionės pavadinimas ir turistų grupės dydis. Kitose eilutėse - turistų Vardas Pavardė, Asmens kodas, turimų banknotų Kiekis, banknotai, nurodant jų nominalą. (Pvz.: Jonas Petraitis 38808080099 10 500 20 500 100 20 20 20 10 10 50). Parašyti programą, kuri apskaičiuotų, kokias pinigų sumas į kelionę pasiėmė kiekvienas turistas, visa grupė, kiek vidutiniškai pinigų turi grupės narys bei atspausdintų turtingiausiojo pavardę. (jei tokie yra keli – visų jų pavardes). Rezultatų faile atspausdinti kelionės pavadinimą, grupės dydį. Sąrašo pabaigoje atspausdinti turtingiausiojo(-ųjų) pavardę(-es).

kaip nuskaityt kiekvieno banknotu nominalus? Jei kas galit parašykit procedūra įrašo(masyvo) nuskaitymui, daugiau programa aiški. Ačiū iš anksto. :)

Vasario 26, 2011

na matai kaip buna :D jus 10 mes 11kl ta pati, mes pernai nesimokem pascalio tai siemet tik pradejom normaliai. :)

Vasario 26, 2011

aš iš Minties gimnazijos :)

na mes gal dar dėl to iškarto paskali ėmėm, nes mums sudarė sąlygas pasirinkti A lygiu ar programavimą ar multimedija,tinklalapiu kūrima rinktis. aš programavimą pasiėmus, daug dėmesio jam skyriam, dabar 2 pusmeti pradėsim bendra kursą mokytis.

šiais metais kiek žinau net 10-okai pas mus galėjo jau rinktis programavimą :huh:

Vasario 25, 2011

cia manau visose mokyklose skirtingai, va as 11-oke pirmas pusmetis paskalis antras excelis, wordas nu abejoju ar pain'tas bus, va imesiu pora uzdavinuku su paskaliu kuruos mes sprendem su ciklais :)

1.Mokinys turėjo susitaupęs 100 litų.

Kiekvieną dieną berniukas dar gauna po x litų dienpinigių.

Kas antra diena jis eina i kina ir išleidžia y pinigų suma.

Kiek kartų jis turės pakankamai pinigų, kad galėtų eiti i kina?

Jei dienpinigiai yra pakankamai dideli, tai kokią sumą jis sukaups per n dienų?(cia ciklas while)

2.Sudarykite programą, spausdinančią visus triženklius skaičius,

kurie lygûs savo skaitmenų kubų sumai.(ciklas for);

3.Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų

kiekvieno skaičiaus skaitmenų sumą;

nelyginių skaičiaus skaitmenų kvadratų sumą;

tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų;

tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo;

skaičius perrašytus atbulai

jei suos uzdavinius sprendziant reiks ar pagalbos ar noresi gauti jau issprestus parasyk imesiu ;)

Vasario 25, 2011

turiu klausymą, man mano mokytojas pasiūlė kitąmet pradėti lankyti papildomas pamokas ir mokytis c++ kalbos, bet nežinau ar sutikti ar ne? na aš su programavimu paskaliu nesipykstu, atrodo suprantu palyginus su kitais, su matematika taip pat gerai sekasi, bet nežinau ar man prireiks to c++ nes nežinau ką studijuosiu, šeip apie matematika galvoju, tačiau nesu tikra, taigi, ar verta pradėti lankyti papildomas pamokas ir mokytis c++ ar aš taip tik be reikalo apsikrausiu papildomomis pamokomis?

Vasario 25, 2011

ktu, taikomoji matematika galbut, bet reikia dometis kas ten gero.. matiekoj a lygiu 9 praeita pusmeti turejau si turetu but 10, nu gal dar informatika truputi suprantu irgi a lygiu mokaus 9 turiu, tik vat beda bedele anglu kalba, su mano mokytoja egzo tikrai neislaikysiu nors metini ir 8-9 turesiu :) na as dar tik 11-oke tai egzai kitamet parodys kas busiu..

Vasario 25, 2011

program eilute;
type masyvas =array[1..10] of integer;
var i : integer;
   A : masyvas;
begin
   Writeln('skaicius vesk eilute atskirdamas tarpais');
   for i := 1 to 10 do
     read(A[i]);
   for i := 1 to 10 do
       if A[i] mod 2 <> 0
           then write(A[i],' ');
 Readln;
 readln;
end.

jei mokeisi masyvus ir cikla for tai taip turi buti, manau galima ir be masyvo :)

Vasario 24, 2011

program gyventojai;
type masyvas = array[1..499] of integer;
var n, des, kair, skk, skd : integer;
   A, B, C, D, nerk, nerd : masyvas;
{-----------------------procedura failo nuskaitymui----------------------------}
procedure skaitymas;
var i, nr, kk : integer;  //kk-gyv. skaicius, nr- namo numeris
   fd : text;
begin
   assign(fd,'gyventojai.txt');
   reset(fd);
   readln(fd, n);
   for i := 1 to n do
       begin
           readln(fd, nr, kk);
           if nr mod 2 = 0
               then begin
                       des += 1;
                       A[des] := kk;
                       C[des] := nr;
                    end
               else begin
                       kair += 1;
                       B[kair] := kk;
                       D[kair] := nr;
                    end;
       end;
   close(fd);
end;
{----------------procedura atspausdinti namams kuruose niekas negyvena---------}
procedure begyventoju(B, D, A, C : masyvas; kair, des : integer);
var i : integer;
begin
   skk := 0;
   skd := 0;
   for i := 1 to kair do
       if B[i] = 0
           then begin
                   skk += 1;      //skk-kairiuju namu kuruose nera gyv. kiekis
                   nerk[skk] := D[i];//nerk-namu be gyventoju numeriai
                end;
   for i := 1 to des do
       if A[i] = 0
           then begin
                   skd += 1;  //skd-desiniuju namu kuruose nera gyv. kiekis
                   nerd[skd] := C[i]//nerd-namu be gyventoju numeriai
                end;
end;
{---------------------------f-ja skaicuojanti gyventoju suma-------------------}
function viso(G :masyvas): integer;
var i : integer;
begin
   viso := 0;
   for i := 1 to n do
       viso += G[i];
end;
{-------------------------f-ja skaicuojanti gyventoju vidurki------------------}
function vid(sum, sk : integer) : real;
begin
   vid := sum / sk;
end;
{----------------f-ja skaicuojanti didziausia gyventoju skaiciu----------------}
function max(G:masyvas; sk:integer) : integer;
var i, maxnr : integer;
begin
   max := 0;
   for i := 1 to sk do
       if max <= G[i]
           then begin
                   max := G[i];
                   maxnr := i;
                end;
max := maxnr;
end;
{------------------f-ja skaicuojanti maziausia gyventoju skaiciu---------------}
function min(G:masyvas; sk:integer) : integer;
var i, minnr : integer;
begin
   min := 100;
   for i := 1 to sk do
       if min > G[i]
           then begin
                    min := G[i];
                    minnr := i;
                end;
min := minnr;
end;
{------------------procedura atsakymu rasymui i faila--------------------------}
procedure rasymas;
var fr : text;
   i : integer;
begin
   Assign(fr,'gyventojai.rez');rewrite(fr);
   writeln(fr,viso(A) + viso(B));
   writeln(fr,viso(B),' ',viso(A));
   writeln(fr,vid(viso(B) ,kair):2:2,' ',vid(viso(A), des):2:2);
   writeln(fr,D[max(B, kair)],' ',B[max(B, kair)]);
   writeln(fr,C[max(A, des)],' ' ,A[max(A, des)]);
   writeln(fr,D[min(B, kair)],' ',B[min(B, kair)]);
   writeln(fr,C[min(A, des)],' ',A[min(A, des)]);
   for i := 1 to skk do
       write(fr, nerk[i],' ');
   for i := 1 to skd do
       write(fr, nerd[i],' ');
   close(fr);
end;
{--------------------pagrindine programa---------------------------------------}
begin
   skaitymas;
   begyventoju(B, D, A, C, kair, des);
   rasymas;
end.

atrodo pataisiau dabar gerai viskas

Vasario 24, 2011

tu gerai supranti, as cia nieko nesuprantu tam programavime:D bamdysiu taisyt :)

Vasario 24, 2011

uzuotis: tekstiniame faile pirmoje eiluteje irasytas skaicius nurodantis kiek gatveje yra namu.toliau eina n eiluciu, kuriu kiekvienoje yra du skaiciai 1.namo numeris 2.kiek gyventoju gyvena name. namai kurie lyginiai stovi desineje, nelyginiai kaireje. reikejo parasyti programa kuri atspausdintu: kiek gyventoju gyvena gatveje, kiek kaireje kiek desineje, kiek vidutiniskai kaireje ir kiek desineje,kuriame kairiosios ir kuriame desiniosios puses name gyvena daugiausi, maziausia gyventoju,kiek ju yra., VISUS KAIRIOSIOS IR DESINIOSIOS PUSES NAMUS DIDEJANCIAI,KURUOSE NIEKAS NEGYVENA.(cia nurodyta kad su procedura) tai va ikeliu savo rasyta koda,kuriame visi reikalavimai ir uzduotys ivykdytos, tik nezinau kaip su namais kuruose niekas negyvena, man rasymo procedura neatspausdina tu namu kuruose nera gyventoju. gal kas zino kaip padaryti ar bent gali uzvesti ant kelio kaip daryti, nes pati tai nebezinau :)

program gyventojai;

type masyvas = array[1..499] of integer;

var n, des, kair, y : integer;

A, B, C, D, x : masyvas;

{-----------------------procedura failo nuskaitymui----------------------------}

procedure skaitymas;

var i, nr, kk : integer; //kk-gyv. skaicius, nr- namo numeris

fd : text;

begin

assign(fd,'gyventojai.txt');

reset(fd);

readln(fd, n);

for i := 1 to n do

begin

readln(fd, nr, kk);

if nr mod 2 = 0

then begin

des += 1;

A[des] := kk;

C[des] := nr;

end

else begin

kair += 1;

B[kair] := kk;

D[kair] := nr;

end;

close(fd);

end;

{----------------procedura atspausdinti namams kuruose niekas negyvena---------}

procedure begyventoju(G, F : masyvas; sk : integer; var xx:masyvas; yy:integer);

var i : integer;

begin

yy := 0;

for i := 1 to sk do

if G = 0

then begin

yy := yy + 1;

xx := F;

end;

{---------------------------f-ja skaicuojanti gyventoju suma-------------------}

function viso(G :masyvas): integer;

var i : integer;

begin

viso := 0;

for i := 1 to n do

viso += G;

end;

{-------------------------f-ja skaicuojanti gyventoju vidurki------------------}

function vid(sum, sk : integer) : real;

begin

vid := sum / sk;

end;

{----------------f-ja skaicuojanti didziausia gyventoju skaiciu----------------}

function max(G:masyvas; sk:integer) : integer;

var i, maxnr : integer;

begin

max := 0;

for i := 1 to sk do

if max <= G

then begin

max := G;

maxnr := i;

end;

max := maxnr;

end;

{------------------f-ja skaicuojanti maziausia gyventoju skaiciu---------------}

function min(G:masyvas; sk:integer) : integer;

var i, minnr : integer;

begin

min := 100;

for i := 1 to sk do

if min > G

then begin

min := G;

minnr := i;

end;

min := minnr;

end;

{------------------procedura atsakymu rasymui i faila--------------------------}

procedure rasymas;

var fr : text;

i : integer;

begin

Assign(fr,'gyventojai.rez');rewrite(fr);

writeln(fr,viso(A) + viso(B));

writeln(fr,viso(B),' ',viso(A));

writeln(fr,vid(viso(B) ,kair):2:2,' ',vid(viso(A), des):2:2);

writeln(fr,D[max(B, kair)],' ',B[max(B, kair)]);

writeln(fr,C[max(A, des)],' ' ,A[max(A, des)]);

writeln(fr,D[min(B, kair)],' ',B[min(B, kair)]);

writeln(fr,C[min(A, des)],' ',A[min(A, des)]);

writeln(fr, y, x[1]);

for i := 1 to y do

write(fr, x,' ');

close(fr);

end;

{--------------------pagrindine programa---------------------------------------}

begin

skaitymas;

begyventoju(B, D, kair, x, y);

rasymas;

end.

aciu iems kurie nepatinges padeti ;)

Vasario 22, 2011

program uzduotis2;

Type Masyvas = array [0..10] of integer;

var A : Masyvas;

i, min, max, suma :integer;

fd : text;

vid : real;

begin

Assign (fd,'Duom.txt');reset(fd);

vid := 0;

suma := 0;

max := 0;

min := 100;

write('lyginiai : ');

for i := 1 to 9 do

begin

Readln(fd, A);

suma := suma + A;

if max < A

then max := A;

if min > A

then min := A;

if A mod 2 = 0

then Write(A,' ');

end;

vid := suma / i;

writeln;

writeln('skaiciu suma : ',suma);

WriteLn('skaiciu vidurkis :',vid:2:2);

Writeln('didziausias skaicius :',max);

Writeln('maziausias skaicius :',min);

readln;

end.

Cia antra uzduotis, is failo nuskaitant duomenis naudojamas ciklas, dazniausiai for(paryskinta) kur sukeliu iskart i masyva A visus tuos 9 skaicius, maziausos reiksmes ieskant tas pats kaip ir didziausios, naudojamas salygos sakinys ir ciklas visiems skaiciams pertikrinti, nepadaryk klaidos priskirdama(s) min, max reiksmes, max = 0, o min turi buti daugiau negu bus ivesti duomenys, pas mane 100, cia daug kas klaidas daro tai gal del to tau nepriskiria teisingai, :rolleyes:

Vasario 22, 2011

jei ivedi 4 tai faktorialas 1 * 2 * 3 * 4 = 24

o jei sandauga tai typo taip pat? o jei kaip rasei sandaugos faktorialas tai tada kaip?

tu jei gali paskaicuok ka programa turi atspausdint pvz ivedus 4, nes cia programa tai manau nera sunki B-) tik salyga bent jau man tai nesuprantama :|

Vasario 22, 2011

cia is pradziu skaiciu sandauga rasti o paskui gauto rezultato faktoriala? ar as ne taip supratau?

Prisijungti

agnek21

Pranešimai

Užsiregistravo

Lankėsi

Atsiliepimai

Turinio tipas

Forumas

Kalendorius

Parduotuvė

Akademija

Skelbimai

agnek21 Pranešimai

FPS (nuosirdziai prasau pagalbos)

Pascal, bad numeric format

FREE PASCAL (Skubiai)

pascal klausimas "while ciklas"

pascal klausimas "while ciklas"

Paskalio uždaviniai

įrašo nuskaitymas nepavyksta,

įrašo nuskaitymas nepavyksta,

įrašo nuskaitymas nepavyksta,

reikai truputi paaiškinimų su pascal.

Informatikos uždaviniai

įrašo nuskaitymas nepavyksta,

įrašo nuskaitymas nepavyksta,

11 klasė. Informacinių technologijų programa?

11 klasė. Informacinių technologijų programa?

11 klasė. Informacinių technologijų programa?

ar verta mokytis c++

jusu busima profesija ?

Pascal klausimai

fps didelei programoj reikia mazos pagalbos

fps didelei programoj reikia mazos pagalbos

fps didelei programoj reikia mazos pagalbos

pora pascal uždavinėliu

Labai reikalinga pagalba

Labai reikalinga pagalba

Veiklos srautas

Skelbimai