Elektronika.lt
 2025 m. kovo 7 d. Projektas | Reklama | Žinokite | Klausimai | Prisidėkite | Atsiliepimai | Kontaktai
Paieška portale
EN Facebook RSS

 Kas naujo  Katalogas  Parduotuvės  Forumas  Tinklaraščiai
 Pirmas puslapisSąrašas
 Forumas / + pokalbiai
 - Paieška forume
 - D.U.K. / Forumo taisyklės
 - Narių sąrašas
 - Registruotis
 - Prisijungti

Elektronika.lt portalo forumas

Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo. Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.

Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius, kurie nesilaiko forumo taisyklių. Pastebėjus nusižengimus, prašome pranešti.

Dabar yra 2025 03 07, 09:48. Visos datos yra GMT + 2 valandos.
 Forumas » Programavimas » Prasau pagalbos su FPS
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
 
  
Puslapis 1 iš 2
Pereiti prie 1, 2  Toliau
Pradėti naują temą  Atsakyti į pranešimą Rodyti ankstesnį pranešimą :: Rodyti kitą pranešimą 
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 18:52 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Defy248
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Sveiki,noreciau paprasyti pagalbos su siomis FPS uzduotimis:

Pirma padariau,bandziau antra bet buvo klaidu del kuriu programa nepasileido,o kitu beveik nesuprantu.

Aciu is anksto.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 19:12 Pranešti apie taisyklių pažeidimą Atsakyti su citata
darksky
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Abejojiu, kad kazkas ims ir parasys visas programas tau Laughing Paprasciausia butu analizuoti panasius pavyzdzius ir viskas bus lengvai suprantama.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 20:14 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Defy248
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Reiketu ir pavyzdziu veino ar kito,bet nezinau kur ieskot :/
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 20:28 Pranešti apie taisyklių pažeidimą Atsakyti su citata
centronic
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
8.
Kodas:

program u_8;
Uses Crt;
var i: integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
writeln('Lyginiai skaiciai:');
for i:=1 to 10 do
begin
if (masyvas[i] mod 2) = 0 then
writeln(masyvas[i]);
end;
readln;
end.


9.
Kodas:

program u_9;
Uses Crt;
var i,n : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
n:=0;
for i:=1 to 10 do
begin
if masyvas[i] = 0 then
n := n + 1;
end;
writeln('Suma skaiciu lygiu nuliui: ', n);

readln;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 20:37 Pranešti apie taisyklių pažeidimą Atsakyti su citata
darksky
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 20:41 Pranešti apie taisyklių pažeidimą Atsakyti su citata
centronic
Užkietėjęs dalyvis
Užkietėjęs dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
10. uzduotis
Kodas:

program u_10;
Uses Crt;
var i,n, tmp : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
for n:=1 to 10 do
 for i:=1 to 9 do
  begin
  if masyvas[i] < masyvas[i+1] then
   begin
   tmp := masyvas[i];
   masyvas[i] := masyvas[i+1];
   masyvas[i+1] := tmp;
  end;
 end;
writeln('Surusiuotas masyvas:');
for i:= 1 to 10 do
writeln('masyvas[',i,']=', masyvas[i]);

readln;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 15, 22:10 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Uz pinigus viska galima Razz labai jau nesunkios programos, bet jeigu savarankiskai mokaisi tai viskas pateisinama
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 16, 12:47 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Defy248
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
tews rašo:
Uz pinigus viska galima Razz labai jau nesunkios programos, bet jeigu savarankiskai mokaisi tai viskas pateisinama

Bandau is Youtube fps pamoku lietuvisku mokytis,bet ten dar daug ko truksta
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 16, 12:48 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Defy248
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
darksky rašo:
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.

cia monei megstamiausia lygtis tas diskriminantas beveik ismasciau kaip viskon suvest.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 17, 09:30 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Defy248
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
centronic rašo:
10. uzduotis
Kodas:

program u_10;
Uses Crt;
var i,n, tmp : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
for n:=1 to 10 do
 for i:=1 to 9 do
  begin
  if masyvas[i] < masyvas[i+1] then
   begin
   tmp := masyvas[i];
   masyvas[i] := masyvas[i+1];
   masyvas[i+1] := tmp;
  end;
 end;
writeln('Surusiuotas masyvas:');
for i:= 1 to 10 do
writeln('masyvas[',i,']=', masyvas[i]);

readln;
end.

Labai jums aciu jau uz tiek Smile
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 17:57 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Defy248 rašo:
darksky rašo:
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.

cia monei megstamiausia lygtis tas diskriminantas beveik ismasciau kaip viskon suvest.


Kodas:
program penkta;
var D, a, b,
    c, x1, x2 : real;
begin
  Writeln('Iveskite koeficiento a reiksme: ');
  ReadLn(a);
  Writeln('Iveskite koeficiento b reiksme: ');
  ReadLn(b);
  Writeln('Iveskite koeficiento c reiksme: ');
  ReadLn(c);
  D :=sqr(b) - 4*a*c;
  if  D < 0
    then
      WriteLn('Lygtis sprendiniu neturi.')
    else if D = 0
      then
         begin
             x1 := (-b)/(2*a);
             WriteLn('Lygtis turi viena sprendini, jis yra:  ',x1:8:2);
         end
      else
          begin
             x1 := (-b-sqrt(D))/(2*a);
             x2 := (-b+sqrt(D))/(2*a);
             WriteLn('Lygtis turi du sprendinius, jie yra',x1:8:2,' ',x2:8:2);
          end;
  Readln;
end.
[/code]
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 18:05 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Kodas:
program trecia;
var n1, n2, n5, n10 : integer;
    suma : integer;
begin
  WriteLn('Iveskite 1 ct monetu kieki: ');
  ReadLn(n1);
  WriteLn('Iveskite 2 ct monetu kieki: ');
  ReadLn(n2);
  WriteLn('Iveskite 5 ct monetu kieki: ');
  ReadLn(n5);
  WriteLn('Iveskite 10 ct monetu kieki: ');
  ReadLn(n10);
  suma := n1 + (n2 * 2) + (n5 * 5) + (n10 * 10);
  WriteLn('Taupykleje yra ',suma div 100,' lt  ir ',suma mod 100,' ct');
  ReadLn;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 18:16 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Kodas:
program ketvirta;
var x1, x2, x3, x4,
    y1, y2, y3, y4 : integer;
    P : real;
    AB, BC, CD, DA : real;
begin
  WriteLn('Iveskite tasko A koordinates formatu x y :');
  ReadLn(x1, y1);
  WriteLn('Iveskite tasko B koordinates formatu x y :');
  ReadLn(x2, y2);
  WriteLn('Iveskite tasko C koordinates formatu x y :');
  ReadLn(x3, y3);
  WriteLn('Iveskite tasko D koordinates formatu x y :');
  ReadLn(x4, y4);
  AB := sqrt(sqr(x2-x1)+sqr(y2-y1));
  BC := sqrt(sqr(x3-x2)+sqr(y3-y2));
  CD := sqrt(sqr(x4-x3)+sqr(y4-y3));
  DA := sqrt(sqr(x4-x1)+sqr(y4-y1));
  P := AB + BC + CD + DA;
  WriteLn('Iskilojo keturkampio perimetras yra: ',P:8:2,' ilgio vnt.')
  ReadLn;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 18:29 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Kodas:
program sesta;
var  skaicius : integer;
     n : integer;
     i : integer;
     mas : array[1..10000] of integer;
begin
  WriteLn('Iveskite naturaluji skaiciu :');
  ReadLn(skaicius);
  n := 1;
  for i := 1 to 10000 do
    begin
      if skaicius mod n = 0
        then mas[i] := n;
      n := n + 1;
    end;
  WriteLn('Skaicius ', skaicius,' yra dalus is: ');
  for i := 1 to 10000 do
    if mas[i] <> 0
      then Write(mas[i], ' ');
  ReadLn;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 18:37 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Kodas:
program septinta;
var  i : integer;
     n, m : integer;
     mas : array[1..10000] of integer;
begin
  WriteLn('Iveskite intervalo pradine reiksme m :');
  ReadLn(m);
  WriteLn('Iveskite intervalo galine reiksme n :');
  ReadLn(n);
  for i := m to n do
    begin
      if i mod 5 = 0
        then mas[i] := i;
    end;
  WriteLn('Skaicius 5 kartotiniai yra: ');
  for i := m to n do
    if mas[i] <> 0
      then Write(mas[i], ' ');
  ReadLn;
end.
Pradėti naują temą  Atsakyti į pranešimą Pereiti prie 1, 2  Toliau
 
Forumo sistema: phpBB
 „Google“ paieška forume
 Kas naujesnio?
 Naujos temos forume

Global electronic components distributor – Allicdata Electronics

Electronic component supply – „Eurodis Electronics“

LOKMITA – įvairi matavimo, testavimo, analizės ir litavimo produkcija

Full feature custom PCB prototype service

Sveiki ir ekologiški maisto produktai

Mokslo festivalis „Erdvėlaivis Žemė

LTV.LT - lietuviškų tinklalapių vitrina

„Konstanta 42“

„Mokslo sriuba“

www.matuok.lt - Interneto spartos matavimo sistema

www.esaugumas.lt – apsaugok savo kompiuterį!

PriedaiMobiliems.lt – telefonų priedai ir aksesuarai

Draugiškas internetas

FS25 Tractors
Farming Simulator 25 Mods, FS25 Maps, FS25 Trucks
ETS2 Mods
ETS2 Trucks, ETS2 Bus, Euro Truck Simulator 2 Mods
FS22 Tractors
Farming Simulator 22 Mods, FS22 Maps, FS25 Mods
VAT calculator
VAT number check, What is VAT, How much is VAT
LEGO
Mänguköök, mudelautod, nukuvanker
KCD2 Mods
Installing KCD 2 Mods, KCD 2 Guides, KCD 2 Cheats
FS25 Mods
FS25 Harvesters, FS25 Tractors Mods, FS25 Maps Mods
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija
FS25 Mods
FS25 Maps, FS25 Cheats, FS25 Install Mods
GTA 6 Wiki
GTA 6 Map, GTA 6 Characters, GTA 6 News
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps
ATS Trailers
American Truck Simulator Mods, ATS Trucks, ATS Maps
Reklama
‡ 1999– © Elektronika.lt | Autoriaus teisės | Privatumo politika | Atsakomybės ribojimas | Turinys | Reklama | Kontaktai LTV.LT - lietuviškų tinklalapių vitrina
Script hook v, Openiv, Menyoo
gta5mod.net		 FS25 Mods, FS25 Tractors, FS25 Maps
fs25mods.lt		 Optical filters, UV optics, electro optical crystals
www.eksmaoptics.com		 LTV.LT – lietuviškų tinklalapių vitrina
www.ltv.lt/technologijos/		 Elektroninių parduotuvių optimizavimas „Google“ paieškos sistemai
www.seospiders.lt		 FS22 mods, Farming simulator 22 mods,
FS22 maps
fs22.com
Reklama


 Reklama