Pereiti prie turinio

Radicon

Patvirtinti nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    85

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

 Turinio tipas 

Radicon Pranešimai

    sound card irasams

    Kompiuteriai ir programinė įranga

    Atrašyta

    Tai gal jis per pultą sugrupuos į 4 išejimus ir viskas. Šiaip tai prastas variantas (mano nuomone), geriau muzikantus atskirai rašinėt, nebent esi užtikrintas, kad puikiai atliksi suvedimą dar prieš įrašant. Kas dėl garso plokštės - jų pasirinkimas tikrai didelis, bet daug iš jų turi vos porą analoginių įėjimų, o kiti skaitmeniniai, t.y. net turėdamas 4 in be atskiro konverterio naudoti galėsi tik 2in (pvz. mano senukas m-audio firewire 410 taip veikia).

    Kitas variantas - portastudija. Pvz. Zoom r16 (kaip tik pardavinėju savąjį, p.m. jei domina) kuris įrašo 8in be kompiuterio (išsiimi wav failus) arba kaip usb interfeisas, vėlgi - 8 in vienu metu. Čia gerokai pigesnis variantas su tiek analoginių in. Kas liečia garso kokybę - viskas normalu, jokio didelio skirtumo nepajausi, saviems įrašams per akis.

     

    Dėkui, kaip tik ir norėjau per pultą sugrupuot į 4 out. Kokią maždaug investicija reikalinga šiam projektui?

    sound card irasams

    Kompiuteriai ir programinė įranga

    Sukurta

    Sveiki forumiečiai, pradėsiu nuo pradžių: taigi su draugu turime grupę jau kažkiek laiko ir užsinorėjome dabar įsirašyti porą savo gabalų. Todėl bandom sukurti tokia mini įrašymo studiją. Ka mes turime: gerus mikrofonus, gera yamaha pulta, stiprintuva, koloneles, monitorius, bet truksta mums geros garso plokstės, su kuria galėtume įrašyti gražu garsą. Norim, kad kiekvieno instrumento garsas įsirašytų i atskirą takelį. Gal galėtumėte paaiškinti kokią garso plokštę reikia turėti tokių atveju ir kaip ja sujungti su pultu. Jei kyla kokių klausymų klauskite. Iš anksto dėkingas už atsakymus. :)

    Chemijos VBE 2013

    Studijos ir mokslas

    Atrašyta

    Sveiki!

     

    Jaučiuosi taip pat gerai, kol kas jaudulio nėra :D

    kartoju taip pat kaip |Darius|, tiktai pats daugiau kartoju o per konsultacijas uždavinius sprendžiu.

     

    Bandomasis neblogai praėjo, bet norėtųsi geresnio rezultato nei 75 proc. :)

    Vis dėlto manau, kad egze bus daugiau loginių užduočių arba bent jau susijusiu su loginiu mąstymu :) manau, kad bus daugiau suktų uždavinių, bet bus matyt... :)

     

    Bandysiu ir stot į VGTU tik nežinau kokia krypti :D arba į VU į chemiją kokia :D

    Patarkite kokią programą pasirinkti?

    Kompiuteriai ir programinė įranga

    Atrašyta · Redagavo Radicon

    Parsisiunčiau jau, viskas atrodo kaip ir OK. Absoliučiai viskas išeina, išskyrus vieną dalyką. Kaip reikia prasukti pagreitinti video, po to maža sceną ištrinti, po to vėl pagreitinti, sulėtinti ir t.t. Žinau, kad kažkaip reikia sceną pasirinkti. Kaip ir radau ten vienoj vietoj, bet kai pasirinkau scenas, reikia rasti kaip pagreitinti. Padariau su Speed UP komanda ir tuomet ne tik video, bet ir balsas su background music pagreitėjo :( Gal žinai kokį tutorial'ą normalų, nes visur su tais effektais žaidžia... Arba pats papasakok per kur ten reikia eiti, kad taip išeitų.

     

    Reikia tiesiog atskirti (ta prasmę, kad garsas ir vaizdas nebūtų sugrupuotas) vaizdą nuo garso ir tada bandyti speedinti video :) būtų kitokia programa pasakyčiau, kaip tai padaryti, bet deja šita nesinaudojau :) sekmės kuriant.

    ieškau darbo

    Ne technologijų paslaugos ir darbo pasiūlymai

    Sukurta

    Ieškau darbo vienkartinio arba ilgesniam laikui.

     

    Galiu:

    1) dirbti copy/paste darbą

    2) Visi darbai Word, Excel

    3) fotografuoti,nufilmuoti ir montuoti video (balius, projektas, koncertas, vėstuvių nefilmuoju)

    pavyzdis:

    ir bet kokie kitie projektai (dirbau televizijoje)

    4) surinkti arba pataisyti kompiuterį (dirbau taisykloje)

    5) turiu vairotuojo pažymėjimą (B kat.)

    6) kalbu rusiškai, lenkiškai ir angliškai

    7) atviras jūsų pasiūlymams :)

    Padekite surasti klaida

    Programuotojų kampas

    Atrašyta

    Su duomenų failais reikėtų atsargiau... Iškarto patikrinęs duomenų failą ir klaidą radau, jeigu pas save masyvuose skiri 18 simbolių vardui, tai manau tiek simbolių ir reikėtų padėti savo duomenų faile. O "TAB" nepadeda 6 tarpų, jis tik padeda vieną ilgą tarpą. Tikiuosi mintį supratai... ;)

     

     

    Dekui, supratau dabar.

    Padekite surasti klaida

    Programuotojų kampas

    Sukurta

    Sveiki, turiu parasyti programa 2010 VBE uzduotis. Uzduoties reikalavimus ir duomenu file'a ikeliau.

     

    Padekite surasti klaida. Kame cia problema?

     

    program varzybos;
type sarasas=record
               vardas:string[18];
               laikas:integer;
       end;
       mas=array[1..50] of sarasas;

//Surandame geriausią bėgiką.
function Geriausias(k:integer; GG:mas):integer;
var i,nr,m:integer;
begin
       nr:=0; m:=0;
       for i:=1 to k do
       if GG[i].laikas > m
       then m:=GG[i].laikas;

       for i:=1 to k do
       if GG[i].laikas <= m then
       begin
       m:=GG[i].laikas;
       nr:=i;
       end;
       Geriausias:=nr;
end;

//Perrikiojame masyvą ir pašaliname geriausią bėgiką
procedure Perrikiojame(id,k:integer; var GG:mas);
var i:integer;
begin
       for i:=id to k-1 do
       begin
       GG[i].vardas:=GG[i+1].vardas;
       GG[i].laikas:=GG[i+1].laikas;
       end;
end;

//Surikiuojame masyvą laiko didėjimo tvarka
procedure Rikiavimas(k:integer; var G:mas);
var i,j,laikas:integer;
       vardas:string[20];
begin
       for i:=1 to k-1 do
       for j:=i+1 to k do
       if G[i].laikas > G[j].laikas then
       begin
               vardas:=G[j].vardas;
               G[j].vardas:=G[i].vardas;
               G[i].vardas:=vardas;
               laikas:=G[j].laikas;
               G[j].laikas:=G[i].laikas;
               G[i].laikas:=laikas;
       end;
end;
//Nuskaituome failą.
procedure Duomenys(var kk:integer; var G:mas);
var i,j,n,k,id,ii,min,sek,kiek:integer;

       F1:text;
       GG:mas;
begin
       assign(F1,'U2.txt');
       reset(F1);
       readln(F1,n);
       ii:=0;
       for i:=1 to n do
       begin
       readln(F1,k);
       for j:=1 to k do
       begin
               readln(F1,GG[j].vardas,min,sek);
               GG[j].laikas:=(min*60)+sek;
       end;
       //Apskaičiuojame kiek reikės geriausių rezultatų iš grupės.
      kiek:=k div 2;
       //Skaičiuos kiek bus išviso geriausių bėgikų.
       kk:=kk+kiek;
       //Ciklas vyks tiek kiek reikės atrinkti iš grupės geriausių bėgikų.
       while kiek > 0 do
       begin
               ii:=ii+1;
               id:=Geriausias(k,GG); //Surandame geriausio bėgiko indeksą masyve.
               G[ii].vardas:=GG[id].vardas; //Priskiriame kitam masyvui geriausią rezultatą.
               G[ii].laikas:=GG[id].laikas;
               Perrikiojame(id,k,GG); //Pašaliname iš masyvo geriausią rezultatą.
               kiek:=kiek-1;
       end;
       end;
       close(F1);
end;
//Įrašome failą.
procedure Rezultatas(k:integer; G:mas);
var i:integer;
       F2:text;
begin
       assign(F2,'U2rez.txt');
       rewrite(F2);
       for i:=1 to k do
       writeln(F2,G[i].vardas,' ',G[i].laikas div 60,' ',G[i].laikas mod 60);
       close(F2);
end;
//Programa
var G:mas;
       k:integer;
begin
       Duomenys(k,G);
       Rikiavimas(k,G);
       Rezultatas(k,G);
end.

    post-57949-0-28115500-1360931494_thumb.jpg

    U2.txt

    Veiksmai su recordais

    Programuotojų kampas

    Atrašyta

    1. Ivesk duomenis į masyvą

    A.dien := savaites_dienas

    A.temp := temperaturas

     

    2. naudok burbulą

    var i, j, pdien, ptemp: integer;

    begin

    for i:=7 downto 1 do

    for j:=2 to i do

    if A[j-1].temp > A[j].temp then

    begin

    pdien := A[j-1].dien;

    A[j-1] := A[j].dien;

    A[j].dien := pdien;

    ptemp := A[j-1].temp;

    A[j-1] := A[j].temp;

    A[j].temp := ptemp;

    end

    end;

     

    3.spausdink

    For i := 1 to 7 do

    WriteLn(A.dien,' ',A.temp);

     

    Dekui už paglabą :)

     

    Pasinauduojau patarimu ir padariau išvis be rekordų :)

    Taigi dabar atrodo taip:

     

    program saltos_dienos;
const M=7;
type savaites_dienos=array[1..M] of string;
    temperat=array[1..M] of real;
var
    a:savaites_dienos;
    T:temperat;

procedure reading_sort;
var i,j:integer;
   ptemp:real;
   pdien:string;

 begin
   for i:=1 to M do
     begin
     write('Irasyk diena:');
     readln(a[i]);
     write('Irasyk temperatura:');
     readln(T[i]);
     end;
   for i:=7 downto 1 do
     begin
     for j:=2 to i do
     if T[j-1] > T[j] then
       begin
       pdien := a[j-1];
       a[j-1] := a[j];
       a[j]:= pdien;
       ptemp := T[j-1];
       T[j-1] := T[j];
       T[j] := ptemp;
       end
     end;
 end;

procedure isvesk;
var i:integer;
begin
for i:=1 to M do
writeln(a[i],T[i]:2:2);
end;

begin
 reading_sort;
 isvesk;
 readln;
end.

    Veiksmai su recordais

    Programuotojų kampas

    Sukurta

    Sveiki,yra tokia programa:

     

    Turime vienos savaitės kiekvienos dienos oro temperatūros vidurdienį duomenys. Reikia išdėstyti dienas pradedant nuo šalčiausių.

     

    Kontroliniai duomenys:

     

    Pirmadienis -13 Ketvirtadienis -17

    Antradienis -12.5 Trečiadienis -15

    trečiadienis -15 Pirmadienis -13

    Ketvirtadienis -17 Antradienis -12.5

    Penktadienis -9.2 Penktadienis -9.2

    Šeštadienis 0 Šeštadienis 0

    sekmadienis 1.5 Sekmadienis 1.5

     

    program saltos_dienos;
const M=7;
type
temperatura=record
       diena:string;
       temp:real;
       end;
duom=array[1..M] of temperatura;

procedure reading_sort;
var i,l:integer;
   a:duom;
   pom:real;
begin
for i:=1 to M do
begin
write('Irasyk diena:');
readln(a[i].diena);
write('Irasyk temperatura:');
readln(a[i].temp);
end;
i:=1;
repeat
 i:=i+1;
 l:=i;
 repeat
  if a[i].temp<a[i-1].temp then
   begin
    pom:=a[i].temp;
    a[i].temp:=a[i-1].temp;
    a[i-1].temp:=pom;
   end;
  Dec(l);
 until(l=1);
 writeln(a[i].temp:2:2);
until (i=M);
end;

procedure isvesk;
var i:integer;
   a:duom;
begin
for i:=1 to M do
writeln(a[i].temp:2:2);
end;

begin
 reading_sort;
 isvesk;
 readln;
end.

     

    Turiu dvi problemas:

    1.Blogai rykiuoja temperatūras

    2. Kaip išspausdinti tinkama tvarka rekordus?

     

    Gal kas turit idėjų kaip išspręst?

    masyvai funkcijose ir procedurose

    Programuotojų kampas

    Atrašyta

    1) Sudedi visus skaitmenis į masyvą.

    2) Iteruoji per masyvą ir ieškai mažiausios reikšmės (pirmąjį kartą praleidi 0) ir mažiausią reikšmę dedi į kitą masyvą (ar spausdini, ar dedi į kažkokį integer, kur daugini jau iš 10^X kiek reikia). Tą skaitmenį masyve pakeiti į kokį nors nereiškiantį nieko (kad antrą kartą iteruojant masyvą, jau nebūtų prasmės jame - pvz, -1).

    3) Išspausdini gautą reikšmę.

     

    Sėkmės!

    Tai tas kodas, kuri parasiau, netinkamas?

    masyvai funkcijose ir procedurose

    Programuotojų kampas

    Atrašyta · Redagavo Radicon 

    function skaitmen(a:longint):integer;
     var skaitmenys:array[1..30] of integer;
         k,i:integer;
     begin
      repeat
      i:=a mod 10;
      a:=a div 10;
      skaitmenys[k]:=i;
      if min>skaitmenys[k] then min:=skaitmenys[k];
      k:=k+1;
     until a=0;

     

     

    taip galima surasyti i masyva? kaip nuli atmesti, randan maziausia skaiciu ir kaip isvesti i ekrana maziausia skaiciu is skaitmenu ?

    negi niekas nepades?

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