Laboratoriniai darbai

Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis.

9.4   (2 atsiliepimai)
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 1 puslapis
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 2 puslapis
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 3 puslapis
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 4 puslapis
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 5 puslapis
Free Pascal (FP). Funkcijos. Vyriausio mokinio amžiaus skaičiavimas dienomis. 6 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ą.
Aprašymas

2.1. Užduotis:
Žinome klasės mokinių gimimo datas (metai, mėnuo, diena). Rasti vyriausią mokinį ir atspausdinti, kiek dienų jis jau pragyveno. Skaičiavimo momento metus, mėnesį ir dieną įvesti klaviatūra (arba paimti kompiuterio datą). Parašyti funkciją, skaičiuojančią mokinio amžių dienomis. Pageidautina įvertinti keliamuosius metus.

Ištrauka

Žinome klasės mokinių gimimo datas (metai, mėnuo, diena). Rasti vyriausią mokinį ir atspausdinti, kiek dienų jis jau pragyveno. Skaičiavimo momento metus, mėnesį ir dieną įvesti klaviatūra (arba paimti kompiuterio datą). Parašyti funkciją, skaičiuojančią mokinio amžių dienomis. Pageidautina įvertinti keliamuosius metus.
Pradžia: Vyriausio mokinio amžiaus skaičiavimas dienomis.
Įvesti mokinių skaičių n.
Įvesti mokinio gimimo datą min.
mokNr := 2, n
Įvesti kito mokinio datą mokData.
xxx:= Vyr(mokData,min);
Kreipiamasi į funkciją Vyr vyriausio mokinio paieškai.
T\ mokData < min /N
min := mokData;
Vyr := min;
min:= xxx;
Surastas skaičius suskaidomas į datos elementus.
Išvedami vyriausio mokinio datos elementai.
Išvedama kompiuterio dabartinė data.
Skirtingomis sąlygomis skaičiuos dienų, mėnesių metų skirtumus.
T\ dien >= dienM ir men >= menM /N
skirtum := dien - dienM;
skirtumMen := men - menM;
skirtumMet := met – metM;
T\ dien >= dienM ir men <= menM /N
skirtum := dien - dienM;
skirtumMen := (men + 12) - menM;
skirtumMet := Pred (met) – metM;
T\ dien <= dienM ir men >= menM /N
B := Pred (men);
MenesioDien (A, B, C);
skirtum := (dien + C) - dienM;
skirtumMen := B - menM;
skirtumMet := met - metM;
T\ dien <= dienM ir men <= menM /N
B := Pred (men);
MenesioDien (A, B, C);
skirtum := (dien + C) - dienM;
skirtumMen := (B + 12) - menM;
skirtumMet := Pred (met) - metM;
Išves, koks vyriausio mokinio amžius, nurodant metus, mėnesius, dienas.
Skaičiuos keliamųjų metų, kuriuos pragyveno mokinys, kiekį k.
k := 0
g := metM, met
T\ g mod 400 = 0 /N
k := k + 1;
T\ g mod 100 = 0 /N
k := k;
T\ g mod 4 = 0 /N
k := k + 1;
k := k;
Susumuos mėnesių dienas.
sum := 0;
i := 1, skirtumMen
MenesioDien (metai,i,dienos);
sum := sum + dienos;
sum := skirtum + sum + (skirtumMet * 365)+ k;
Išvesti rezultatą sum.
Pabaiga
2.3. Programos tekstas
// L3-6. Žinome klasės mokinių gimimo datas (metai, mėnuo, diena). Rasti vyriausią mokinį ir
// atspausdinti, kiek dienų jis jau pragyveno. Skaičiavimo momento metus, mėnesį ir dieną
// įvesti klaviatūra (arba paimti kompiuterio...

Daugiau informacijos...

Šį darbą sudaro 1129 ž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!

Detali informacija
Darbo tipas
Failo tipas
Word failas (.doc)
Apimtis
6 psl., (1129 ž.)
Darbo duomenys
  • Informatikos laboratorinis darbas
  • 6 psl., (1129 ž.)
  • Word failas 121 KB
www.nemoku.lt Atsisiųsti šį laboratorinį darbą

www.nemoku.lt Panašūs darbai

Free Pascal (FP). Procedūros. Vidutinio greičio skaičiavimas

Free Pascal (FP). Procedūros. Vidutinio greičio skaičiavimas Informatika Peržiūrėti darbą

Free Pascal (FP). Triženkliai, kurie dalijasi iš nurodytų skaičių

Free Pascal (FP). Triženkliai, kurie dalijasi iš nurodytų skaičių Informatika Peržiūrėti darbą

Kompiuterio darbo pradžia OS funkcijos

Kompiuterio darbo pradžia OS funkcijos Informatika Peržiūrėti darbą

Apkrovų ir įrenginių kiekio telefono tinkle skaičiavimas

Apkrovų ir įrenginių kiekio telefono tinkle skaičiavimas Informatika Peržiūrėti 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