Pascal uždaviniai

Gal žinot kur internete būtų galima rasti uždavinių su ciklais "while" ir "for"? Būtų labai gerai ir jų sprendimus gauti :)

http://www.codechef.com/problems/easy

Ne tik kad užduotys, bet ir galėsi pasitikrinti ar gerai veikia ir ar ne per lėtai dirba. Taippat pasieškojęs(tarp sėkmingų sprendimų) surastum ir kodą.

http://projecteuler.net/

Išsprendęs uždavinį galėsi nueiti į forumą, kur galbūt bus ir sprendimas paskaliu.

Uždaviniai

Čia seni JPM uždavinukai su ciklais :)

Sveiki, turiu tokį uždavinį. Tekstiniame faile surašyti sveikieji skaičiai. Reikia parašyti programą kuri sugrupuotų juos į du masyvus: atskirai teigiamus ir atskirai neigiamus. Padėsit kasnors? Galim ir Pm pašnekėt.

Sveiki, reikia pagalbos sprendziant uzdavini:

Vasaros atostogu metu Linas dirbo pastininku. Uz pirma atlyginima jis nusipirko dvirati.Si zinia pasklido labai greitai. Vos spejes grizti namo, jis pasigyre 2 draugams, kurie po 30 minuciu pasake zinia 2 kiteims draugams. Dar po 30 minuciu kiekvienas is 4 persake zinia dar 2 draugams. Ir taip kas 30 minuciu kiekvienas isgirdes naujiena persako 2 kitiems. Parasykite algoritma, kuris nustatytu, kiek zmoniu suzinojo naujiena po y valandu, y - real.

Gal galit kas padet? busiu dekingas :)

Sveiki, turiu tokį uždavinį. Tekstiniame faile surašyti sveikieji skaičiai. Reikia parašyti programą kuri sugrupuotų juos į du masyvus: atskirai teigiamus ir atskirai neigiamus. Padėsit kasnors? Galim ir Pm pašnekėt.

program programa;
const
   duom = 'duomenys.txt';
type
   masyvas = array[1..maxint] of longint;

var D:text;
   teig, neig:masyvas;
   i_teig, j_neig,
   i, j:longint;
   laik:longint;
Begin
assign(D, duom);
reset(D);
i_teig := 0;
j_neig := 0;
while not EoF(D) do
   begin
   while not EoLn(D) do
       begin
       read(D, laik);
       if laik < 0 then
           begin
           j_neig += 1;
           neig[j_neig] := laik;
           end
                   else
           begin
           i_teig += 1;
           teig[i_teig] := laik;
           end;
       end;
   readln(D);
   end;
close(D);
for i:=1 to i_teig do
   if i mod 10 = 0 then writeln(teig[i])
                   else write(teig[i], ' ');
for j:=1 to j_neig do
   if j mod 10 = 0 then writeln(neig[j])
                   else write(neig[j], ' ');
//Gali dabar daryti ka nori su masyvais...
readln;
End.

Jei kada vėl reikės pagalbos rašyk tiesiai i skype, arba pm ;)

Sveiki, reikia pagalbos sprendziant uzdavini:

 

Vasaros atostogu metu Linas dirbo pastininku. Uz pirma atlyginima jis nusipirko dvirati.Si zinia pasklido labai greitai. Vos spejes grizti namo, jis pasigyre 2 draugams, kurie po 30 minuciu pasake zinia 2 kiteims draugams. Dar po 30 minuciu kiekvienas is 4 persake zinia dar 2 draugams. Ir taip kas 30 minuciu kiekvienas isgirdes naujiena persako 2 kitiems. Parasykite algoritma, kuris nustatytu, kiek zmoniu suzinojo naujiena po y valandu, y - real.

Gal galit kas padet? busiu dekingas :)

program programa;

var y, i:real;
   kiekis:longint;
Begin
readln(y);
i := 0.5;
kiekis := 2;
while i <= y do
   begin
   i += 0.5;
   kiekis *= 2;
   end;
writeln(kiekis);
readln;
End.

Dekui uz pagalba :) padejai :)

Tada dar viena uzduotele :D

Turime n skirtingu staciakampiu deziu.Kiekvienos dezes pagrindas a*b ir aukstis c zinomi. Visos dezes iki puses pripiltos vandens. Kiek galima i kiekviena deze priberti visniu (kaip zinome jos skesta), jeigu vysnios skersmuo R cm ir vanduo neturi isbegti? a,b,c reiksmes ne mazesnes kaip 50 cm. Koks derlius bus supiltas?

Labai panašus uždavinys jau buvo spręstas: nuoroda