Elektronika.lt
 2024 m. kovo 28 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 28, 22:20. 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 22
Pereiti prie Atgal  1, 2
Pradėti naują temą  Atsakyti į pranešimą Rodyti ankstesnį pranešimą :: Rodyti kitą pranešimą 
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 18:52 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 venuolikta;
var  i : integer;
     n : integer;
     A, B, S : array[1..10000] of real;
     k : integer;
     max : real;
begin
  WriteLn('Kiek staciakampiu bus naujodama skaiciavimuose? ');
  ReadLn(n);
  for i := 1 to n do
    begin
      WriteLn('Iveskite ',i,'-ojo staciakampio ilgi: ');
      Read(A[i]);
      WriteLn('Iveskite ',i,'-ojo staciakampio ploti: ');
      Read(B[i]);
      ReadLn;
    end;
  for i := 1 to n do
    S[i] := A[i] * B [i];
  max := S[1];
  k := 1;
  for i := 1 to n do
    if max < S[i]
      then
        begin
          k := i;
          max := S[i];
        end;
  WriteLn('Didziausias plotas ',k,'-ojo staciakampio ir jis yra: ',max:5:2,' kv. vnt.');
  WriteLn('Jo ilgis yra: ',A[k]:5:2,' ilgio vnt.',' ir plotis: ',B[k]:5:2,' ilgio vnt.');
  ReadLn;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 19:23 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 antra;
var  x, y, z : String;
     a : integer;
begin
  WriteLn('Ar siandien savaitgalis? taip / ne?');
  ReadLn(x);
  if (x = 'taip') or (x='TAIP') or (x='Taip')
    then
      begin
        WriteLn('Ar siandien paskutine savaites diena? taip / ne');
        ReadLn(y);
      end
    else
      begin
        WriteLn('Uz keliu dienu bus savaitgalis(iskaitant ir siandiena)?Iveskite skaiciu.');
        ReadLn(a);
      end;
  if (y = 'taip') or (y='TAIP') or (y='Taip')
    then WriteLn('Siandine yra skemadienis.')
    else if (y = 'ne') or (y='NE') or (y='Ne')
      then WriteLn('Siandien sestadienis.');
  if (x = 'ne') or (x='NE') or (x='Ne')
    then
      if a = 5
        then WriteLn('Siandien pirmadienis.');
      if a = 4
        then WriteLn('Siandien antradienis.');
      if a = 3
        then WriteLn('Siandien treciadienis.');
      if a = 2
        then WriteLn('Siandien ketvirtadienis.');
      if a = 1
        then WriteLn('Siandien penktadienis.');
      if not ((a >= 1) and(a<=5))
        then  writeln('blogai ivedei duomenis zioply');
  ReadLn;
end.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 18, 19:24 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Cia tik vienas is galimu variantu kaip pavizdys, tingejau kazka daugiau rasyt Very Happy
o siaip eik ka nors kita mokintis geriau nei ta paskali. va yra Java pamokos lietuviskai:
http://www.youtube.com/user/emcsUK
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 19, 11:32 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:
Cia tik vienas is galimu variantu kaip pavizdys, tingejau kazka daugiau rasyt Very Happy
o siaip eik ka nors kita mokintis geriau nei ta paskali. va yra Java pamokos lietuviskai:
http://www.youtube.com/user/emcsUK

Labai aciu uz pagalba
Tikiuosi daugiau susidursiu su word ar su kazkuom panasiu.O to java idomesne ir lengvesne uz paskali ar idemesne ir sunkesne suprast?
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 19, 22:33 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
java yra sunkesne bet su ja galima zymiai lengviau programas rasyt, nes dauguma funkciju turi pati kalba, o cia ant paskalio reikia paciam viska kurtis
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 19, 22:36 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
o siaip, jeigu dar su programavimu reiks pagalbos tai rasyk man, jei lengvi, trumpi darbai tai nemokamai, jei kazka rimciau suderinsim prienama kaina Smile
arnaz7777@gmail.com
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 19, 22:59 Pranešti apie taisyklių pažeidimą Atsakyti su citata
Cannabis
Dažnas dalyvis
Dažnas dalyvis
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
šeip jei mokaisi su paskaliu dirbt, tai yra vienas žmogus kuriantis FPS užduotis lietuviškai. Tiksliau ne užduotis, nu žodžiu pats pamatysi : http://www.youtube.com/user/bICEQ Yra ir egzaminų kelios užduotys.

_________________
Kai savanorių nėra, juos paskiria.
 Prasau pagalbos su FPS
PranešimasParašytas: 2012 08 21, 22:50 Pranešti apie taisyklių pažeidimą Atsakyti su citata
tews
Naujokas
Naujokas
Peržiūrėti vartotojo aprašymą Siųsti asmeninį pranešimą
Su paskaliu yra http://programavimopamokos.net/
Pradėti naują temą  Atsakyti į pranešimą Pereiti prie Atgal  1, 2
 
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