Mariius

Taigi čia tik funkcija :) Visas kodas: program Noname14; //--------------------------------------------------------- type masyvas1 = record vardas: string[15]; baravykai: integer; raudonikiai: integer; lepsiai: integer; end; grybautojai = array [1..100] of masyvas1; //--------------------------------------------------------- var grybautojas:integer; masyvas:grybautojai; //--------------------------------------------------------- procedure duomenys; var i,j,n,d,b,r,l:integer; vardas:string[15]; duomenys:text; begin assign(duomenys, 'U2.txt');

function geriausias_grybautojas(b,r,l:grybautojai):integer; var i,max,sum:integer; begin max:=0; sum:=0; for i:=1 to 100 do begin sum:=b[i]+r[i]+l[i]; if max<sum then begin max:=sum; geriausias_grybautojas:=i; end; end; end; sum:=b+r+l; Paryškina ir meta "Operator is not overloaded". Ką tai reiškia?

Dėkui už atsakymą :) Jei tik reikės, parašysiu :)

program Noname14; //--------------------------------------------------------- type masyvas1 = record vardas: string[15]; baravykai: integer; raudonikiai: integer; lepsiai: integer; end; grybautojai = array [1..100] of masyvas1; //--------------------------------------------------------- var n,d,b,r,l,j,i,grybautojas:integer; masyvas:grybautojai; vardas:string[15]; duomenys:text; //--------------------------------------------------------- //--------------------------------------------------------- begin assign(duomenys, 'U2.txt'); reset(duomen

Galima sakyt pirmą kartą rimtai nusijuokiau per dieną :) Pliusiuko nestokosiu.

Jei taip, kiek litų nuplėšiate nuo užsakovo? :) Kalbama tik apie paprastą os perinstaliavimą ir driverių surašymą :)

Prašydamas paramos galėjai bent be klaidų parašyti, o ir lietuviškos raidės nepakenktų bendram vaizdui.

Didelis ačiū :)

Praktinė užduotis iš 2007 vbe: http://www.part.lt/img/thumb/45b2939f7746f22990794d5a86028423996.JPG Po kol kas atlikau tiek: program Grybai; //-------------------------------------------------------------- type masyvas1=array[1..31] of integer; masyvas2=array[1..31] of integer; masyvas3=array[1..31] of integer; //-------------------------------------------------------------- var baravykai:masyvas1; raudonikiai:masyvas2; lepsiai:masyvas3; //-------------------------------------------------------------- procedure surinkti_grybai; var i,n,d,b,r,l,y : integer; ff,ffr : text; be

Tekstiniam faile yra tokie skaičiai: 2 3 -5 8 9 15 -10 9 -7 Tai kaip jis tuos skaičius nuskaito, kuris n, a, b ? :)

program T6; procedure Rasti(var a:integer; b,c:integer); begin if a>b-c then a:=a+(b+c) else a:=a-(b+c); end; var s,n,i,a,b:integer; ff:text; begin Assign(ff, 'T6.txt'); Reset(ff); Read(ff,n); s:=10; for i:=1 to n do begin Read(ff,a,b); Rasti(s,a,b); Read(ff,b,a); Rasti(s,a,b); end; Close(ff); Writeln(s,' ',a,' ',b); readln; end. Aš nesuprantu iš kur yra nuskaitomas tas n? Ir ką daro Reset(ff) komanda? :) Ačiū.

Dėkui, tačiau labai norėtųsi nemokamai gauti :)

Reikėtų IT Vbe (nesvarbu metai) su atsakymais. ieškojau egzaminai.lt, tačiau ten tėra tik užduotys.

Na, man reikėtų tikslesnio sąrašo :/

bet tai daugiau nebėr?

Labas. Reikia padaryti skaidres apie Lietuvos alkoholių gamintojus iš chemijos (11kl). Gal turi informacijos? :) Jei gali, pasidalink ja su manimi. Dėkui.

Oh, aišku :) dabar gavau. Dėkui :)

"Each new term in the Fibonacci sequence is generated by adding the previous two terms. By starting with 1 and 2, the first 10 terms will be: 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ... By considering the terms in the Fibonacci sequence whose values do not exceed four million, find the sum of the even-valued terms." Kaip suprantu, reikia atrasti visus skaičius pagal Fibinacci seką, o tada juos sudėti? Sprendžiu su paskaliu, gaunu atsakymą 9227463. Teisingas atsakymas: 4613732. Kodas: program Bevardë1; var x,n,m,i,ats:longint; begin WriteLn('Iki kurio skaitmens skaiciuoti?'); read(x); n:

Dar gal bus variantų? :)

Perinstaliavus os, nebeveikia fps 0.6.4a pascal kompiliuotojas. Perinstaliavau į tą pačia os (windows 7 x64 ultimate). Kompiliavimo metu išmeta lentelę su užrašu "Compiling", tačiau programa užstringa ir jos be "task manager" nebegalima išjungti. Perkroviau kompiuterį ir dabar yra kita problema, kompiliuojant išmeta klaidą, kurioje rašo, kad trūksta .pas plėtinio. Bandžiau perinstaliuoti ne kartą, žaidžiau su palaikymo parametrais bei administravimo teisėm, vis vien neveikia. Turite gal kokių minčių? Ir jei galite parekomenduokite pascal kompiliuotoją kuris būtų panašus į šį fps 0.6.4 ir tik

Mes skundžiamės ne geografine padėtimi, o politine :)

Deleted.

Tiksliai :) nušokau nuo proto per tuos darbus :) Dėkui

if suma = i then kiek:=kiek + 1; if suma = i then writeln('Vienas iš tų skaičių: ',i); kaip šį ifą galima sutraukti į vieną?

Dėkui :)