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

 2. L3. Funkcija Atlikėja: Data: Dėstytojas: Ataskaita(5) - Programa(5) - 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. 2.2. Programos aprašymas 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 = dienM ir men >= menM /N skirtum := dien - dienM; skirtumMen := men - menM; skirtumMet := 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 0) and (( m mod 4) =0) then d := 29 else d := 28 otherwise d := 0; WriteLn ('klaida'); end; end; //------------------------------------------------- Pagrindinė programa -------------------------------------------------- var dienM, menM, metM : longInt; //Kintamieji, žymintys mokinio datos elementus; skirtumMet, skirtumMen, skirtum, // Vyr. mokinio amžius, nurodant m/men/d; A, B, C, metai, dienos, // Procedūros „MenesioDien“ faktiškieji parametrai: //metai, mėnesiai, dienos; n, // Klaviatūra įvedamas kintamasis – mokinių skaičius; mokNr : integer; // Ciklo kintamasis; met, men, dien, sav : word; //Kintamieji kompiuterio datai gauti; begin Write('Kiek klasėje mokinių? '); ReadLn (n); WriteLn; Write('Įveskite pirmojo mokinio gimimo datą (be tarpų): '); ReadLn (min); for mokNr := 2 to n do begin Write('Įveskite ',mokNr,'-ojo mokinio gimimo datą: '); ReadLn(mokData); //Kreipsis į funkciją vyriausiojo paieškai xxx:= Vyr(mokData,min); // Suranda mažiausią iš dviejų min:= xxx; // Pakeičia mažiausią datą dienM := xxx mod 100; // Išskaido 8-ženklį į: 2-žeklį - dienas, menM := xxx mod 10000 div 100; //sekantį 2-žeklį - mėnesius, metM := xxx div 10000; // 4-žeklį - metus. end; WriteLn; TextBackground (lightGreen); TextColor (Yellow); WriteLn (' Vyriausias mokinys gimė '); // Parašys išskaidytą datą WriteLn (' ', metM, ' metais,', menM, 'mėnesį,', dienM, 'dieną.'); TextBackground (black); TextColor (white); WriteLn ('::::::::::::::::::::::::::::::::::::::::'); GetDate (met, men, dien, sav); WriteLn ('Dabar yra: ', met,'/', men,'/', dien); WriteLn ('::::::::::::::::::::::::::::::::::::::::'); WriteLn; // Skirtingomis sąlygomis skaičiuos dienų, mėnesių metų skirtumus. if (dien >= dienM) and (men >= menM) then //Skolintis nereikia begin skirtum := dien - dienM; skirtumMen := men - menM; skirtumMet := met - metM; end; if (dien >= dienM) and (men = menM) then //Skolinamės iš mėnesių begin B := Pred (men); MenesioDien (A, B, C); skirtum := (dien + C) - dienM; skirtumMen := B - menM; skirtumMet := met - metM; end; if (dien = dienM) and (men >= menM) 1990-06-21 19 m. 3 mėn. 6 d. 7037 1991-10-24 1992-02-28 1990-11-05 2. 6 (dien >= dienM) and (men = menM) 1991-07-28 1990-07-28 19 m. 1 mėn. 30 d. 7001 1990-08-30 4. 4 (dien

Daugiau informacijos...

★ 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!