MiniPixeL

Programuoju pascal'iu, sprendžiu uždavinius, su visais paaiškinimais. Gerai išmanau Word, Excel. Sprendžiu matematikos, fizikos uždavinius, taip pat viską paaiškinu. Yra galimybė spresti ant popieriaus ir skenuoti, arba jūsų siūlomas variantas. Užduotys mokyklinio lygio (iki 12 klasės), nors pascal programavimas ir universitetuose nedaug pažengęs, tai galit bandyt kreiptis ir su tokiom. :)

Galiu pamokyt viską individualiai (skype).

Kainos prieinamos, nesikandžioja. Susitarsim. Rašykit čia į PM. :)

Visų pirma, tai nežinojau kur parašyt, jeigu nevietoj parašiau tai atsiprašau. :) Noriu pasidomėt apie ebook situaciją ir jų platinimą. Kaip žinoti, kurios jų platinamos nemokamai, o kurios mokamos? Pavyzdžiui, jeigu aš nežinia iš kur tai turiu susirinkęs ebook'ų kolekciją, ir noriu su ja pasidalinti su savo blogo skaitytojais. Tai skaitosi nelegalu? Kokios nuobaudos gresia už tai? Nors žvelgiant plačiau, tai pilna muzikos, filmų puslapių ir niekas jų negaudo ir nebaudžia. Nesiruošiu sukurti warez puslapio ar kažko panašaus, tai noriu išsiaiškint situaciją. Apšvieskit mane. :)

O kaip įvedami duomenys? Iš kur žinot kiek tų atkarpų yra?

Sveiki, gal kas galėtumėte padėti, reikia parašyti dvi programas.

 

1. Plokštumoje yra daug atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti ketvirtojo ketvirčio atkarpų ilgių sumą. Rasti ilgiausią I- ketvirčio atkarpą . Atkarpos ilgiui nustatyti sudarykite funkciją.

 

2. Plokštumoje yra n atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti antrojo ir ketvirtojo ketvirčio atkarpų ilgių sumą. Atkarpos ilgiui ir ketvirčiui nustatyti sudarykite procedūrą.

Čia kas nors nesuprantamo ar tiesiog nori, kad kas nors už tave darbą nudirbtų? Jei gerai prisimenu tai ketvirtas ketvirtis, kai x>0, y<0. Pagal tai atsirūšiuoji koordinates, o ilgį skaičiuoji pagal formulę:

 L:=sqrt(sqr(y2-y1)+sqr(x2-x1));

:)

Kažkas čia blogai, neatlieka pirmos funkcijos, vis bandau patvarkyt, tai error meta ties antra funkcija :)

 

begin
 WriteLn('Iveskite 2 skaicius');
 ReadLn(x, y);
 WriteLn(maxi);
 ReadLn;
end;

Ką šita dalis turėtų daryt? Ir kaip spėju ji yra ne vietoj.

EDIT: Aš suprantu sąlygą taip: parašom funkciją mąx, kuri randa didžiausią skaičių iš dviejų, tada ją panaudojam du kartus, kad rastume didžiausią iš keturių. Plius dar parašom funkciją max4, kuri užkart randa didžiausią iš keturių, bet jos nenaudojam. :) So:

program maxai;
var a, b, c, d, x, y: integer;

function max(x, y: integer): integer;
begin
 if x < y then
max := y
 else max:=x;
end;

function max4(a, b, c, d: integer): integer;
begin
 max4 := max(max(a,b),max(c,d));
end;

begin
 WriteLn('Iveskite 4 skaičius');
 ReadLn(a, b, c, d);
 WriteLn(max(max(a,b),max(c,d)));
 ReadLn;
end.

Dėmesio! Nespręsk namuose 2008 metų, kuriuos gali parsisiųsti torrentuose. Nepadeda, o klaidina.

As irgi turiu tos biletus kaskada is kaskur gavau net neprisimenu.

Pabandykite gal kam nors pavyks. Jai pavyks butinai pasidalynkite.

Cia tie patis mano manimu bilietai. Failai turi buti C:\ diske. Taciau paleidziant jos ismeta klaida , kad jusu galiojimo raktas pasibaige. o tai mano manimu todel kad registru nera .

Parsisiusti

O čia ne tie patys 2008 kurie klaidina? :)

EDIT:sin3r, patalpink tuos failus tada žiūrėsim, ką mes be failų dabar galim pasakyt. :)

Kad ir pavėluotai, bet kad jau parašiau tai įdėsiu ir pascal kodą, gal prireiks. :)

program Bevardė3;
var f,b:textfile;
a:array [1..10000]of string;
i:integer;
begin
assign(f,'domenai.txt.');
reset(f);
assign(b,'ats.txt');
rewrite(b);
i:=0;
while not Eof(f) do
begin
 inc(i);
 readln(f,a[i]);
  if length(a[i])=12 then //skaičius reiškai eilutės ilgį
writeln(b,a[i]);
end;
close(b);
WriteLn('Done');
Readln;
end.

Vakar skambinau dėl modemo gedimo. Reikėjo palaukt apie 15 minučių, pakalbėjau.

 

Šiandien skambinau, kad pasitikslinti, palaukiau minutę ir pakalbėjau. Viskas ten tvarkoj su konsultantais. :)

Nu jei apie 15 minučių laukti, o minutė kainuoja kaip į kitą tinklą, tai neblogai. :)

Tai vat kad nėra, jei būtų jau būčiau pratestavęs. :) Tiesa ne mano čia kompas, draugo, bet aš bandžiau eit tvarkyt tai ieškau išeities dabar. Tikriausiai teks pas meistrelių gabent. :)

Bėda tokia: vieną dieną tiesiog iš oro lūžo kompas, išsijungė. Įjungus pradėjo rodyt įvarius brūkšnius per visą ekraną ir vaizdas pavažiavęs į kairę. Ir nebeužkrauna windows'ų, krovimo langą rodo, o po to monitorius paprasčiausiai išsijungia. Safe mode įsijungia. Bandžiau perrašyt windozę, atrodė kad padėjo, po perrašymo buvo netgi paprastu rėžimu užkrovę windowsus (tiesa, vaizdą rodė nekokį), bet po rr vėl nebekrovė. Bandžiau keist kabelį ir monitorių, nepadėjo tai suprantu kad bėda pačiam kompe. Valiau dulkes, nupūčiau VGA kontaktus. Nieko. Vienintelė kylanti mintis kad susvilo VGA, bet nei pajuodavusi, ir nepakvepo nei ką, tai nežinau. Gal kam kyla kokių minčių? :)

O į 1817 kas nors prisiskambinat? Man atrodo kaip loterija ten, nes kiek bandau tai vis: Visi konsultantai šiuo metu užimti.

Kas ten minėjot dėl to, kad egzaminai į vieną suplakti.

Iš esmės, aš tai neįsivaizduoju kaip jie bus įvertinti. Kelis kart perskaičius vertinimo sistemą ant egzamino lapo vistiek neaišku. Na gerai, tų kurie mokosi A lygiu viskas kaip ir suprantama. O kaip su B lygiu? Spręsti B raide pažymėtas užduotis, bet galima spręsti ir visas. Tai kas dabar palygins jei vienas iš B lygio išsprendė visas, o kitas išsprendė tik B raide pažymėtas? Tuo labiau kaip lygins juos su A lygio mokiniais. Ir kam bus vertinimas naudingesnis? Na žodžiu bent jau man tai galva neišneša. Pagyvensim pamatysim.

O tai dešimtokai šiemet irgi temas iš anksto žino? :)

Čia spėju "Don't Send" atitikmuo ant Win7? :) Sakyčiau originalo nusipirkimas turėtų padėt. Arba bent jau ieškok iš kur kitur parsisiųst. :)

O prie ko čia programavimas? :)

Spaudi Preset manager, tada šone yra load. Susikeli visus reikalingus teptukus po vieną, ir Done. :)

Čia skaitykit, pas ką nepagreitėjo.

 

http://www.uzdarbis.lt/index.php?showtopic...t&p=1277347

Skaitom. Rašom. Neatsako. :)

Jau pamaniau, kad neigiamą gavau... ;D

:) ei žmonės o 1817 mokamas?

Į el. paštą turėjo ateiti pranešimas apie pagreitinimą.

Tiesa. Paieškojęs radau. ^_^

Negalvoji, kad jis ir savo gyvenimą turi?

Nesėdės ir nežiūrės kiekvieno iš jūsų juk ^_^

Galvoju, bet pavyzdžiui kai aš grįžtu į gyvenimą, tai atsijungiu nuo skype. :)

Anyway, no offense. :)

Keista, pries menesi gavau zinia apie pagreitejima nuo geguzes, BET reikes tam sumoketi 10LT vienkartini mokesti (plius menesinis pabrangs 90 centu). Kodel niekas is jusu neuzsiminat apie pagreitejima pasirinktinai jei sumokat tuos 10Lt (tai yra pagal jusu pranesimus akivaizdu, kad visiem automatiskai uz dyka pakele).

Iš kur informacija? Aš pavyzdžiui išvis jokios žinios negavau. Tik iš draugo sužinojau.

Iš dalies mano postui pliuso reikėtų, ten kur pasidaliau jo kontaktiniais duomenimis ;DD

Dėkui dėkui tau. Tik kad nereaguoja kažko. ^_^ Užspaminot turbūt. :)

Sveikinu. ^_^

nu ir kas man is to, kad parasei ?

Pralinksmino žmogus negaliu. ^_^

O šiaip man irgi nepadidėjo dar. Laukiam.

Perki anketą su tiek ir tiek draugų ar į tavo anketą reikia draugus kviesti? ^_^

Pradėsiu konkrečiu pavyzdžiu. Sakykim sukuriu kažkokį tai tekstą (pavyzdžiui eilėraštį, dainą, pasaką, samprotavimą ar bet kokį kitą kūrinį) ir jį patalpinu viešoje erdvėje - internete (bloge,forume etc.). Ar jis automatiškai yra apsaugotas nuo taip sakant pavogimo? Turiu omenyje, kad niekas kitas negalėtų jo nukopijuoti ir pasisavinti - naudoti teigdamas, kad jis yra autorius. Ar reikia tekstą kur nors papildomai užregistruoti? Ir vis dėl to, jei vėliau sužinoma, kad tekstas buvo kur nors panaudotas be mano žinios, kur kreiptis? Galų gale, kaip įrodyt, kas yra autorius? Tikiuosi supratot ko noriu paklausti. Gal apšviesit mane. Ačiū.:D