Namų darbai

Algoritmų ir duomenų struktūrų užduotys

9.0   (3 atsiliepimai)
Algoritmų ir duomenų struktūrų užduotys 1 puslapis
Algoritmų ir duomenų struktūrų užduotys 2 puslapis
Algoritmų ir duomenų struktūrų užduotys 3 puslapis
Algoritmų ir duomenų struktūrų užduotys 4 puslapis
Algoritmų ir duomenų struktūrų užduotys 5 puslapis
Algoritmų ir duomenų struktūrų užduotys 6 puslapis
Algoritmų ir duomenų struktūrų užduotys 7 puslapis
Algoritmų ir duomenų struktūrų užduotys 8 puslapis
Algoritmų ir duomenų struktūrų užduotys 9 puslapis
www.nemoku.lt
www.nemoku.lt
Aukščiau pateiktos peržiūros nuotraukos yra sumažintos kokybės. Norėdami matyti visą darbą, spustelkite peržiūrėti darbą.
Ištrauka

1 Užduoties analizė 1.1. Užduotis 22.Turime sporto klubo klientu sarasa: Numeris, Vardas, pavarde, narystes pradzia, narystes pabaiga, mokestis. Suformuoti sarasa lankytoju kuriems naryste nera pasibaigusi: Numeris, Vardas, pavarde, mokestis, dienu likusiu iki narystes pabaigos kiekis. 1.2. Duomenų analizė Apačioje išvardintiems duomenims aš priskiriu šiuos tipus: Nr.-Tai yra nario numeris, nauduojamas sveikasis skaičius. Pavardė –Pavardė laukas yra simboliu eilutė. Vardas - Vardas laukas yra simboliu eilutė. NP,NG – Sudaro metai, mėnuo, diena tai yra sveikieji skaičiai, pradžios ir galutinės narystes. Kaina – tai realus skaičius kad suskaičiuoti pajamos už nariste. 1.3. Programos struktūra 1.4. Programos globalieji aprašai Type TData=Record Y,M,D:Longint; End; TDat=Record Nr:Byte; Vardas,Pavarde:String; NP,NG:TData; {Narises pradzia, pabaiga} Kaina:Real; LD:Word; {Liko dienu} End; Const {Pavadinimai tekstiniu failu} Duom:String='Duomenys.txt'; Rez:String='Rezult.txt'; 1.5. Programos lokalieji aprašai Var Kiek:Byte; Dat:Array[1..100] of TDat; 1.6. Programos kodas Begin Isvaliti; If Ikelimas Then Begin Resultatas; End Else Begin Writeln('Failo klaida...'); End; Readln; End. 2 Procedūra Skaldimas, Resultatas. 2.1. Procedūros paskirtis Skaldimas-Suskaldo eilutė į dales kad galimą butu įkelti į masyvą apdorojimui Rusiavimas-Surušioja duomenys pagal varda, nauduodamas burbulini rušiavimą Resultatas-Išveda pradinius duomenys iš masyvo. Pateikia ušklausą paieškai (duomenys įvedami iš klaviaturos) Isvaliti-;Isvalo masyva. 2.2. Procedūros formalieji parametrai ir jų paskirtis Procedure Skaldimas(S:String; a:Byte); S-Eilute apdorojimui a-Apdorojantis elementas} 2.3. Procedūros vidiniai kintamieji ir jų paskirtis Procedure Skaldimas(S:String; a:Byte); {Skaldo eilute dalelem ir ikelia jos i masyva} Var Ch:String; {eilute apkirpimui ir apdarojimui} b:Real; {Nenauduojamas} c:Integer; {Konvirtavimo klaida} Procedure Resultatas; Var YY,MM,DD:Longint; {Ivedama data } a:Byte; {išsirinkamas elementas} t,tt,ttt:Longint; {Data paverciamos i dienas} F:Text; {Rezultatu failas} Label 10; Procedure Rusiavimas; {Rusiavimas burbulu} Var TData:TDat; a,b:Byte; Procedure Isvaliti;{Isvalo masyva} Var a:Byte; 2.4. Procedūros kodas Procedure Skaldimas(S:String; a:Byte); {Skaldo eilute dalelem ir ikelia jos i masyva} Var Ch:String; b:Real; c:Integer; Begin Val(Copy(S,1,Pos(' ',S)-1),Dat[a].Nr,c); Delete(S,1,Pos(' ',S)); {Dat[a].Nr=1} {S=‘Petras Jonaitis 2007 4 5 2007 7 20 200.99‘} Dat[a].Vardas:=Copy(S,1,Pos(' ',S)); Delete(S,1,Pos(' ',S)); {Dat[a].Vardas=‘Petras‘} {S=‘Jonaitis 2007 4 5 2007 7 20 200.99‘} Dat[a].Pavarde:=Copy(S,1,Pos(' ',S)); Delete(S,1,Pos(' ',S)); {Dat[a].Pavarde=‘Jonaitis‘} {S=‘2007 4 5 2007 7 20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NP.Y,c); Delete(S,1,Pos(' ',S)); {Dat[a].NP.Y=2007} {S=‘4 5 2007 7 20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NP.M,c); Delete(S,1,Pos(' ',S)); {Dat[a].NP.M=4} {S=‘5 2007 7 20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NP.D,c); Delete(S,1,Pos(' ',S)); {Dat[a].NP.D=5} {S=‘2007 7 20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NG.Y,c); Delete(S,1,Pos(' ',S)); {Dat[a].NG.Y=2007} {S=‘7 20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NG.M,c); Delete(S,1,Pos(' ',S)); {Dat[a].NG.M=7} {S=‘20 200.99‘} Val(Copy(S,1,Pos(' ',S)-1),Dat[a].NG.D,c); Delete(S,1,Pos(' ',S)); {Dat[a].NG.D=20} {S=‘200.99‘} Val(S,Dat[a].Kaina,c); Delete(S,1,Length(S)); {Dat[a].Kaina=200.99} {S=‘‘} End; Procedure Rusiavimas; {Rusiavimas burbulu} Var TData:TDat; a,b:Byte; Begin For a:=1 to Kiek-1 do For b:=a+1 to Kiek do Begin If Dat[a].Vardas>Dat[b].Vardas then Begin TData:=Dat[a]; Dat[a]:=Dat[b]; Dat[b]:=TData; End; End; End; Procedure Resultatas; Var YY,MM,DD:Longint; a:Byte; t,tt,ttt:Longint; F:Text; Label 10; Begin 10:Writeln; Writeln('Iveskite data: '); Write('Metai - ' ); Readln(YY); Write('Menuo - ' ); Readln(MM); Write('Diena - ' ); Readln(DD); If (MM>12) or (DD>30) Then {Patikrina ar teisingai ivesta data} Begin Writeln('Neteisingai ivesta data...'); Goto 10; End; Writeln; Writeln('Perziura klientu nurodita data...'); Writeln('Ivesta data - ',YY,'-',MM,'-',DD);; Writeln; Assign(F,Rez); ReWrite(F); For a:=1 to 100 do Begin If Dat[a].Nr0 Then Begin t:=Dat[a].NP.Y*365+(Dat[a].NP.M-1)*30+Dat[a].NP.D; tt:=YY*365+(MM-1)*30+DD; ttt:=Dat[a].NG.Y*365+(Dat[a].NG.M-1)*30+Dat[a].NG.D; If (tt>=t) And (tt

Daugiau informacijos...

Šį darbą sudaro 921 žodžiai, tikrai rasi tai, ko ieškai!

Turinys
  • 1 Užduoties analizė 2
  • 1.1. Užduotis 2
  • 1.2. Pradinių duomenų analizė 2
  • 1.3. Rezultatų analizė
  • 1.4. Programos struktūra 3
  • 1.5. Programos paskirtis
  • 1.6. Programos globalieji aprašai 3
  • 1.7. Programos lokalieji aprašai 3
  • 1.8. Programos struktūrograma
  • 2 Procedūra jkjkjjj 6
  • 2.1. Procedūros paskirtis 6
  • 2.2. Procedūros formalieji parametrai 6
  • 2.3. Procedūros vidiniai kintamieji 6
  • 2.4. Procedūros struktūrograma
  • 3 Funkcija jkjkjjj 9
  • 3.1. Funkcijos paskirtis 9
  • 3.2. Funkcijos rezultatas 9
  • 3.3. Funkcijos vidiniai kintamieji 9
  • 3.4. Funkcijos struktūrograma
  • 4 Vartotojo vadovas
  • 5 Programos kodas
  • 6 Duomenys ir rezultatai 9
  • 6.1. Duomenų failas 9
  • 6.2. Rezultatų failas 10

★ Klientai rekomenduoja


Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!

Detali informacija
Darbo tipas
Lygis
Universitetinis
Failo tipas
Word failas (.doc)
Apimtis
9 psl., (921 ž.)
Darbo duomenys
  • Programavimo namų darbas
  • 9 psl., (921 ž.)
  • Word failas 91 KB
  • Lygis: Universitetinis
www.nemoku.lt Atsisiųsti šį namų darbą
Privalumai
Pakeitimo garantija Darbo pakeitimo garantija

Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.

Sutaupyk 25% pirkdamas daugiau Gauk 25% nuolaidą

Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.

Greitas aptarnavimas Greitas aptarnavimas

Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!

Atsiliepimai
www.nemoku.lt
Dainius Studentas
Naudojuosi nuo pirmo kurso ir visad randu tai, ko reikia. O ypač smagu, kad įdėjęs darbą gaunu bet kurį nemokamai. Geras puslapis.
www.nemoku.lt
Aurimas Studentas
Puiki svetainė, refleksija pilnai pateisino visus lūkesčius.
www.nemoku.lt
Greta Moksleivė
Pirkau rašto darbą, viskas gerai.
www.nemoku.lt
Skaistė Studentė
Užmačiau šią svetainę kursiokės kompiuteryje. :D Ką galiu pasakyti, iš kitur ir nebesisiunčiu, kai čia yra viskas ko reikia.
Palaukite! Šį darbą galite atsisiųsti visiškai NEMOKAMAI! Įkelkite bet kokį savo turimą mokslo darbą ir už kiekvieną įkeltą darbą būsite apdovanoti - gausite dovanų kodus, skirtus nemokamai parsisiųsti jums reikalingus rašto darbus.
Vilkti dokumentus čia:

.doc, .docx, .pdf, .ppt, .pptx, .odt