Tekstiniame faile pateikiami: vardas, pavardė, skyrius , kada pradėjo dirbti ir kiek metu jau dirba. Rezultatų faile išvedami: vardas, pavardė, skyrius, kada pradėjo dirbti, kiek metų jau dirba.
1.2. Pradinių duomenų analizė
Pradiniame faile pateikiami: vardas, pavardė, skyrius, kada pardėjo dirbti data.
1.3. Rezultatų analizė
I rezultatų failą išvedama: šiandienos data, vardas, pavardė, skyrius, kada pardėjo dirbti data, kiek jau metų dirba iki šiandienos.
1.4. Duomenų struktūra
type
data = record (*pajima siandienos data*)
diena, menuo, metai : integer;
end;
zmogus = record
vardas, pavarde, skyrius : string[20];
dat : data;
end;
gyv = array[1..20] of zmogus;
Duomenims saugoti naudosime masyvą kurio ilgis 20.
Sąrašą sudaro tokie laukai: vardas ir pavarde, skyrius simbolių eilutės kuriose išsaugomi vardai ir pavardės, bei skyrius kurių ilgis iki 20 simbolių. dat simbolių eilutė kurioje išsaugoma data(kada pardejo dirpti).
2 Programos struktūra
3 Pagrindinis programos modulis
3.1. Programos paskirtis
Apskaičiuoti bendra gaunamos pašalpos dydį
3.2. Programos globalieji aprašai
type
data = record (*pajima siandienos data*)
diena, menuo, metai : integer;
end;
zmogus = record
vardas, pavarde, skyrius : string[20];
dat : data;
Kintamasis
Paaiškinimas
Tipas
Vardas
Žmogaus vardas
Simbolių eilutė ilgis 15 simbolių
Pavarde
Žmogaus pavardė
Simbolių eilutė ilgis 15 simbolių
skyrius
Kokiame skyriuje dirba
Simbolių eilutė ilgis 15 simbolių
dat
Data (nuo kada dirba)
data
3.3. Programos lokalieji aprašai
3.4. Programos struktūrograma
Procedūra Datos_issk
Procedūra ived
Procedūra isved
Programos pabaiga
4 Procedūra ived
4.1. Procedūros paskirtis
Nuskaityti kiek jau dirba metų.
4.2. Procedūros formalieji parametrai
4.3. Procedūros vidiniai kintamieji
Kintamasis
Paaiškinimas
Tipas
y
Metai(dabar)
Tekstinis failas
m
Menesis(dabar)
Simbolių eilutė
d
Diena(dabar)
Simbolių eilutė
c, k
Saugomi tarpiniai simbolių eilutės duomenys
Simbolių eilutė
ss
Saugomi tarpiniai simbolių eilutės duomenys
Simbolių eilutė
i
Eilutes ilgiu
Sveikas skaičius
j
Eilutes ilgiu
Sveikas skaičius
4.4. Procedūros struktūrograma
Procedūra ived
Nuskaitome iš failo F
ReadLn (F, S);
n := n + 1;
pos(' ', S)=1 do
delete (S, 1, 1);
SS := S;
Delete (SS, pos(' ', SS), length(SS)-pos(' ', SS)+1);
A[n].vardas := SS;
Delete (S, 1, Pos(' ', S));
pos(' ', S)=1 do
delete (S, 1, 1);
SS := S;
Delete (SS, pos(' ', SS), length(SS)-pos(' ', SS)+1);
A[n].pavarde := SS;
Delete (S, 1, Pos(' ', S));
pos(' ', S)=1 do
delete (S, 1, 1);
SS := S;
Delete (SS, pos(' ', SS), length(SS)-pos(' ', SS)+1);
delete(s,1,c)
A[n].skyrius := SS;
Delete (S, 1, Pos(' ', S));
Datos_issk (S, A[n].dat)
Procedūros pabaiga
5 Procedūra išved
5.1. Procedūros paskirtis
Išvesti į rezultatų failą apdorota informaciją apie...
Šį darbą sudaro 1441 žodžiai, tikrai rasi tai, ko ieškai!
★ 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!
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!