FPS programavimas, padėkite.

o cia nereikia daryt kokiunors input.txt failu?

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

Kaip butu galima is masyvo istrinti tam tikrus elementus ?

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

o kaip pilnai isspresti?

Kaip butu galima is masyvo istrinti tam tikrus elementus ?

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.

o ka ta dec funkcija daro ? per google kazkaip neradau.

O paskui po ciklo nereiketu to nulinio elemento reiksmes sumazinti per viena (nes istrinamas vienas elementas) ?

o ka ta dec funkcija daro ? per google kazkaip neradau.

O paskui po ciklo nereiketu to nulinio elemento reiksmes sumazinti per viena (nes istrinamas vienas elementas) ?

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.

Nu blem arba as durnas arba nematau kur tas n panaudojamas sitoj fjoj... Btw, sveikinu su prizine vieta konkurse :S

Nu blem arba as durnas arba nematau kur tas n panaudojamas sitoj fjoj... Btw, sveikinu su prizine vieta konkurse :S

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.

O kaip nors kitaip eina ? nes man neleidzia sumazinti to nulinio elemento. Raso: "range chack error while evaluating constants"

pažiūrėk programos pradžioje, kai arpašinėjai masyvą "type mas=array[0..n] of integer" ar pas tave nuo 0 ar nuo 1.

Gal aks gali du uždavinius išspręsti? :D

1. Koordinačių plokštumoje nubrėžtas spindulio R apskritimas. Apskritimo centras yra taške (xc, yc) Reikia nustatyti, ar taškas, kurio koordinatės (xt, yt), yra turimo apskritimo viduje :D

2. Stačiakampė dėžė, kurios pagrindas yra A * B, o aukštis C, iki pusės pripilta vandens. Kiek galima į dėžę priberti vyšnių (kaip žinome, jos skęsta) jeigu vyšnios skersmuo R mm ir vanduo neturi išbėgti? A, B ir C reikšmės ne mažesnės kaip 50 cm :D

2 labai lengva uzduotis, matematiskai tai tiesiog apsiskaicioti vienos vysnios turi, visos dezes turi, ir puse dezes turi.

while pusedezesturis+vienosvysniosturis<visosdezesturis then do

begin

pusedezesturis:=pusedezesturis+vienosvysniosturis;

vysnios:=vysnios+1;

end;

{pusedezesturis dides kaskast vienos vysnios turiu}

As db su masyvu rikiavimu vargstu :D

Gal aks gali du uždavinius išspręsti? :D

 

1. Koordinačių plokštumoje nubrėžtas spindulio R apskritimas. Apskritimo centras yra taške (xc, yc) Reikia nustatyti, ar taškas, kurio koordinatės (xt, yt), yra turimo apskritimo viduje :D

Tau reikia nustatyti, ar atstumas tarp taškų < R. Naudojama Pitagoro teorema. MN = (xt - xc)^2 + (yt - yc)^2.

sweiki. gal galite padeti informatikos? niekaip nesigauna sitas uzdavinys. buciau lb dekingas

bibliotekos lankytoju saraso tekstine byla sudaro: pavarde, vardas, skaitytojo bilieto numeris,knygu paemimo data, paimtu knygu skaicius, kiek dienu leistina skaityti. reikia sudaryti skaitytoju, kurie veluoja grazinti knygas, sarasa: pavarde, vardas, skaitytojo bilieto numeris, veluojamas dienu skaicius, knygu skaicius. taip pat reikia isvesti 2 lenteles: duomenu ir skaiciavimo rezultatus.

+ (0) -

4. Ūkininkas nukasė bulves ir supylė jas į B maišų. Reikia rasti, kiek kartų teks ūkininkui važiuoti į lauką norint parvežti visą derlių,jeigu vežime telpa ne daugiau kaip n maišų.

6. Stačiakampė dežė, kurios pagrindas yra AxB, O aukštis C., iki pusės pripilta vandens. Kiek galima į dėžę priberti vyšnių (kaip žinome jos skęsta) jeigu vyšnios skersmuo R mm ir vanduo neturi išbėgti? A, B, ir C, reikšmės ne mažesnės kaip 50 cm.

10.Petriukas spalio 12d. 11val. 30min. Nusipirko slides ir ėmė laukti sniego. Snigto pradėjo sausio 25d. 9val 14min. Kiek minučių Petriukas laukė sniego?

gal galit padeti isspresti?

4. Ūkininkas nukasė bulves ir supylė jas į B maišų. Reikia rasti, kiek kartų teks ūkininkui važiuoti į lauką norint parvežti visą derlių,jeigu vežime telpa ne daugiau kaip n maišų.

 

6. Stačiakampė dežė, kurios pagrindas yra AxB, O aukštis C., iki pusės pripilta vandens. Kiek galima į dėžę priberti vyšnių (kaip žinome jos skęsta) jeigu vyšnios skersmuo R mm ir vanduo neturi išbėgti? A, B, ir C, reikšmės ne mažesnės kaip 50 cm.

 

10.Petriukas spalio 12d. 11val. 30min. Nusipirko slides ir ėmė laukti sniego. Snigto pradėjo sausio 25d. 9val 14min. Kiek minučių Petriukas laukė sniego?

 

 

gal galit padeti isspresti?

4.

program abc;
var b, n, rez : integer;
begin
if (b mod n = 0) then rez = b div n; 
if (b mod n <> 0) then rez = b div n + 1;
end.

Tai o patys, ką nors bandėt padaryt, ar nežiūrėję į jas iškarto į forumą nusiuntėt?

Bandau bet nieko neiseina,del to prasau jusu pagalbos :)

Pauliau,tavo neina

4.

program abc;
var b, n, rez : integer;
begin
if (b mod n = 0) then rez := b div n; 
if (b mod n <> 0) then rez := b div n + 1;
end.

Kalta paskalio sintaksė. Prieš lygybės ženklus priskiriant reikšmes reikalingi dvitaškiai (:= vietoj =)

Kalta paskalio sintaksė. Prieš lygybės ženklus priskiriant reikšmes reikalingi dvitaškiai (:= vietoj =)

Oi :). Cpp įtaka... Dėkui už pataisymą.

Gal galiit padeti issprest uzdavinius ;

1.Du kaimynai nutare pasidalyti sala ezere pusiau,kiek jiems reikia pasigamintistulpeliu tvorai,jeigy jos ilgis L metru, o stulpeliai turi buti kasami kas N metru.

2.Staciakampe deze, kurios pagrindas yra AxB, o aukstis C, iki puses pripilta vandens.Kiek galima i deze priberti vysniu(kaip zinome jos skesta), jeigu vysnios skersmuo R mm vanduo neturi isbegti? A,B ir C reiksmes ne mazesnes kaip 50 cm

1. L/N ir prie gauto atsakymo pridedi 1.

2.

program Vysnios;
var a,b,c,v,r:integer;
v1,ats:real;
begin
 WriteLn('Iveskite dezes matmenis (cm)');
 Readln(a,b,c);
 WriteLn('Iveskite vysnios skermeni (mm)');
 Readln(r);
 v1:=3.14/3*4*(r*r*r);
 ats:=a*b*c*1000/2/v1;
 WriteLn('Galima priberti',ats:10:0);
  Readln( );

end.

Labai Dekuj Tomai, 1 uzdavinis irgi isejo.

Paskutini dar turiu uzdavini labai ilgas, gal suprasit kas :

Daug ukininku nukase bulves ir supyle i maisus.Zinome,kiek kuris ukininkas turi maisu su bulvemis.Reikia rasti kiek kartu teks vaziuoti i laukus norint parvezti visa derliu kiekvienam ukininkui atskirai,jeigu vezime talpa ne daugiau kaip N maisu,Per kiek dienu bus suveztas derlius, jeigu vezejas vienas ir per diena pajegia nuvaziuoti ne daugiau kaip K kartu.

Labai Dekuj Tomai, 1 uzdavinis irgi isejo.

 

Paskutini dar turiu uzdavini labai ilgas, gal suprasit kas :

 

Daug ukininku nukase bulves ir supyle i maisus.Zinome,kiek kuris ukininkas turi maisu su bulvemis.Reikia rasti kiek kartu teks vaziuoti i laukus norint parvezti visa derliu kiekvienam ukininkui atskirai,jeigu vezime talpa ne daugiau kaip N maisu,Per kiek dienu bus suveztas derlius, jeigu vezejas vienas ir per diena pajegia nuvaziuoti ne daugiau kaip K kartu.

4.

program abc;
var b, n, rez : integer;
begin
if (b mod n = 0) then rez := b div n; 
if (b mod n <> 0) then rez := b div n + 1;
end.

tada taspats su rez ir K