wigas

Persižiūrėk praeitų metų užduotis ar kada buvo tas ir kokie reikalavimai, rikiavimas būną kartais kiek šnekėjęs su mokytoju. Pačiam reikės laikyti IT egzaminą šiemet tik aš laikysiu pascal'u, bet programa ir užduotis tokia pat būna.

 

Pvz, pernai buvo reikalingas rikiavimas gali užduotį persižiūrėti "Šokiai"

Parašykite procedūrą šokėjų sąrašui rikiuoti gautų balų mažėjimo tvarka

http://egzaminai.lt/165/

 

Kiek skaičiau apie reikalavimus tai nėra užsiminta kokia bibliotekas gali naudoti. Tai turėsi pasiklausti mokytojo ar leidžia naudoti papildomas, nes gali visokių variantų būti, kad jos tuo metu nebus.

Dėl užduoties atsiprašau - nemaniau, jog į „paprasčiausias variantas" įeina užduoties performulavimas.

 

Na, kodas kurį lengva skaityti ir tavo kodas nekoreliuoja. Gal gali parodyti kur matei tokį kodavimo standartą? :-)

 

 

Gaila žiūrėti, kad mokyklose skiramas labai mažas dėmesys kodo kultūrai – pirmakursiai programuotojai dažnai gauna velnių už Taip_negraziaiPAVADINTUSkintamuosius ir nelogišką indentaciją.. :-(

Taip mokyklose mažai tikrai dėmesio skiria programavimo kodo kultūrai, bet jos manau mano mokykloje buvo pakankamai. Kiek teko naudoti dalyvauti(konkursuose) su pascal dažniausiai mano pateiktas variantas dėl lygiavimo ir komentavimo kintamųjų buvo labai geras, tai ir tokį rašau pascal visur

Nemanau kad čia prastas lygiavimas..

var
kint,   //komentaras
kint,   //komentaras
:integer;

 

Gana off-topic kiekvienas turim savo stilių svarbiausia kodo perskaitymui mano lygiavimas neturi reikšmės. Svarbu, kad žmogus suprato nors kažkiek.

skaiciau sita, ne daug paaiskejo,kaina ziauriai didele, ir tik oro pastu, o kaip laivyba?

Kokia tau laivyba, niekas laivais į kiniją negabena tik oro paštu ir žemės paštu, o dėl gražinimo žiūrėk ar vertą tau jį siųsti atgal ar nebus per brangu ir ne išeis telefonas dvigubai brangiai.

Iš kur tas „4" duomenų faile? Sąlygoje apie tai nekalba, lyg ir. :-)

 

Jami while'ą, SeekEOF ir važiuoji per visą failą.

http://www.freepasca...em/seekeof.html

 

Beje, nelabai gražus kodas:

var
	a, // comment
	b, // comment
	: type

 

Kultūringiau būtų daryti šitaip:

var
   a : type;         	// comment
   b : type;         	// comment
   c : type;         	// comment
   longVariable : type;  // comment

O geriausia, naudoti prasmingus vardus ir nereikės komentuoti. Taip pat, lengviau grupuoti kintamuosius pagal „prasmę". :-)

var
  studentsCount, studentIndex : integer;
  i : integer;
  // File handles
  fInput, fOutput : text;
  studentsList : student_t;

 

 

Sėkmės.

 

Kaip ir sakiau sąlyga nėra pilna ir pradiniai duomenis neduoti.4 nurodo skaičių mokinių. Tai kaip lengviausią būdą parodžiau. Galimas ir tavo variantas.

Čia kam gražu, kam negražu yra atskiras dalykas, pascal taip yra aprašomi kintamieji ir komentuojami.

Nėra tiksli sąlyga, ar gali būti vienodi ugiai, jei vienodi ar rezultate visi rašomi aukščiausi ir žemiausi mokiniai.

Paprasčiausias variantas, bet galima jį parašyti su įrašais, procedūromis, funkcijomis.

program Bevardė0;
type	mas=array[1..10] of real;
   	mas1=array[1..10] of string[17];  //17 vietų skirta mokinio vardui ir pavardei.
var
n,  //kiek yra mokinių
i,  //ciklo kintamasis
index  //mokinio indeksas, reikės aukščiausiam ir žemiausiam mokiniui surasti
:integer;
F1, //Failas kuriame yra duomenys
F2  //Failas į kurį bus surašyti rezultatai
:text;
mokinys //Mokinio duomenys vardas, pavardė
:mas1;
paz //Mokinio pažymiai
:mas;
auk, //aukščiausias mokinys
zem //žemiausias mokinys
:real;
begin
//Nuskaitome faila ir priskiriame kintamiesiems duomenis
assign(F1,'duom.txt');
reset(F1);
readln(F1,n);
for i:=1 to n do readln(F1,mokinys[i],paz[i]);
//Įrašome rezultatus
assign(F2,'rez.txt');
rewrite(F2);
//Surandame aukščiausią mokinį
auk:=0;
for i:=1 to n do
if auk < paz[i]
then
   	begin
       	auk:=paz[i];
       	index:=i;
   	end;
writeln(F2,'Aukščiausias mokinys:');
writeln(F2,mokinys[index],' ',paz[index]:0:2);
//Surandame žemiausią mokinį
zem:=paz[index];
for i:=1 to n do
if zem > paz[i]
then
   	begin
       	zem:=paz[i];
       	index:=i;
   	end;
writeln(F2,'Žemiausias mokinys:');
writeln(F2,mokinys[index],' ',paz[index]:0:2);
close(F2);
end.

duom.txt

4
Petras Petraitis 1.78
Jonas Jonaitis   1.58
Frenkas Frenko   1.43
Maiklas Maklo	1.64

Ar ko pats nemoki? Nuskaitai failą, reikšmes priskiri kintamiesiems, surandi min(mažiausia ugį) IR max(didžiausią ugį) ir įrašai gautus rezultatus lengviau negali būti. Klausk padėsim ko nemoki, o nelauk, kad kas už tave parašytu.

Dėl teksto nuskaitymo tai užduotyje būna nurodytas eilutės ilgis t.y vardo, pavardės, pavadinimo, tada pagal ta ilgi sulygiuoji duomenis ir viskas. Dėl kartojimo gali daryti su pasirinkimu pavyzdukas, prisitaikysi pagal užduotį.

program Bevardė0;
var a,t:integer;
b:char;
begin
t:=1;
while t = 1 do
begin
   	readln(a);
   	if a=1 then
   	begin
       	Writeln('Pirmasis gimtadienį švęs ',a);
       	t:=0;
   	end
   	else
   	begin
       	Writeln('Šį mėnesį gimtadienio niekas nešvęs, jeigu norite tikrinti kitą mėnesį spauskite t jei ne n') ;
       	readln(b);
       	if b = 't' then t:=1
       	else t:=0;
   	end;
end;
Readln;
end.

Neina subdomeno perkelti. Gali dns pasikeisti jei įmanoma tada bus nukreiptas į naują hostingą, bet senam lužus nebus pasiekiamas.

Negali naudoti, aiškiai straipsnyje parašyti. Jis yra už patentavęs kaip prekės ženklą, tai be jo sutikimo negali naudoti. Nesvarbu ar tai tik žodžiai ar tik kaip ženklas be savininko sutikimo naudoti negalima. Ir kaip suprantu komerciniais tikslais dar naudoji.

Kad nelabai ką ir laimėtum kreipdamasis. Jei vertėsi mašina šonu ir didelio smūgio nebuvo per duris ir neišsiskleidė, o gal net nėra šonuose oro pagalvių tik prėkyje, jei taip tai juos išsiskleidžia tik nuo didelio smūgio į priekį.

Gal autorius nelabai supranta kuo skiriasi vienas draudimas nuo kito. Paaiškinsiu suprantamai su pvz:

Tu važiuoj su VW atsitrenki į BMW ir abu automobiliai apgadinti:

1. Jei tu turi tik privalomąjį draudimą, tai draudimo kompanija sutaisys tik BMW.

2. Jei tu turi privalomąjį ir KASKO draudimą, tai draudimo kompanja sutvarkys abudu automobilius.

 

Netik KASKO draudimas galioje ir nuo vagysčių ir kitokių priežasčių, o civilinės atsakomybės draudimas tik nuo avarijos padarinių. Jei neturi stažo kainuos daug draudimas nuo 500lt kažkur bus metams, o jei turi stažą tai pigiau. Mano tėvas yra mano mašiną apdraudęs ir kad aš galėčiau vairuoti moka papildomai 26lt išeiną 246lt draudimas metams, draudžia lietuvos draudime.

Man čia įdomu kaip jie ten veda, jeigu mano gatvėje vienas namas turi pasijungęs

 

Juk ir veda paprastai per senas telefono linijas, šulinius, jei privatus namas ir toliau nuo gatvės seniau kažkiek prašydavo už įvedimą senos linijos, o dėl šviesiolaidinio skambini jiems ir šnekiesi, ir tinklapyje pas juos rašo kur šiuo metu be papildomų mokesčių pajunks.

Čia http://www.w3schools...PHP/default.asp gali rasti pagrindus, o taip nemažai puslapių yra kur pamokų yra ir panašiai įvedus į google.lt išmes.

 

Taip pat forume gali rasti nuorodų http://uzdarbis.lt/t153087/e-knygos-apie-programavima-java-php-c-vb-ir-javascript/

Jei buvo sena linija, tai per ją ir pervedė, pas mus mieste kai vedžiojo irgi niekur nekasė vietoj senos linijos ištampė šviesolaidinį.

1)Aš išvykstu iš: Kaunas.

2)Vykstu į: Londonas.

3)Kada išvykstate: Balandžio 13-17d.

4)Kelionės trukmė: Savaitė.

5)Skrendu į vieną pusę: Ne.

6)Domina skrydžiai su persedimais: Ne.

7)Žmonių skaičius: 2 suaugę ir 1 13m.

Jeigu naudoji mokėjimai.lt kokiam nors puslapiui susiųsk SMS'us savo raktažodžiais ir tuo pačiu išsiimsi.

 

Neis siųsti, nes už premijas gautą, tai jis tik gali prakalbėti arba siųsti sms nepadidinto tarifo sms.