Pereiti prie turinio

osamis123

Nariai
  • Pranešimai

    29
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

osamis123 Pranešimai

  1. Sveiki, jau baigiu paruošti 1,5 ha žemes. užtikrintai 100 proc sodinsiu šilauoges. Laikas pirkti sodinukus sodinimui ir kitus irengimus. Gausus derlius bus tik po 3-4 metu

    Kainuos apie 6-7 tūkst euru + laistymo sistema + tvora....

    Kiek planavau investuoti savo lėšomis, bet kol yra laiko noriu pasidomėti parama šiam reikalui.

    Žinau apie jaunuosius ukininku parama bet siek tiek daug reikalavimu.

    Gal kas turi patarimu kaip gauti finansavima mažiausiai 10 tukst.?

  2. Bandau išspęsti šitokia programa, manau viena maža klaidelė maišo viską, galite padėti, ačiū.

     

    Duota natūraliųjų skaičių seka. Kiek sekoje skaičių – nežinoma. Sekos pabaigos požymis – skaičius nulis. Parašyti programą, kuri: nustatytų, kuris skaičius pirminis, kuris ne.

     

     

    program sekosLyginisNelyginis;

    var sk,i,d,pirm,nepirm:integer;

    begin

    WriteLn('Ávesti seka');

    Read(sk);

    pirm:=sk;

    nepirm:= sk;

    While sk<>0 do

    begin

    d:=0;

    For i:=1 to sk do

    If sk mod i =0 then

    d:=d+1;

    end;

    If d=2 then writeln('pirminiai yra ',pirm)

    else writeln('nepirminiai yra ',nepirm);

    read;

     

    end.

  3. Bandau išpręsti šitą bet nepavyksta, prašau gal galite patikrinti ar teisingai:

     

    Apskaičiuoti ir atspausdinti, kiek intervale [m,n] esama pirminių skaičių, kurių skaitmenų suma yra lyginė.

     

    http://www.part.lt/img/1e026d5c61305239f2b631572c490b45613.png

  4. O tai kur čia kodas, kaip bandei išspręsti? Pamiršai pridėti.

    Kokios dalies nesupranti?

    Logika paprasta - patikrini ar skaičius pirminis, jei pirminis, tai apsuki skaitmenis ir patikrinti ar tas skaičius yra pirminis.

    Nesupratau ties skaičiaus apvertimu. Nes kiek suprantu formulė taikoma tik dviženkliam skaičiams (apv:=sk mod 10), įvedus triženklį ar daugiaženklį skaičių jį apversti reikia papildomai ir div ir mod... Ar teisingai kalbu dėl skaičiaus apvertimo?

    Ir dar viena klausimą turiu, ką daryt kad atsakyme nerodytų abiejų sakinių tai yra skačius yra superpirminis ir skaičius nėra superpirminis?

     

    http://www.part.lt/img/52624327dd1073951c767afea0d1a165179.png

  5. Sveiki, programuotojai

    Pradėjau aiškintis ir mokintis dirbti su ciklais kurie yra kituose cikluose. Daug užduočių išsprendžiau bet šitos nepavyksta.

    Gal atsiras geros širdelės ir išpspęs kaip pavyzdį.

    Ačiū

     

    Ar įvestas skaičius yra superpirminis? (13 yra, nes 31 irgi yra pirminis)

  6. Nusiskaitai valandas, gerai, apskaičiuoji pusvalandžiai gerai, tada suki cikla kiek yra pusvalandžiu, draugu_zininaciu = draugu- zinanciu *2 + draugu zinanciu;

    tada tau verstis nereikia atgal, nes valandas jau turi kaip Y. turi veikti.

    Bet jūsų parašyta pagrindinė formulė ta pati kaip mano, suaitačius reikšmes ta pati skaičiu gaunu.

    Kodėl programos pabaigoje nebereikia verstis iš pusvalandžiu i valandas? Jug atsakymu ir spausdins draugų skaičiu susieta su kiek yra pusvalandziu.

  7. Sveiki, nepavyksta išspręst užduoties su FPS pascal.

    Ji tokia:

    Linas nusipirko dviratį. Vis spėjęs grįšti namo pasigyrė 2 draugams, kurių kiekvienas po 30 min pasakė kitiems dviem draugams. Dar po 30 min kiekvienas iš šių keturių persakė žinia dar dviem kitiems draugams. Ir taip kas 30 min kiekvienas išgirdęs perpasakojo dviem dar nieko nežinantiems.

    Parašyti programa: kiek žino draugų po y valandų?

    post-107478-0-81930200-1447954669_thumb.jpg

  8. Ką tik perinstaliuotam kompiuteryje įdiegiau 0,6a Free Pascal FPS programa. Siunčiau lietuvišką iš http://ims.mii.lt/fps/lt/down/index.html

    Tad, neturetų būti grėsmių nei instaliacijoje nei kompiuteryje.

    Bet programa man neveikia, isijungia ir funkcija "vygdyti" neveikia, suveikia antivurusinė dėl grėsmes. O pataisų lange rašoma http://www.part.lt/img/8b65d167a74def1c1ff09f65e3e9e31242.png

  9. Sveiki, Yra du kompiuteriai, vienas stacionarus, kitas nešiojamasis. Abu turi bendrą internetą tai yra stacionarus prijungtas laidu, o laptopas per Wifi.

    Yra įdiegtos legalios antivirusinės. Viena kartą ignoravau failą , kuris buvo pavojingas ir įsileidau į savo kompiuterį. Ir dabar niekaip jo nepašalinu. Kelis kart valiau pilnu sistemos valymų bet nieko... Kai kurios programos pilnai neveikia ir naršyklėse vos tik paspaudus pele atsiranda erzinanti reklamos puslapis. Viskas taip pat yra ir su laptopu, manau gal per internetą tai susieje... Nors laptope nieko įtartino niekad nesiunčiau.

    Kaip tai pašalint?

×
×
  • Pasirinkite naujai kuriamo turinio tipą...