Pereiti prie turinio

C_Linas

Nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    174

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

 Turinio tipas 

C_Linas Pranešimai

    Dėžutės

    Programuotojų kampas

    Sukurta · Redagavo C_Linas

    Nežinau ar gausiu aš pagalbos,bet mažu..;)

    Užduotis:

    http://img607.imageshack.us/img607/9705/capturekw.jpg

    Sprendimas būtų toks:

    Sukti ciklą,imant K raidę( pas mane vietoj raidžių skaičiai O-0,K-1) ir ją vis keliant per vieną vetą tolyn kol pereina visas pozicijas,ir kas kartą perkėlus tikrinti ar susidarė ilgesnė seka nei buvo (Tai yra iš vienodų K raidžių), jeigu susidaro įsidėmėti ir eiti toliau (Jug toliau gali susidaryti dar ilgesnė).Perėjus su ta raide visas pozicijas žiūrėti,jeigu buvo ilgesnė seka nei iš pradžių sukeisti į tą įsidėmėtą vietą (vietoj 0 butų 1 dabar) , o ten kur paskutinį kart baigėsi ciklas,kur paskutinį kart stovėjo raidė,ar ten kur pirmą kart stovėjo raidė,nežinau tiksliai būtų 0 jau.Ir taip poto imant sekančia raidę ir vėl tas pats iš naujo.

     

    Nebereik.

    Moduliai

    Programuotojų kampas

    Sukurta

    Užduotis - http://forumas.ktu.lt/pagr.php?metai=2010&kelias=uzd

    Žemaitijos krašto.( 4 Linkas ).

     

    Kaip aš dariau : Išvedu programas kuriom nereikia jokių kitų modulių.

    Tuomet einu iš eilės sukdamas ciklus ir žiūrau ar reikalingi moduliai yra praeiti (tai rodo masyvas su vienetais,jeigu praeita tas indeksas lygus 1am) ir taip išvedinėju.

    Turėtų gautis taip:

     

    IF01 Programavimo įvadas

    IF04 Skaitmeninė logika

    IF02 Diskrečioji matematika

    IF03 Duomenų struktūros

    IF08 Asemblerio kalba

    IF05 Matematinė logika

    IF06 Operacijų optimizavimas

    IF07 Algoritmų analizė

    IF09 Operacinės sistemos

     

    Aš gaunu taip:

    IF01 Programavimo ivadas

    IF04 Skaitmenine logika

    IF02 Diskrecioji matematika

    IF03 Duomenu strukturos

    IF05 Matematine logika

    IF06 Operaciju optimizavimas

    IF07 Algoritmu analize

    IF08 Asemblerio kalba

    IF09 Operacines sistemos

     

    Kur paryškinta ten neatitinka.

    Tai yra 4/9 yra ne savo vietose.Kame bėda galėtų būti , o gal žinot kokį kitą sprendimo būdą?

     

    program Noname61;
Type Duomenai = record
                  Mkod:string[4];
                  Pavad:string[31];
                  Kiek:integer;
                  Modul:array[1..100] of string[5];
               end;
 var o,i,j,n,x,k:integer;
     Inf:array[1..100] of duomenai;
     Pasirinkta:array[1..100] of integer;
     F,R:text;

begin
 Assign(F,'duomenys.txt');
 reset(F);
 Assign(R,'rezultatai.txt');
 rewrite(R);
 readln(F,n);
 For i:=1 to n do
 Begin
   read(F,Inf[i].Mkod);
   read(F,Inf[i].pavad);
   Read(F,Inf[i].kiek);  delete(inf[i].pavad,1,1);
   If Inf[i].kiek>0 then
   Begin
     For j:=1 to Inf[i].kiek do
     Begin
       read(F,Inf[i].Modul[j]);
       delete(inf[i].modul[j],1,1);
     end;
     readln(F);
   end else
   readln(F);
 end;


For i:=1 to n do
BEgin
 If Inf[i].Kiek=0 then
 Begin
   Writeln(R,Inf[i].Mkod,' ',Inf[i].Pavad);
   inc(Pasirinkta[i]);
 end;
end;
//---------------Pagrindas cia-----------------------------------//
For i:=1 to n do
Begin
 if inf[i].kiek<>0 then
 BEgin
   For j:=1 to inf[i].kiek do
   Begin
     For o:=1 to n do
     Begin
       if inf[i].modul[j]=inf[o].Mkod then
       inc(k);
     end;
   end;
   if k=inf[i].kiek then
   Begin
     Writeln(R,inf[i].mkod,' ',inf[i].pavad);
     inc(pasirinkta[i]);
   end;
   k:=0;
 end;
end;
//------------------isvedimas------------------------------------//
{For i:=1 to n do
Begin
 Write(R,Inf[i].Mkod,Inf[i].pavad,inf[i].kiek);
 If inf[i].kiek>0 then
 Begin
   For j:=1 to inf[i].kiek do
   Begin
     write(R,Inf[i].modul[j]);
   end;
   writeln(R);
 end else
 writeln(R);
end;              }
//--------------------------------------------------------------//
close(F);
close(R);
Readln;
end.

    Pjuklas

    Programuotojų kampas

    Atrašyta

    Ne padariau iki galo,tai yra šitam tinka,tačiau jeigu būtų dvi sekos,tai nėra dar padaryta,kad rastų ilgiausia.Lyg ir bandžiau,bet nesigavo :)

    program Noname58;
 var l1,l2,b,pr,pab,i,j,n,x,a,k:integer;
     Skaic:array[1..100] of integer;
     F:Text;
     Test:boolean;

Begin
 Assign(F,'duomenys.txt');
 reset(F);
 readln(F,n);
 For i:=1 to n do
 Begin
   read(F,skaic[i]);
 end;
 test:=true;
 k:=0; b:=0; x:=0; a:=0;
 pab:=0; pr:=0; j:=0;

 For i:=2 to n-1 do
 Begin
 if test=false then begin {a:=0;} test:=true; {j:=0;}  end;
   if ((skaic[i-1] < skaic[i]) and (skaic[i] > skaic[i+1])) then
   Begin
   inc(j); if j=1 then a:=i-1;
   // if a=0 then a:=i-1;
   end else
   test:=false;
   if test=false then
    begin
      k:=n-1-a;
      if k>x then
      begin
        pr:=a;
        pab:=i-1;
      end;
    end;
 end;

 writeln(pr,' ',pab);

 For i:=pr to pab do
 Write(skaic[i],' ');

 Readln;
end.

    pascal (naujas klausimas 5nr.)

    Programuotojų kampas

    Atrašyta · Redagavo C_Linas

    Visų pirma tai išmok dėti kodą į kodo tagus 

     tavo kodas 

     program zvejys;
var a, b, c, d : integer;
Begin
d:= 0; c:=1;
While c<>00 do
begin
  WriteLn ('ivesk skaiciu');
  ReadLn(c);
  d := d + c;
end;
WriteLn (d);
readln;
end.

     

    O antras turėtų būti ne taip?

    if g < 0
then
Begin
 u := u + 1;
 v := v + 1; // ----
end
else
Begin
 t := t + 1;
 v := v + 1;
end;

    Auto įjungimas

    Ne į temą

    Sukurta

    Norėjau paklausti ar įmanoma padaryti ant kompo kažkokius nustatymus,kad kompiuteris tokiom ir tokiom dienom,nustatytu laiku pats įsijungtų.Kiek googlėj skaičiau yra įmanoma per bioso power management pasirinkt,tačiau gal yra ir koks kitas būdas? Tarkim jei sukurčiau sheduled task su įjungimo kodu,ar kompas reaguotų į tą užduotį kai yra išjungtas? Kažkokių papildomų programų siųstis nenoriu.Ačiū už bet kokį atsakymą.:)

    Tiksli paieska

    Ne į temą

    Sukurta

    Sveiki.Kažkada mokykloje mus mokė kaip paiešką norint rasti tiksliai pagal tavo esamą žodžių junginį ar frazę(Ne taip,kaip dabar įvedus frazę išmeta daug straipsnių kur tavo įvesti žodžiai yra išmėtyti visame tekse).Kiek pamenu dėdavosi kažkokie simboliai prie žodžių,tačiau neatsimenu kokie ir rasti to nepavyksta.Jeigu supratot apie ką kalbu ir jeigu yra žinančių kaip tai padaryti būtų malonu išgirsti.Ačiū.:)

    Informatikos studijos

    Studijos ir mokslas

    Atrašyta

    Nes jei stočiau savarankiškai tektų rinktis vieną iš dviejų testų IELTS/TEOFL testą,kurie kainuoja nemažus pinigus.O aš bijau,kad susimausiu ir tada bus labai abydna,nors anglų sekasi gan padoriai,bet nelabai esu tuo užtikrintas.KO pasekoje pasirinkau jųjų įmone ir jųjų testą.:| Bet ačiū,pasiskaitysiu tavo blogą.

    Informatikos studijos

    Studijos ir mokslas

    Atrašyta

    Kerniau,labai ačiū tau už ganėtinai išsamų atsakymą.Kadangi aš ketinu stoti per vieną iš įmonių ( Daug kam turbūt žinoma kaip kastu.lt) ten siūlomuose universitetuose nelabai yra tokio kaip software enginering.Pagrinde jų siūlo Computer science ir poto galima tęsti aukštesnį laipsnį tai yra Web/Software development ( Kuo skirias Software enginering nuo development?) O tuo kuo galima būtų dirbti tiesiog tai jų nurodytos darbo šakos.

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