paskalio užduotys

pradėsiu nuo to, jog nemėgstu laiko švaistyti veltui. Tad norėčiau per vasarą daugiau pramokt pascalį, nes noriu ateitį sieti su informatika, programavimu ir t.t. Jei kas turi neišsprestų užduočių ar kažko panašaus susijusio su paskaliu norėčiau kad viską keltumėt čia, stengsiuosi jas atlikti turiu keletą uždavinių, bet man to neužtenka jie yra išspresti. Gal yra tinklapis kuriame yra šito pobūdžio dalykų labai padėtumėt, Ačiū :)

Štai keletas užduočių:

Tekstiniame faile stulpeliu surašyti žodžiai. Parašykite programa, kuri nustatytu, ar

klaviatura ivestas žodis yra faile ir jei yra, tai kiek kartu kartojasi.

program zodziai;
const   duomenys = 'zodis.txt';

procedure skaitymas(var A:text; zdz : string);
var zodis : string;
   n : integer;
begin
   n := 0;
   Assign(A,duomenys); reset(A);
       while not eoln(A) do
        begin
           readln(A, zodis);
           if zdz = zodis then n := n + 1;
        end;
       writeln(n);
       close(A);
end;

var     A : text;
       zdz : string;
begin
   writeln('iveskite zodi: ');
   readln(zdz);
   skaitymas(A, zdz);
 Readln;
end.

Duotas žodis. Parašykite programa, kuri ji perrašytu iš antro galo.

program Bevarde9;
var
zodis, at_zodis : string;
x, n : integer;
begin
 WriteLn('iveskite zodi: ');
 Readln(zodis);
 x := length(zodis);
   for n := x downto 1 do
       at_zodis := at_zodis + zodis[n];
   writeln(at_zodis);
   readln;
end.

Is n kvadratiniu plyteliu reikia sudelioti vienos plyteles storio

kvadratus: pirmiausia sudeti didziausia galima kvadrata, is likusiu plyteliu

- vel didziausia ir t.t. Parasykite programa, kuri isskaidytu nurodyta plyteliu

skaiciu i dalis, reikalingas kiekvieno kvadrato statybai. Pavyzdziui, kai n = 75,

turetumete gauti: 64, 9, 1, 1.

program plytos;

var sk, i, x : integer;

begin
 WriteLn('iveskite skaiciu: ');
 Readln(sk);
   while sk >= 4 do
   begin
       for x := 1 to 50 do
               if sk - x * x < 0 then
                  begin
                      x := x - 1;
                      writeln(x*x);
                      sk := sk - x * x;
                      x := 50;
                  end;
       end;
 for i := 1 to sk do
   writeln(1);
 readln;
end.

Tad su malonumu laukiu komentarų ar užduotis atlikau gerai, gal galima būtų jas trumpinti ar parašyti kitaip. Egzamininių užduočių dar nepriveikiu. ;/

Taip pat kelsiu padarytas užduotis gal kam prireiks ateityje

Nekenčiu šitos programos!

Nekenčiu šitos programos!

Nieko nepadarysi pradėjau tai pradėjau, o egzaminus juk reik praeit ;)

As baigiau 10Kl, pasiemiau INFO A lygiu. Nes mokymo istaiga kurioi noresiu mokytis po mokyklos reikalauja INFO metinio pazymio. Tai tipo per visus tuos 2 metus darysim pagrindinai tik paskalio programavima???? Nes mano norima profesija niekuo nesirisa su matieka :D

Siūlyčiau pagalvot dar ir apie alternatyvius tų pačių užduočių sprendimus. Turiu galvoj optimizaciją.

Turbūt nėra naujiena, kad užduotį galima išspręsti ne vienu variantu.

Nelabai ir man pascal'is prie širdies, bet tarkim tavo paskutinė užduotis.

"for x := 1 to 50 do"

kad ir kas nutiktų, ciklas bus kartojamas 50 kartų.

kodėl tau ciklo nepadarius pvz, kad nuo 2 iki sqrt(duoto skaičiaus) nubraukus dalį po kablelio?

arba pvz ciklą rašyt tokiu būdu, kad paskaičiuot iš duoto skaičiaus kvadratinę šaknį, nubraukus dalį po kablelio ir atėmus iš pradinio skaičiaus vėl tą patį padaryt, kol liks skaičius nedidesnis nei 3 ?

su tavo skaičiais būtų taip:

sqrt(75)=~8.66 jei neklystu su trunc komanda numeti po kablelio dalį, gauni 8

75 - 8*8 = 11

sqrt(11)=~3.32 , gauni 3

11 - 3*3 = 2

o nuo 1 iki 3 gali jau iš karto užrašyt, kad bus paskutiniai skaičiai nuo vieno vieneto iki trijų vienetų. Psio, ciklas šiuo atveju suveiktų 2 kartus vietoj 50.

Taip pat visada aktualu žinot kurios komandos veikia ilgiau, kurios trumpiau :) nes jei komanda viena, nereiškia, kad po ja nesislepia daugybė eilučių ;)

Realiai, tai neprisimenu ar pascal'yje buvo galimybė ištraukti šaknį iš realaus skaičiaus, bet norėjau parašyt ne pascal'io programą vietoj taviškės, o parodyt sprendimo alternatyvą, kaip gali kist uždavinio sprendimas, nesvarbu kokia programavimo kalba rašai.

Tavo programa galbūt ir per maža, kad pastebėt tą programos veikimo laiko skirtumą, bet kai projektai darysis didesni, geriau jau palaužyti galvą ir sugalvoti kaip optimaliau suprogramuoti. Taip, kad reikėtų pratintis. Geras programuotojas yra ne tas, kuris parašo programą, kuri tiesiog veikia, geras programuotojas tas, kuris parašo programą, kuri labai gerai veikia :))

Tikrai ne visada trumpiausias kodas yra geriausias kodas.

Kažkada rašėm vieną paprastą programėlę dirbančią su dideliais skaičiais, tai algoritmo veikimo laikai skyrėsi ~30min vs 3sekundes. Įdomu, kurią programą rinktumeis :)

EDIT: sorry, atidžiau pažiūrėjau dar į kodą, nebus vykdomas ciklas 50 kartų, nors ir nelabai etiškai tas išėjimas iš jo atrodo.

Anyway, esmė mano post'o išlieka ta pati, kodą rašyk kokybišką :)

Nieko nepadarysi pradėjau tai pradėjau, o egzaminus juk reik praeit ;)

brandos egzuose galima rasyti Cpp

Siūlyčiau pagalvot dar ir apie alternatyvius tų pačių užduočių sprendimus. Turiu galvoj optimizaciją.

 

Turbūt nėra naujiena, kad užduotį galima išspręsti ne vienu variantu.

 

Nelabai ir man pascal'is prie širdies, bet tarkim tavo paskutinė užduotis.

"for x := 1 to 50 do"

kad ir kas nutiktų, ciklas bus kartojamas 50 kartų.

 

kodėl tau ciklo nepadarius pvz, kad nuo 2 iki sqrt(duoto skaičiaus) nubraukus dalį po kablelio?

 

arba pvz ciklą rašyt tokiu būdu, kad paskaičiuot iš duoto skaičiaus kvadratinę šaknį, nubraukus dalį po kablelio ir atėmus iš pradinio skaičiaus vėl tą patį padaryt, kol liks skaičius nedidesnis nei 3 ?

su tavo skaičiais būtų taip:

sqrt(75)=~8.66 jei neklystu su trunc komanda numeti po kablelio dalį, gauni 8

75 - 8*8 = 11

sqrt(11)=~3.32 , gauni 3

11 - 3*3 = 2

o nuo 1 iki 3 gali jau iš karto užrašyt, kad bus paskutiniai skaičiai nuo vieno vieneto iki trijų vienetų. Psio, ciklas šiuo atveju suveiktų 2 kartus vietoj 50.

 

Taip pat visada aktualu žinot kurios komandos veikia ilgiau, kurios trumpiau :) nes jei komanda viena, nereiškia, kad po ja nesislepia daugybė eilučių ;)

Realiai, tai neprisimenu ar pascal'yje buvo galimybė ištraukti šaknį iš realaus skaičiaus, bet norėjau parašyt ne pascal'io programą vietoj taviškės, o parodyt sprendimo alternatyvą, kaip gali kist uždavinio sprendimas, nesvarbu kokia programavimo kalba rašai.

 

Tavo programa galbūt ir per maža, kad pastebėt tą programos veikimo laiko skirtumą, bet kai projektai darysis didesni, geriau jau palaužyti galvą ir sugalvoti kaip optimaliau suprogramuoti. Taip, kad reikėtų pratintis. Geras programuotojas yra ne tas, kuris parašo programą, kuri tiesiog veikia, geras programuotojas tas, kuris parašo programą, kuri labai gerai veikia :))

Tikrai ne visada trumpiausias kodas yra geriausias kodas.

Kažkada rašėm vieną paprastą programėlę dirbančią su dideliais skaičiais, tai algoritmo veikimo laikai skyrėsi ~30min vs 3sekundes. Įdomu, kurią programą rinktumeis :)

 

 

EDIT: sorry, atidžiau pažiūrėjau dar į kodą, nebus vykdomas ciklas 50 kartų, nors ir nelabai etiškai tas išėjimas iš jo atrodo.

Anyway, esmė mano post'o išlieka ta pati, kodą rašyk kokybišką :)

Labai ačiū už patarimus ;) Taip tiesa šitą žinau kad geriau padaryti programą kuri veiktų trumpiau, o ne tik kad veiktų. Šitą stengiuosi daryti.

brandos egzuose galima rasyti Cpp

Taip šitą jau žinau, sužinojau nelabai senai, o jau pripratau kažkaip prie pascalio ir nenoriu keist nieko, jis man nekliudo. Vistiek viskas daroma dėl egzaminų.

nu jei tik del egzaminu, tai ner prasmes net mokintis. visvien mokyklose mokytojai suraso desimtukus tiems kas nelaiko egzu. ypac informatikos

nu jei tik del egzaminu, tai ner prasmes net mokintis. visvien mokyklose mokytojai suraso desimtukus tiems kas nelaiko egzu. ypac informatikos

Tiesą pasakius nepagavau ;/

Va kelios protingos užduotys - ir pritaikoma paprastame gyvenime, beto gan nesunkios:

1. Sudoku sprendėjas
   
2. Lietuvos Ryto ketvirtadienio užduoties sprendėjas
   
3. Itin greitas pirminių skaičių ieškotojas
   

1. Viename duomenų faile surašyta lentelė tuščius laukelius pažymint taškais arba brūkšneliais. Viskas vienoje eilutėje.

Ką padaryti:

Gražiai atvaizduoti lentelę sudarytą pagal duotus duomenis.

(Truputį sunkiau) Išspręsti sudoku.

2. Ketvirtadienio užduoties tikslas: duotame raidžių kratinyje surasti ir išbraukti žodžius, kurie gali eiti vertikaliai, horizontaliai ir įstrižai. Duoti du failai - viename surašytos visos raidės(kaip, susigalvok pats), o kitame žodžiai, po vieną eilutėje.

Tikslas: Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius stulpeliuose. Parašyti žodį ir stulpelio numerį.

Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius eilutėse. Parašyti žodį ir eilutės numerį.

(Sudėtingiau) Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius įstrižai. Parašyti žodį ir indentifikacinį numerį (principą sugalvok pats).

3. Greitas pirminių skaičių ieškotojas.

Tikslas: Parašyti programą grąžinančią sąrašą pirminių skaičių nuo 2 iki n. Pirminiai skaičiai iki 1000000 turėtų būti sugeneruojami per sekundės dalis. (Riba:1.5 sek.) Dėl šios priežasties brute-force algoritmas netinka.

Užduotys nėra pačios lengviausios, bet nėra ir neišsprendžiamos. Išsprendęs galutinai visas galėsi drąsiai teigti, kad bent 50% egzaminuose gausi.

Dar gali spręsti http://projecteuler.net/ užduotis. Bent pirmos 25 - must.

Va kelios protingos užduotys - ir pritaikoma paprastame gyvenime, beto gan nesunkios:

1. Sudoku sprendėjas
   
2. Lietuvos Ryto ketvirtadienio užduoties sprendėjas
   
3. Itin greitas pirminių skaičių ieškotojas
   

 

1. Viename duomenų faile surašyta lentelė tuščius laukelius pažymint taškais arba brūkšneliais. Viskas vienoje eilutėje.

Ką padaryti:

Gražiai atvaizduoti lentelę sudarytą pagal duotus duomenis.

(Truputį sunkiau) Išspręsti sudoku.

 

2. Ketvirtadienio užduoties tikslas: duotame raidžių kratinyje surasti ir išbraukti žodžius, kurie gali eiti vertikaliai, horizontaliai ir įstrižai. Duoti du failai - viename surašytos visos raidės(kaip, susigalvok pats), o kitame žodžiai, po vieną eilutėje.

Tikslas: Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius stulpeliuose. Parašyti žodį ir stulpelio numerį.

Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius eilutėse. Parašyti žodį ir eilutės numerį.

(Sudėtingiau) Rasti visus žodžius (tiek atvirkščius tiek normalius) esančius įstrižai. Parašyti žodį ir indentifikacinį numerį (principą sugalvok pats).

 

3. Greitas pirminių skaičių ieškotojas.

Tikslas: Parašyti programą grąžinančią sąrašą pirminių skaičių nuo 2 iki n. Pirminiai skaičiai iki 1000000 turėtų būti sugeneruojami per sekundės dalis. (Riba:1.5 sek.) Dėl šios priežasties brute-force algoritmas netinka.

 

Užduotys nėra pačios lengviausios, bet nėra ir neišsprendžiamos. Išsprendęs galutinai visas galėsi drąsiai teigti, kad bent 50% egzaminuose gausi.

 

Dar gali spręsti http://projecteuler.net/ užduotis. Bent pirmos 25 - must.

Štai pagaliau žmogus suprato ko aš norėjau ;)

Pradėsiu nuo pirmos užduoties tarkim turim sudoku

http://www.learn-math.info/gamesFolder/sudoku/sudoku.png

tekstinis failas turėtų atrodyti taip?

53--7----

6--195---

-98... ir t.t. taip supratau?

reikia padaryti programą kad šį SUDOKU išsprestų

manau kad čia tikrai reiks pasukt galvą labai kolkas viskas sunkiai skamba

Štai pagaliau žmogus suprato ko aš norėjau ;)

 

Pradėsiu nuo pirmos užduoties tarkim turim sudoku

 

http://www.learn-math.info/gamesFolder/sudoku/sudoku.png

 

tekstinis failas turėtų atrodyti taip?

 

53--7----

6--195---

-98... ir t.t. taip supratau?

 

reikia padaryti programą kad šį SUDOKU išsprestų

manau kad čia tikrai reiks pasukt galvą labai kolkas viskas sunkiai skamba

Pradžiai - kad bent atvaizduotų.

Failas gali atrodyti taip. Jei manai kad kitu būdu būtų patogiau, gali daryti kitaip.

Verta paminėti, kad pats šią užduotį dariau tris dienas(ne paras) - tačiau praktika buvo tikrai gera, verta savo laiko.

Spoilerį žiūrėk tik tada, kai jau visai neteksi vilties.

Pradžiai - kad bent atvaizduotų.

Failas gali atrodyti taip. Jei manai kad kitu būdu būtų patogiau, gali daryti kitaip.

 

Verta paminėti, kad pats šią užduotį dariau tris dienas(ne paras) - tačiau praktika buvo tikrai gera, verta savo laiko.

Spoilerį žiūrėk tik tada, kai jau visai neteksi vilties.

 

 

Taipogi jei nebaisu skaityti, tai gali pasinaudoti http://norvig.com/sudoku.html - pats kodas Python(ir gerai, negalėsi nukopijuoti), bet viskas kas aplink jį - labai naudinga (pats straipsnis).

Kitą spoilerį, tik jei jau visai visai netekai vilties:

 

 

Google: Pascal sudoku solver

 

 

 

 

ok neskaitysiu spolerio dar:

Kaip turėtų atrodyti tas atvaizdavimas ;) brukšniukais aš įsivaizduoju kažkodėl jį ar tai tiesa?

ok neskaitysiu spolerio dar:

Kaip turėtų atrodyti tas atvaizdavimas ;) brukšniukais aš įsivaizduoju kažkodėl jį ar tai tiesa?

Maniškis atrodo taip, ir vėl ta pati taisyklė - jei manai, kad gali padaryti geriau, tai nuostabu:

Ir pavyzdinis failas:

86-9-3-57
27--5----
-9-478---
-3-24-7-6
-418-----
-5---6--4
329---8--
---3--4--
-8---9--5

Tuščias vietas gali pakeisti kuo nori, tarpais, klaustukais ar bet kuo kitu.

Maniškis atrodo taip, ir vėl ta pati taisyklė - jei manai, kad gali padaryti geriau, tai nuostabu:

Ir pavyzdinis failas:

86-9-3-57
27--5----
-9-478---
-3-24-7-6
-418-----
-5---6--4
329---8--
---3--4--
-8---9--5

 

Tuščias vietas gali pakeisti kuo nori, tarpais, klaustukais ar bet kuo kitu.

dar kartą ačiū už viską turėsiu dabar daug darbo ;) teks pasukti smegenėles, nes dar nelabai moku net skaitymą iš bylų

Pradėk spręst egzaminų užduotis nuo 2005/2006 - jos tada buvo labai lengvos. Daryk viską palaipsniui, pvz, nuskaityk duomenis iš failo į kintamuosius ir tada pasitikrink, ar viską teisingai nuskaitė, ir taip toliau ;)

Jei moki kokią nors kitą programavimo kalbą, nelabai yra prasmė mokytis šią kalbą, nes ji praktiškai nebenaudojama... Jei nemoki jokių kitų kalbų, tada visai prasminga, nes išmoksi fundamentalius programavimo pagrindus, kurie more or less naudojami kitose kalbose.

Kadangi moku php, aš realiai pradėjau mokytis kokią savaitę prieš egzaminą, gavau 89%. Tokiu atvėju realiai reikia mokėt tik sintakse.

Pradėk spręst egzaminų užduotis nuo 2005/2006 - jos tada buvo labai lengvos. Daryk viską palaipsniui, pvz, nuskaityk duomenis iš failo į kintamuosius ir tada pasitikrink, ar viską teisingai nuskaitė, ir taip toliau

 

Jei moki kokią nors kitą programavimo kalbą, nelabai yra prasmė mokytis šią kalbą, nes ji praktiškai nebenaudojama... Jei nemoki jokių kitų kalbų, tada visai prasminga, nes išmoksi fundamentalius programavimo pagrindus, kurie more or less naudojami kitose kalbose.

 

Kadangi moku php, aš realiai pradėjau mokytis kokią savaitę prieš egzaminą, gavau 89%. Tokiu atvėju realiai reikia mokėt tik sintakse.

moku truputį PHP. HTML/CSS gerai moku, bet aišku čia nepričiom, taip taip pirma mano kalba ir buvo pascalio, kai pradėjau mokytis PHP viskas daug lengviau buvo.

1. Viename duomenų faile surašyta lentelė tuščius laukelius pažymint taškais arba brūkšneliais. Viskas vienoje eilutėje.

Ką padaryti:

Gražiai atvaizduoti lentelę sudarytą pagal duotus duomenis.

(Truputį sunkiau) Išspręsti sudoku

program Bevarde11;

const duom = 'sudoku.txt';

procedure vienas(var i : string);
var sk, x : integer;
begin
x := 3;
   for sk := 1 to 9 do
   begin
       if x mod 3 = 0 then write('|');
       x := x + 1;
       write(' ',i[sk],' ');
   end;
       write('|');
       writeln('');
end;

var A : text;
   i : string;
   x : integer;

begin
   assign(A,duom); reset(A);
   x := 3;
   while not eof(A) do
       begin
           readln(A,i);
           if x mod 3 = 0 then writeln('+---------+---------+---------+');
           x := x + 1;
           vienas(i);
       end;
   close(A);
   writeln('+---------+---------+---------+');  // pabaiga
   readln;
end.

padariau tiktais atspausdinimą, bet kodas kažko man nepatinka ;/

Dar kažką mąstau apie dvimatį masyvą...

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

Find the sum of all the multiples of 3 or 5 below 1000.

program Bevarde12;
var i  : integer;
   sum : longint;
begin
sum := 0;
   for i := 1 to 999 do
       if (i mod 3 = 0) or (i mod 5 = 0) then sum := sum + i;
   writeln(sum);
   Readln;
end.

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

 

Find the sum of all the multiples of 3 or 5 below 1000.

 

 

 

program Bevarde12;
var i  : integer;
   sum : longint;
begin
sum := 0;
   for i := 1 to 999 do
       if (i mod 3 = 0) or (i mod 5 = 0) then sum := sum + i;
   writeln(sum);
   Readln;
end.

 

 

Project Euler, huh? :D Nėr ko ir prigalvot gudraus tokiai užduočiai, spręsk toliau iš ten - logikai/matematikai pats tas :-)

Project Euler, huh? :D Nėr ko ir prigalvot gudraus tokiai užduočiai, spręsk toliau iš ten - logikai/matematikai pats tas :-)

Pasiūlė gi ir visai patiko tinklapis tikrai gerų loginio mąstymo ir skaičiavimo užduočių yra.

Na kaip sekas, koks progresas projecteuler svetainėje? :) Gal užstrigęs ant kokios užduoties?

nelabai turėjau laiko ;) bet stengsiuos išsprest kuo daugiau, nes man tokios užduotys labai prie širdies.

2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder.

What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20?

program Bevarde12;
var i, c : integer;
   x : longint;
begin
c := 0;
   for x := 1 to 2147483647 do
   begin
   for i := 1 to 20 do
        if x mod i = 0 then
        begin
         c := c + 1;
         if c = 20 then writeln(x);
        end;
        c := 0;
   end;
 Readln;
end.

2520 is the smallest number that can be divided by each of the numbers from 1 to 10 without any remainder.

 

What is the smallest positive number that is evenly divisible by all of the numbers from 1 to 20?

 

 

 

program Bevarde12;
var i, c : integer;
   x : longint;
begin
c := 0;
   for x := 1 to 2147483647 do
   begin
   for i := 1 to 20 do
        if x mod i = 0 then
        begin
         c := c + 1;
         if c = 20 then writeln(x);
        end;
        c := 0;
   end;
 Readln;
end.

 

 

Šitą užduotį tikrai galima atlikti protingiau. Be to, kai skelbi, kad padarei, neužmiršk parašyti programos vykdymo laiko. Jei jis viršija sekundę, tada programą galima dar patobulinti.