|
|
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 2 iš 2 Pereiti prie Atgal 1, 2 |
|
|
|
Prasau pagalbos su FPS |
Parašytas: 2012 08 18, 18:52 |
|
|
|
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 |
Parašytas: 2012 08 18, 19:23 |
|
|
|
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 |
Parašytas: 2012 08 19, 11:32 |
|
|
|
tews rašo: |
Cia tik vienas is galimu variantu kaip pavizdys, tingejau kazka daugiau rasyt
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 |
Parašytas: 2012 08 19, 22:33 |
|
|
|
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 |
Parašytas: 2012 08 19, 22:36 |
|
|
|
o siaip, jeigu dar su programavimu reiks pagalbos tai rasyk man, jei lengvi, trumpi darbai tai nemokamai, jei kazka rimciau suderinsim prienama kaina
arnaz7777@gmail.com |
|
|
|
|
|
Prasau pagalbos su FPS |
Parašytas: 2012 08 19, 22:59 |
|
|
|
š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. |
|
|
|
|
|
Google paieška forume |
|
|
Naujos temos forume |
|
|
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 |
|
|
|