Pascal - programavimo kalba

Programavimas bei interneto svetainių kūrimas
amareslam
Posts: 2
Joined: Tue Nov 30, 2010 10:10 pm

Re: Pascal - programavimo kalba

Postby amareslam » Tue Nov 30, 2010 10:16 pm

Sveiki. Labai labai reikia programuotojo pagalbos ;) . Galva "niekaip neisnesa" vieno dalyko : kaip su funkcija grazinti masyva? Juk funkcijos antrasteje apsirasome funkcijos varda, jos parametru sarasus ir tam funkcijos vardui veliau turime priskirti kazkoki tai rezultata. Kaip tai imanoma padaryti su rinkiniu, kuriame yra daug rezultatu? O juo labiau, ar imanoma, kad funkcija grazintu kelis, ne viena, masyva? Aciu.

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Wed Dec 01, 2010 5:48 pm

funkcija gali gražinti tin vieną rezultatą. Pvz.: function adc(lala :integer) : integer; Šita funkcija gražintų adc.
Shiz - šprotai irgi žuvis

Lin3R
Posts: 765
Joined: Tue Jul 18, 2006 8:23 pm
Location: Kaunas

Re: Pascal - programavimo kalba

Postby Lin3R » Wed Dec 01, 2010 8:41 pm

Sveiki. Labai labai reikia programuotojo pagalbos ;) . Galva "niekaip neisnesa" vieno dalyko : kaip su funkcija grazinti masyva? Juk funkcijos antrasteje apsirasome funkcijos varda, jos parametru sarasus ir tam funkcijos vardui veliau turime priskirti kazkoki tai rezultata. Kaip tai imanoma padaryti su rinkiniu, kuriame yra daug rezultatu? O juo labiau, ar imanoma, kad funkcija grazintu kelis, ne viena, masyva? Aciu.
...
masyvo_tipas = array [1..100] of integer;
...
...
function MASYVO_VARDAS(a, b : integer):masyvo_tipas

Manau turėtų veikti, gal palikau kokių sintaksės klaidų.

O kad grazintų kelis masyvus, tai manau i ta pacia funkcija paduoti kelis masyvus.
Viskas ką pasakiau gali būti netiesa ;)

parulskis
Posts: 14
Joined: Fri Nov 05, 2010 6:38 pm

Re: Pascal - programavimo kalba

Postby parulskis » Fri Dec 03, 2010 9:19 pm

gal galit padėt su šiuo uždaviniu:
parašykite programą,kuri rastų kurios komandos užėmė pirmas 3 vietas. Pradiniai duomenys komandų pavadinimų masyvas,komandų pergalių masymas. kur įmanoma naudoti procedūras ir funkcijas.

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Sat Dec 04, 2010 9:22 am

Na nelabai aiškiai parašęi... Galėtum parašyt pradinių duomenų ir rezultato pavyzdį, nes neaišku kaip skaityti...Skaityti reikia iš failo? Kokie rėžiai?
Shiz - šprotai irgi žuvis

parulskis
Posts: 14
Joined: Fri Nov 05, 2010 6:38 pm

Re: Pascal - programavimo kalba

Postby parulskis » Sun Dec 05, 2010 11:18 am

šiaip ir pats nelabai žinau,tiesiog davė uždavinį ir tiek. kadangi skaitymo iš failų dar nesimokėm tai manau duomenis ne iš failo skaityt o kazkaip per masyvus ir funkcijas

amareslam
Posts: 2
Joined: Tue Nov 30, 2010 10:10 pm

Re: Pascal - programavimo kalba

Postby amareslam » Sun Dec 05, 2010 4:29 pm

Sveiki. Gal zinote, ar galima vienoje programoje panaudoti kokias 5-6 logines funkcijas, norint skirdtyti masyva pagal pozymius? Ar tai yra neekonomiska, netaisyklinga? Aciu.

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Mon Dec 06, 2010 2:56 pm

gal galit padėt su šiuo uždaviniu:
parašykite programą,kuri rastų kurios komandos užėmė pirmas 3 vietas. Pradiniai duomenys komandų pavadinimų masyvas,komandų pergalių masymas. kur įmanoma naudoti procedūras ir funkcijas.
Iš pradžių skaityk duomenis si procedūra. Tada surikiuok su procedūra. Ir galiausiai Išvesk duomenis su procedūra(nors geriau būtų programoje, bet jei tau reikia gali ir procedūroje) ir užpildyk programoje kreipinius.

Sveiki. Gal zinote, ar galima vienoje programoje panaudoti kokias 5-6 logines funkcijas, norint skirdtyti masyva pagal pozymius? Ar tai yra neekonomiska, netaisyklinga? Aciu.
Jei požymiai sudėtingi ir susiję - labai patogu. Jei labai paprasti ir vienareikšmiai užtektų vienos funkcijos. (jei gerai supratau)
Shiz - šprotai irgi žuvis

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Tue Dec 21, 2010 7:08 pm

Sveiki, gal kas galit padėt su šia programa ( nebutinai visą programą)?

Senelis augina rožes. Jo gėlyną sudaro n lysvių, kuriose auga po m rožių krūmų. Deja, senelis pamiršo nupurkšti rožes skiediniu, apsaugančiu nuo ligų, ir kai kurie krūmai užsikrėtė. Juos teks išrauti. Tai padarius visas gėlynas gali suskilti į mažesnius įvairaus dydžio bei formos rožių krūmynus.
Parašykite: a) sprendimo idėją ir
b) programą, randančią kiek dabar yra atskirų rožių krūmynų.
Pradiniai duomenys įrašyti faile duom.txt. Pirmoje failo eilutėje atskirti tarpu įrašyti du natūralieji skaičiai n ir m (1 ≤ n ≤ m ≤ 100). Likusiose n eilučių įrašyta po m neatskirtų tarpais nulių arba vienetų: 0 rodo, kad šioje vietoje rožių krūmo nėra, 1 – yra.
Rezultatas – rožių krūmynų skaičius – įrašomas į failą rez.txt.
Pradinių duomenų ir rezultatų pavyzdys

Pradiniai duomenys Rezultatai
3 12
110110110111
100010010111
111011010011 4

Matyti, kad yra 4 rožių krūmynai.

----------------------------------------------------
JAU NEBEREIKIA
Shiz - šprotai irgi žuvis

pascal44
Posts: 1
Joined: Fri Jan 14, 2011 2:52 am

Re: Pascal - programavimo kalba

Postby pascal44 » Fri Jan 14, 2011 2:58 am

Sveiki,

Gal kam pavyks įveikti tokį uždavinuką:

"Lėktuvas pakilo iš aerouosto, kai buvo A valandų ir B minučių. Lėktuvas ore praleido C minučių.
Parašykite programą, kuri nustatytų, kiek bus valandų V ir minučių M, kai lėktuvas nusileis.
Atkreipkite dėmesį, kad C reikšmė gali būti didelė ir lėktuvas gali leistis ne tą pačią parą. Parašykite
programą šiam uždaviniui spręsti. Pasitikrinkite: kai A = 23, B = 55, C =14, tai lėktuvas leisis V = 0
valandų ir M = 9 minutės.
"

Veikiausiai sprendimas bus išnaudojant DIV ir MOD galimybęs, kadangi tai uždavinys iš tokios temos. Originalą galima rasti:

http://83.171.17.211/intronet/informati ... i/pas2.pdf

Jei kam pavyks, iš anksto Ačiū!

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Fri Jan 14, 2011 8:41 am

Code: Select all

program lektuvas; var A,B,V,M,C : integer; begin readLn(A,B,C); B := B + C; M := B mod 60; V := A + B div 60; V := V mod 24; writeln(V,' ',M); readln; end.
Shiz - šprotai irgi žuvis

paulixxx
Posts: 215
Joined: Fri Jan 01, 2010 8:57 pm

Re: Pascal - programavimo kalba

Postby paulixxx » Sat Jan 22, 2011 10:42 pm

Sveiki,
Užduotis tokia: įvedus atstumą ir greitį turi suskaičiuoti kiek truktų kelionė val min ir sek. Parašiau tiek, val ir min rodo gerai, bet sek rodo -0.

Code: Select all

program laikas; var val,s,v:longint; min,sek:real; begin WriteLn('Įveskite atstuma(km) ir greitį(km/h)'); Read(s,v); val:= s div v; min:= (s / v - val) * 60; sek:= ((s / v - val) * 60 - min) * 60 ; writeln(val,' h ',min:2:0,' min ',sek:2:0,' sek'); readln; end.
Kur klaidą įvėliau? ;)
Windows 7 Ultimate; NVIDIA GeForce 9500 GT (1024 MB); AMD Athlon(tm) 64 X2 Dual Core Processor 4400+; HDD 250GB; 3 GB RAM DDR II; PSU 350W;MB Gigabyte GA-M61PME-S2

User avatar
virusass
Posts: 241
Joined: Sun Jul 12, 2009 2:06 pm
Location: Subačius

Re: Pascal - programavimo kalba

Postby virusass » Sun Jan 23, 2011 12:30 pm

Tu priskiri min (s / v - val) * 60, o tada iš (s / v - val) * 60 atimi min... :D ((s / v - val) * 60) - ((s / v - val) * 60) = 0 :)
Shiz - šprotai irgi žuvis

paulixxx
Posts: 215
Joined: Fri Jan 01, 2010 8:57 pm

Re: Pascal - programavimo kalba

Postby paulixxx » Sun Jan 23, 2011 3:30 pm

:shock: :D . Kaip tada kitaip išspręsti šį uždavinį? div, mod su real tipo kintamaisiais neveikia. ;)
EDIT: Sugalvojau :D

Code: Select all

program laikas; var val,s,v:longint; min,sek:real; begin WriteLn('Áveskite atstuma(km) ir greitá(km/h)'); Read(s,v); val:= s div v; min:= round((s / v - val) * 60); sek:= ((s / v - val) * 60 - min) * 60 ; writeln(val,' h ',min:2:0,' min ',sek:2:0,' sek'); Readln; end.
Windows 7 Ultimate; NVIDIA GeForce 9500 GT (1024 MB); AMD Athlon(tm) 64 X2 Dual Core Processor 4400+; HDD 250GB; 3 GB RAM DDR II; PSU 350W;MB Gigabyte GA-M61PME-S2

parulskis
Posts: 14
Joined: Fri Nov 05, 2010 6:38 pm

Re: Pascal - programavimo kalba

Postby parulskis » Wed Jan 26, 2011 9:32 pm

Pavardžių seką ir amžiaus seką faile nuskaityti su whilenoteol. Į naują failą atspausdinti tas pavardes,kurie yra vyresni nei 20 metų. Kas gali padėt su šiuo uždaviniu?


Return to “Programuotojų kampas”

Who is online

Users browsing this forum: No registered users and 24 guests

cron