Elektronika.lt
 2024 m. kovo 29 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 2024 03 29, 03:38. 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 12
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

GENERAL FINANCING BANKAS

Mokslo festivalis „Erdvėlaivis Žemė

LTV.LT - lietuviškų tinklalapių vitrina

„Konstanta 42“

Technologijos.lt

Buitinė technika ir elektronika internetu žemos kainos – Zuza.lt

www.esaugumas.lt – apsaugok savo kompiuterį!

PriedaiMobiliems.lt – telefonų priedai ir aksesuarai

„Deinavos baldai“ — šeimos baldai

FS 22 Tractors
Farming Simulator 19 Mods, FS 22 Maps, FS22 Mods
ETS2 Mods
ETS2 Trucks, ETS2 Bus, Euro Truck Simulator 2 Mods
FS22 Tractors
Farming Simulator 22 Mods, FS22 Maps, FS22 Trucks
VAT calculator
VAT number check, What is VAT, How much is VAT
Paskola internetu
Vartojimo paskola, paskola automobiliui, paskola būsto remontui
Thermal monocular
Thermal vision camera,
Night vision ar scope,
Night vision spotting scope
FS22 Mods
FS22 Harvesters, FS22 Tractors Mods, FS22 Maps Mods
FS22 Mods
FS22 Maps,
FS22 Harvesters,
FS22 Tractors
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija
Sims 4 Mods
Sims 4 CC Clothes,
Sims 4 Hair CC,
Sims 4 Skill Cheat
Optic sight
Binoculars for hunting elk,
Best compact binoculars,
Riflescope hunting
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
Farming Simulator 2019 Mods, FS22 Mods, FS22 Maps
farmingsimulator19mods.fr
Optical filters, UV optics, electro optical crystals
www.eksmaoptics.com
Reklamos paslaugos
SEO sprendimai

www.addad.lt
Elektroninių parduotuvių optimizavimas „Google“ paieškos sistemai
www.seospiders.lt
FS22 mods, Farming simulator 22 mods,
FS22 maps

fs22.com
Reklama


Reklama