Reikia pagalbos :)

1. Pavasaris

Maksimali taškų suma – 20 taškų

Kai kuriomis gegužės mėnesio dienomis oro temperatūra buvo matuojama tris kartus: ryte, vidurdienį ir vakare. Parašykite programą rasti dienai (dienoms), kai:

1) temperatūra buvo aukščiausia;

2) visų trijų (ryto, vidurdienio ir vakaro) matavimų temperatūra buvo ne žemesnė kaip 20 laipsnių.

Pradiniai duomenys surašyti tekstiniame faile U1duom.txt. Pirmoje eilutėje nurodytas dienų, kuriomis buvo matuota temperatūra, skaičius n (1 ≤ n ≤ 31). Tolesnėse eilutėse nurodyti matavimų duomenys. Viena eilutė skiriama vienos dienos matavimams. Čia įrašyti keturi sveikieji skaičiai: dienos numeris

(1 ≤ d ≤ 31), temperatūra ryte, vidurdienį ir vakare.

Rezultatai turi būti spausdinami tekstiniame faile U1rez.txt. Pirmoje eilutėje spausdinama diena ar dienos, kai temperatūra buvo aukščiausia, antroje eilutėje – dienos, kuriomis visų dienos matavimų temperatūra buvo ne žemesnė kaip 20 laipsnių. Jeigu tokių dienų nebuvo, spausdinamas skaičius 0 (nulis). Skaičiai turi būti atskirti bent vienu tarpu.

Nurodymai:

 Rašydami programą naudokite tik vienmačius sveikųjų skaičių masyvus.

 Parašykite funkciją aukščiausios temperatūros reikšmei rasti.

 Parašykite procedūrą dienų, kuriomis buvo aukščiausia temperatūra, numeriams įrašyti į failą.

 Parašykite procedūrą dienų, kuriomis visą dieną temperatūra buvo ne žemesnė kaip 20 laipsnių, numeriams įrašyti į failą.

Pavyzdys

U1duom.txt

10

6 13 15 22

9 20 19 18

10 10 25 16

11 12 25 25

13 14 14 25

15 10 10 10

18 21 21 22

22 15 23 13

25 25 15 15

29 22 24 24

U1rez.txt

10 11 13 25

18 29

darbas123.doc

Kiek mokėsi?

dėl atlygio sutarsime asmeniškai

1. Pavasaris

Maksimali taškų suma – 20 taškų

Kai kuriomis gegužės mėnesio dienomis oro temperatūra buvo matuojama tris kartus: ryte, vidurdienį ir vakare. Parašykite programą rasti dienai (dienoms), kai:

1) temperatūra buvo aukščiausia;

2) visų trijų (ryto, vidurdienio ir vakaro) matavimų temperatūra buvo ne žemesnė kaip 20 laipsnių.

Pradiniai duomenys surašyti tekstiniame faile U1duom.txt. Pirmoje eilutėje nurodytas dienų, kuriomis buvo matuota temperatūra, skaičius n (1 ≤ n ≤ 31). Tolesnėse eilutėse nurodyti matavimų duomenys. Viena eilutė skiriama vienos dienos matavimams. Čia įrašyti keturi sveikieji skaičiai: dienos numeris

(1 ≤ d ≤ 31), temperatūra ryte, vidurdienį ir vakare.

Rezultatai turi būti spausdinami tekstiniame faile U1rez.txt. Pirmoje eilutėje spausdinama diena ar dienos, kai temperatūra buvo aukščiausia, antroje eilutėje – dienos, kuriomis visų dienos matavimų temperatūra buvo ne žemesnė kaip 20 laipsnių. Jeigu tokių dienų nebuvo, spausdinamas skaičius 0 (nulis). Skaičiai turi būti atskirti bent vienu tarpu.

Nurodymai:

 Rašydami programą naudokite tik vienmačius sveikųjų skaičių masyvus.

 Parašykite funkciją aukščiausios temperatūros reikšmei rasti.

 Parašykite procedūrą dienų, kuriomis buvo aukščiausia temperatūra, numeriams įrašyti į failą.

 Parašykite procedūrą dienų, kuriomis visą dieną temperatūra buvo ne žemesnė kaip 20 laipsnių, numeriams įrašyti į failą.

Pavyzdys

U1duom.txt

10

6 13 15 22

9 20 19 18

10 10 25 16

11 12 25 25

13 14 14 25

15 10 10 10

18 21 21 22

22 15 23 13

25 25 15 15

29 22 24 24

 

U1rez.txt

10 11 13 25

18 29

Kažkur labai matyta :D Galbūt pavyktų dar atrasti mano sprendimą :)

būtų zjbs :) sutartume :)

Kokia kalba?

Jei Java, kreipkis.

Kokia kalba?

Tu žadi padėti žmogui ?

Jei taip tada koks tu programuotojas jei net nežinai kas yra U1rez.txt.

P.S. Čia yra pascal arba delphi.

Tu žadi padėti žmogui ?

Jei taip tada koks tu programuotojas jei net nežinai kas yra U1rez.txt.

 

P.S. Čia yra pascal arba delphi.

Dirbu su Java pagrinde, ir panašias programas rašiau. O pascalio visai nečiupinėjęs rimčiau :) Tad atsiprašau.

Jei taip tada koks tu programuotojas jei net nežinai kas yra U1rez.txt.

Wtf? Gal žmogus su tuo paskaliu niekad neužsiėmęs ir net mokykloj informatikos nesimokęs? Pasiimsiu nuotrauką, užvadinsiu U1rez.txt ir tada pasakyk kas per failas tai. Jei nepasakysi - tu ne programuotojas :D

Prašau

program Pavasaris;

const CMax = 31; // Geguzes menesio dienu skaicius

C20 = 20; // Lyginimo kriterijus

CDuom = 'U1.txt';

CRez = 'U1rez.txt';

type

mas = array[1..CMax] of integer;

var

n:integer; // Temperaturos matavimo dienu skaicius

Rytas, // Temperaturos ryte

Vidurdienis, // Temperaturos per pietus

Vakaras:mas; // Temperaturos vakare

procedure Skaityti;

var i:integer;

F:text;

dn, // Geguzes menesio diena

ryt, // Temperatura ryte

vidurd, // Temperatura per pietus

vak:integer; // Temperatura vakare

Begin

Assign(F,Cduom);

Reset(F);

ReadLn(F,n);

for i := 1 to n do

Begin

ReadLn(F,dn,ryt,vidurd,vak);

// Pildome temperaturu duomenis ryte

Rytas[dn] := Rytas[dn] + ryt;

// Pildome temperaturu duomenis per pietus

Vidurdienis[dn] := Vidurdienis[dn] + vidurd;

Vakaras[dn] := Vakaras[dn] + vak;

end;

Close(F);

end;

function MaksimaliTemperatura(DienosMetas:Mas):integer;

var i,max:integer;

Begin

max := DienosMetas[1];

for i := 1 to CMax do

if DienosMetas > max then max := DienosMetas;

MaksimaliTemperatura := max;

end;

procedure Rasyti;

var i:integer;

F:text;

Begin

Assign(F,CRez);

Rewrite(F);

for i:= 1 to CMax do

// Tikrinti kuria diena buvo maksimali temperatura

if ((Rytas = MaksimaliTemperatura(Rytas)) or

(Vidurdienis = MaksimaliTemperatura(Vidurdienis)) or

(Vakaras = MaksimaliTemperatura(Vakaras))) then

write(F,' ',i);

Writeln(F);

Close(F);

end;

procedure PildytiFaila;

var i:integer;

t:boolean; // Pozymis, kad visa geguzes menesio diena buvo daugiau nei 20

F:text;

Begin

Assign(F,CRez);

Append(F);

t := false;

for i:= 1 to CMax do

// Tikrinti kuria diena buvo maksimali temperatura

if ((Rytas >= C20) and

(Vidurdienis >= C20 ) and

(Vakaras >= C20 )) then

Begin

write(F,' ',i);

t := true;

end;

if t = false then write(F,' ',0);

Close(F);

end;

{--------------------------------Pagrindine programa---------------------------}

begin

Skaityti;

Rasyti;

PildytiFaila;

end.

Wtf? Gal žmogus su tuo paskaliu niekad neužsiėmęs ir net mokykloj informatikos nesimokęs? Pasiimsiu nuotrauką, užvadinsiu U1rez.txt ir tada pasakyk kas per failas tai. Jei nepasakysi - tu ne programuotojas :D

Pabandysiu aš tave apšviesti pagal Lietuvos Švietimo sistemą.

1.Pagrindinėje mokykloje informatika yra dėstoma ir nekalbėk nesąmonių.

2.Informatikos kurse su pascal'io programa yra mokoma dirbti, bet aišku jei nenori gali nedirbti čia jau asmeninis žmogaus apsisprendimas .

3.

„Pasiimsiu nuotrauką, užvadinsiu U1rez.txt ir tada pasakyk kas per failas tai. Jei nepasakysi - tu ne programuotojas :D“

Tavo pokštas nevykęs,nes net ir blondinė mergina atskirtu jog ten ne pascal‘io failas, o nuotrauka.

P.S. Aš ir nesakau, kad programuotojas turi mokėti viską, bet žinoti apie paskali tai tikrai turi.Nors iš bendro išprusimo.Arba gali pasinaudoti google :) kas tai per velnias yra tas „U1duom.txt“

Pabandysiu aš tave apšviesti pagal Lietuvos Švietimo sistemą.

1.Pagrindinėje mokykloje informatika yra dėstoma ir nekalbėk nesąmonių.

2.Informatikos kurse su pascal'io programa yra mokoma dirbti, bet aišku jei nenori gali nedirbti čia jau asmeninis žmogaus apsisprendimas .

3.

Tavo pokštas nevykęs,nes net ir blondinė mergina atskirtu jog ten ne pascal‘io failas, o nuotrauka.

 

P.S. Aš ir nesakau, kad programuotojas turi mokėti viską, bet žinoti apie paskali tai tikrai turi.Nors iš bendro išprusimo.Arba gali pasinaudoti google :) kas tai per velnias yra tas „U1duom.txt“

Čia jokio pokšto, aš rimtai šneku. Nėra tokio dalyko kaip „paskalio failas“. Tai yra tekstinis failas. Aš tokį pat failą galiu panaudot bet kokioj programavimo kalboj ar šiaip programoj. Galbūt žmogus jau xx metų kaip ne mokykloj, tai ar būdamas programuotoju jis privalo mokėti, kaip failus vadina užduočių sudarinėtojai? :)

Čia jokio pokšto, aš rimtai šneku. Nėra tokio dalyko kaip „paskalio failas“. Tai yra tekstinis failas. Aš tokį pat failą galiu panaudot bet kokioj programavimo kalboj ar šiaip programoj. Galbūt žmogus jau xx metų kaip ne mokykloj, tai ar būdamas programuotoju jis privalo mokėti, kaip failus vadina užduočių sudarinėtojai? :)

Manau temos neverta vystyti, nes šitam forumui jokios naudos iš tuščių plepalų.

P.S. Patariu nerašyti išvedžiojimu, apie xx metų ir panašiai, nes tai tik kursto diskusijas apie orą.

Manau temos neverta vystyti, nes šitam forumui jokios naudos iš tuščių plepalų.

P.S. Patariu nerašyti išvedžiojimu, apie xx metų ir panašiai, nes tai tik kursto diskusijas apie orą.

Beje,

U1duom.txt - taip pradinių duomenų vadina VBE egzamino sudarinėtojai.

U1 - Užduotis 1

Duom - duomenys

Txt - failo plėtinys (ir čia nėra joks paskalio failas, paskalio failai yra *.pas, tačiau iš esmės galima vadinti taip, kaip nori).

Ir, manau, žinojimas, kaip vadinami failai egzamine, ir programavimo suvokimas, gebėjimas programuoti yra visiškai nesusiję dalykai.