Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai |
Autorius: s1Nk | Peržiūrų: 89194 |
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Na aišku sprendimų yra labai daug, bet čia tikrai nėra pats optimaliausias ar kaip čia pasakius, na ir vėlgi nedėk ant galo dviejų readln; Ir beroc šitai su trimačiais masyvais galima atlikti... Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Čia paprastas uždavinys tai ir paprasta sprendima reikia sugalvot. Nes čia uždavinys pradedančiajam. www.muz1ka.lt |
|
Creatium Administratorius Viršesnis už Dievą Pranešimai: 5868 Įstojęs: 2007 Rugp. 9 17:08:20 | |
Pabandyk dėt vieną readln ir nedėk ; po jo. www.creatium.lt |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Gale nutrynis readLn nieko nekeis. Kaškaip ta daugyba reik suprastynt. Čia būtu galima naudot daug kartu a*a, bet uždavini parašyta panaudot kuo mažiau. www.muz1ka.lt Redagavo s1Nk 2010 Rugs. 16 21:09:37 |
|
Creatium Administratorius Viršesnis už Dievą Pranešimai: 5868 Įstojęs: 2007 Rugp. 9 17:08:20 | |
s1Nk parašė: Gale nutrynis readLn nieko nekeis. Kaškaip ta daugyba reik suprastynt. Aš bandžiau išspręst tą problemą, kad neužtenka vieno readln www.creatium.lt |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Nžn jau kelinta kartą kartoju dėlto ReadLn; ,kad ne jis svarbus o pats veiksmas kėlimo. Nes dabar tekelia trečiuoju. www.muz1ka.lt |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Nu tai panaudok while.. arba for, na tarkim įsivaizduok, kol i yra mažiau nei 28 a dauginam iš a ir t.t. nu vnž panaudosi galima sakyti tik vieną daugybos ženklą, o sudaugins už tave ciklas... Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Nėra kas veikt išpresčiau koki uždavinį. Gal kas žino kur rast tokiu uždaviniu kur per informatikos pamokas duoda? www.muz1ka.lt |
|
edeni Narys Terminatorius Pranešimai: 1502 Įstojęs: 2008 Vas. 7 19:02:18 | |
10-tos klasės uždaviniai: 1. Žinome stačiakampio ilgį ir plotį. Raskite plotą ir perimetrą. 2. Duotas sveikų skaičių intervalas raskite sumą tų skaičių kurie baigiasi 0. Radau pora pas save sąsiuvinyje http://itouch.lt - iBendruomenė. |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Na ir uždaviniai Na bet tikriausiai dėl to, kad 10 klasėje tik prasideda pascal'is, bet keista kaip dešimtokams tokius lengvus uždavinius užduoda... Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
edeni Narys Terminatorius Pranešimai: 1502 Įstojęs: 2008 Vas. 7 19:02:18 | |
Nu aš daug pratimų nesirašiau į sąsiuvinį, tai parašiau tiek kiek pasitaikė ;D http://itouch.lt - iBendruomenė. |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
O antro nesuprantu uždavinio. Gal žinai biški sunkesniu, kur būtu neiliniai a+b, o kad biški pati kodą reiktu kitoki parašyt, nes dabar visur tas pats tik skaičiavimo uždavinys skiriasi. www.muz1ka.lt |
|
QQ Narys Buldozeris Pranešimai: 215 Įstojęs: 2010 Lie. 4 22:07:06 | |
Pavyzdziui susigalvok uzduoti sukurti zaidima Klausimanija(Be grafikos t.y Konsolei) Susigalvok uzduoti sukurti Skaiciatuva ir t.t. |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Ne kažin ar tokia programą prašyčiau. :} www.muz1ka.lt |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Pasakykit kaip pakelt 9-tuoju laipsniu. Informatikos mokytojas sakė nereik jokiu for ir pnš. Pats uždavinys sakė susideda iš triju daugybos veiksmų. Čia kaip aš isivaizduoju ta programa, bent kaškaus panašaus.
www.muz1ka.lt |
|
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04 | |
kels tau betkokiu laipsniu |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Na taip programa veikia, bet reikia padaryt be 'for'. www.muz1ka.lt |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Be for, gali naudoti while... Na o jei išvis be ciklų, tai manau lengvesnio būdo nebėra... Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Na mokytojas sakė kaškaip su kintamaisiais. Su klasioku galvojom galvojom niekaip nesugalvojom. www.muz1ka.lt |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Kintamieji, tai galima sakyti bet kas, tavo atvėju skaičius... Na aišku, kad su kintamaisiais be jų nieko nesuskaičiuotum, tačiau ciklus manau galima naudoti. Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Tai aišku galima su ciklais, bet tai pats mokytojas sakė padaryt be ciklų. Pats apie tuos ciklus nelabai ka kertu. Na jeigu niekas nesugalvos gal kita pamoką mokytojas pats pasakys. www.muz1ka.lt |
|
iMantux VIP narys Generolas Pranešimai: 981 Įstojęs: 2009 Spa. 8 20:10:11 | |
papraščiausias variantas pakelt 9 laipsniu yra:
tik pačią salyga t.y a*a*a... susitrumpink, dabar tingiu galvot. nes taip tikrai bus negerai, kas kad atsakymas teisingas |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
iMantux, pats toki variantą buvau sugalvojes. Taigi reik padaryt su kuo mažiau daugybos veiksmu. O kaip sutrumpint tai ir klausiu. www.muz1ka.lt |
|
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04 | |
Ir negalima naudoti jokių while ir repeat? |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Ne. Kai sudaugini 'a*a' gaunasi pakelta antruoju. Pirmas veiksmas tada reiktu isivest nauja kintamaji, Kuri keltu dar antruoju. Paskui trečia kintamaji kuri taip pat keltų antruoju. Na bent aš taip galvoju. www.muz1ka.lt |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Ai, štai prisiminiau, naudokis funkcija "goto", tarkim pvz:
Beroc 3 kartus parašys sveikas, tiksliai nepamenu, bet kažkas tokio. Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago Redagavo Cause 2010 Rugs. 20 21:09:57 |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Tai man reikia parašyt be ciklu ir funkciju. Jei sugalvočiau tai galėčiau per informatikos pamokas girtis. www.muz1ka.lt |
|
Cause Narys Buldozeris Pranešimai: 284 Įstojęs: 2008 Spa. 25 14:10:18 | |
Na tu ir pasakai... Be funkcijų... Tu be funkcijų išvis programos neišgautum Su pagarba, jūsų draugas ir kolega Cause www.subotkevic.com - [url]www.saskaitago |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Nu nžn, bet sugalvojau toki varianta su tuo laipsniu kėlimu.
www.muz1ka.lt |
|
bruzgis Narys Ekspertas Pranešimai: 3368 Įstojęs: 2006 Geg. 9 18:05:02 | |
Šiek tiek užduočių sprendimui
|
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
bruzgis didelis dėkui. www.muz1ka.lt |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Reik išsprest toki uždavini. Apskaičiuokite, kam lygu 2(pakelta 28), panaudodami kuo mažiau daugybos veiksmų. Vietoj 'integer' panaudokite duomenų tipą 'longint' Uždavinys regis turėtu būt panašus kaip ankčiau mano sprestas, tik manau turėtu dasidėt keli daugybos veiksmai. www.muz1ka.lt Redagavo s1Nk 2010 Spa. 11 14:10:13 |
|
T-Boy Narys Kapitonas Pranešimai: 670 Įstojęs: 2010 Kov. 4 21:03:46 | |
OT, bet gal turi Lt free pascal setup, nes googlei kai išmeta jį atsisiųsti meta error'ą http://ims.mii.lt/fps/lt/about/ |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
http://www.failai.lt/smjvnj6anbm...lt.rar.htm www.muz1ka.lt |
|
mariuse3 Narys Margas Pranešimai: 106 Įstojęs: 2007 Bir. 30 13:06:05 | |
Cia kam reikejo kelimas laipsniu. Tai vat paprasciausia programa kelimas laipsniu
ir sorry iskarto uz flooda, bet gal galim man biski rimciau padeti, reikia surasti amziaus vidurki n mokyniu, kai as turiu gymimo metus, menesi ir diena, (tarkim kad mokyniu yra 3, ir jie gime skirtingomis dienomis menesiais ir dienom), sita reikia parasyta arba funkcija arba procedura. + jeigu pades susygaudyti tai visa programa: program mokyniai; uses Crt; type pavarde = array [1..30] of string; metai = array [1..30] of integer; menuo = array [1..30] of integer; diena = array [1..30] of integer; {-----------------------------------------------------------} procedure Duomenys (var a: pavarde; var b: metai; var c: menuo; var d: diena; var n: integer); var i : integer; begin Write ('Kiek studentu yra?'); Readln (n); writeln ('iveskite studento pavarde,gimimo metus, menesi ir diena:'); for i:= 1 to n do begin write (i,'pavarde:'); readln (a[i]); write ('gimimo metai:'); readln (b[i]); write ('menuo:'); readln (c[i]); write ('diena:'); readln (d[i]); end; writeln; end; {-----------------------------------------------------------} function jaun ( b: metai; c: menuo; d: diena; n: integer):integer; var max,i:integer; begin max:=1; for i:= 2 to n do if (b[max] < b[i]) then max:= i else if (b[max] = b[i]) and (c[max]< c[i]) then max:=i else if (c[max]= c[i]) and (b[max] = b[i]) and (d[max]<d[i]) then max:=i; jaun:=max; end; {-----------------------------------------------------------} function vyr ( b: metai; c: menuo; d: diena; n: integer):integer; var min,i:integer; begin min:=1; for i:= 2 to n do if (b[min] > b[i]) then min:= i else if (b[min] = b[i]) and (c[min]> c[i]) then min:=i else if (c[min]= c[i]) and (b[min] = b[i]) and (d[min]>d[i]) then min:=i; vyr:=min; end; {-----------------------------------------------------------} procedure senejimas (var a: pavarde; var b: metai; var c: menuo; var d: diena; var n: integer); var temp1,temp2,temp3,i,j:integer; temp4: string; begin for i:= 1 to n-1 do for j:= i+1 to n do if (b[i]<b[j]) then begin temp1:=b[i]; temp2:=c[i]; temp3:=d[i]; temp4:=a[i]; b[i]:=b[j]; c[i]:=c[j]; d[i]:=d[j]; a[i]:=a[j]; b[j]:= temp1; c[j]:= temp2; d[j]:= temp3; a[j]:= temp4; end else if (b[i]=b[j]) and (c[i]<c[j]) then begin temp1:=b[i]; temp2:=c[i]; temp3:=d[i]; temp4:=a[i]; b[i]:=b[j]; c[i]:=c[j]; d[i]:=d[j]; a[i]:=a[j]; b[j]:= temp1; c[j]:= temp2; d[j]:= temp3; a[j]:= temp4; end else if (b[i]=b[j]) and (c[i]=c[j]) and (d[i]<d[j]) then begin temp1:=b[i]; temp2:=c[i]; temp3:=d[i]; temp4:=a[i]; b[i]:=b[j]; c[i]:=c[j]; d[i]:=d[j]; a[i]:=a[j]; b[j]:= temp1; c[j]:= temp2; d[j]:= temp3; a[j]:= temp4; end; end; {-------------------------} procedure rykiavimas ( pav: pavarde; n: integer); var i : integer; begin for i:= 1 to n do writeln (pav[i]) ; end; {-------------------------} procedure zodis; begin writeln ('Jauniausias:'); end; {-------------------------} procedure zodis2; begin writeln ('Vyriausias:'); end; {-------------------------} procedure zodis3; begin writeln ('Nuo jauniausio iki seniausio:'); end; {------Padariau biski kitaip ----} procedure vidurkis (var b: metai; n: integer; vid:real; q:real); var i,sum:integer; begin sum:=0; for i:= 1 to n do sum:=sum+b[i]; vid:=sum/ n; q:=2010-vid; writeln ('vidurkis gimimo metais: ', Round(vid)); writeln ('vidurkis metais: ',Round(q)); end; {-------------------------} var pav: pavarde; met: metai; men: menuo; die: diena; n : integer; v: real; begin ClrScr; Duomenys (pav,met,men,die,n); zodis; writeln (jaun (met,men,die,n)); zodis2; writeln (vyr (met,men,die,n)); zodis3; senejimas (pav,met,men,die,n); rykiavimas (pav,n); readln; end. |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Cia kam reikejo kelimas laipsniu. Tai vat paprasciausia programa kelimas laipsniu Man nedera programos su while, sqr ir pnš reikia parašyti programa su daugybos veiksmais. Iki kitos informatikos pamokos reik sugalvot. www.muz1ka.lt |
|
bruzgis Narys Ekspertas Pranešimai: 3368 Įstojęs: 2006 Geg. 9 18:05:02 | |
sink, arba vien daugyba, arba naudoji cikla for, while arba repeat. |
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Tai man ir reik su daugyba. Tik nelabai sekasi išgalvot. Sakė mokytojas, kad reik su kintamaisiais kaškaip. www.muz1ka.lt |
|
mariuse3 Narys Margas Pranešimai: 106 Įstojęs: 2007 Bir. 30 13:06:05 | |
Jeigu reikia tik 2 skaitmenis sudauginti.
|
|
s1Nk Narys Generolas Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 | |
Man reik 2 laipsniu pakelta 28, o ne paprastos daugybos. www.muz1ka.lt |
Peršokti į forumą: |