FPS programavimas, padėkite.

sweiki prasau man reikia jusu pagalbos man reikia padariti kelis uzdavinukus apie masivus: cia pirmas uzdawinis

Sukurti Paskalio programas:

1. Vektoriaus kaip vienmačio masyvo ilgiui skaičiuoti.

2. Matricos determinantui skaičiuoti.

antras uzd:

Įvedamas 10 žodžių masyvas (naudojamos tik angliškos raidės). Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:

4 variantas. Žodžiai, trumpesni nei 9 raidės

trecias uzd:

Įvedamas 10 sveikų skaičių masyvas. Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:

4 variantas. Tik dviženkliai skaičiai

nors du uzdavinukus prasau man reikia jusu pagalbos :D

Cirkas. Jei nesugebi tokių uždavinių išspręsti, reiškias esi arba daunas arba NEDIRBI.

Taip ir lakstysi į forumą kaskart prašyt uždavinius elementariausius išspręsti?

nenori tai ir nepadek jei as nesuprantu tai ka man padariti

nenori tai ir nepadek jei as nesuprantu tai ka man padariti

Mokytis.

tai gal viena uzdawini padekit padarit o kitus as pats padarisiu tik parodikit pvz kaip dariti

sweiki prasau man reikia jusu pagalbos man reikia padariti kelis uzdavinukus apie masivus: cia pirmas uzdawinis

Sukurti Paskalio programas:

1. Vektoriaus kaip vienmačio masyvo ilgiui skaičiuoti.

2. Matricos determinantui skaičiuoti.

antras uzd:

Įvedamas 10 žodžių masyvas (naudojamos tik angliškos raidės). Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:

4 variantas. Žodžiai, trumpesni nei 9 raidės

trecias uzd:

Įvedamas 10 sveikų skaičių masyvas. Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:4 variantas. Tik dviženkliai skaičiai

nors du uzdavinukus prasau man reikia jusu pagalbos

sweiki prasau man reikia jusu pagalbos man reikia padariti kelis uzdavinukus apie masivus: cia pirmas uzdawinis

Sukurti Paskalio programas:

1. Vektoriaus kaip vienmačio masyvo ilgiui skaičiuoti.

2. Matricos determinantui skaičiuoti.

antras uzd:

Įvedamas 10 žodžių masyvas (naudojamos tik angliškos raidės). Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:

4 variantas. Žodžiai, trumpesni nei 9 raidės

trecias uzd:

Įvedamas 10 sveikų skaičių masyvas. Iš šio masyvo suformuojamas ir išspausdinamas naujas masyvas, į kurį įeina tik:4 variantas. Tik dviženkliai skaičiai

nors du uzdavinukus prasau man reikia jusu pagalbos

Matricos determinantui skaičiuoti. :D

Kam tu tokius iš viso darai, jei nė elementariausių nemoki?

prasau padarikit viena uzdawini

jpm uzduotis:

1.Kurie iš jau nagrinėtų duomenų tipų geriausiai tiktų vaizduoti duomenims, kurių reikš¬mės būtų:

a) funkcijos, apibrėžtos sveikųjų skaičių intervale [a, b], argumento reikšmės;

b) klasės mokinių sąrašas, kuriame būtų vardai, pavardės ir mokinių amžius;

c) dvimatės koordinačių sistemos taškų, kurių koordinatės yra sveikieji skaičiai, aibė;

d) vienerių metų kiekvienos dienos internetinės svetainės aplankymų skaičius;

e) atsakymas į klausimą, kai galimi du atsakymo variantai.

Sveiki, gavau tokia uzduoti ir nelabai suprantu kokius cia rasyti duomenu tipus, jei nesunku isvardinkite kokius galima, o as pameginsiu priskirti.Dekui

prasau padekit tik viena uzdavini ispresti lb prasau

Sveiki visi ar galite padeti su uzdaviniu :

Parasykite programa kuri atspausdintu trizenklio skaiciaus skirtumu suma pvz. pradinis duomuo "123" , rezultatas "6".

ps. as cia suprantu viska tik nezinau kaip cia sprest (nezinau ka rasyt)

Sveiki visi ar galite padeti su uzdaviniu :

Parasykite programa kuri atspausdintu trizenklio skaiciaus skirtumu suma pvz. pradinis duomuo "123" , rezultatas "6".

 

ps. as cia suprantu viska tik nezinau kaip cia sprest (nezinau ka rasyt)

Tau gerai, kad supranti, nes aš iš sąlygos tai nė velnio nesuprantu. :) Spėju ten turėjo būti skaitmenų sumą. Čia paprasčiausias daiktas. Naudojam for ciklą (nes kažkodėl man atrodo, kad visur pirmiau moko for nei while, juolab kad būtent triženklio skaičiaus). sk bus tas triženklis skaičius, a ir i bet kokie kintamieji:

for i:=1 to 3 do //kartojam 3 kartus nes skaičius triženklis
begin
 a:= sk mod 10; //atskiriame paskutinį skaitmenį
 sum:=sum+a; //kaupiame skaitmenų sumą
 sk:=sk div 10; //nutriname paskutinį skaitmenį, kurį jau panaudojome ir pradedam iš naujo
end;

Tikriausiai į programą įsistatyti mokėsi. ;)

sveiki gal galėtumėt padėti su uždaviniu? :blink:

Mokinys turėjo 10lt, kiekvieną dieną dar gauna po a lt dienpinigių. Kas antrą dieną jis eina į kiną ir išleidžia b lt. Kiek kartų jis turės pakankamai pinigų, kad galėtų eiti į kiną? Jei dienpinigiai dideli kiek sutaupys per x dienų? Čia su ciklu while reikia padaryti programą, labai būčiau dėkinga jei kas padėtų, :rolleyes:

Ar gerai nežinau.pasitikrink ir pranešk.

program dienpienigiai;
 var j,s,k,i,x,a,b,lt:integer;
     t:boolean;
begin
 readln(a);
 readln(b);
 readln(x);
 Lt:=10;
 k:=0; i:=0; t:=true;
 if (a+a-b)>0 then
 Begin
   for j:=1 to x do
   Begin
     lt:=lt+a;
     inc(i);
     if i=2 then
     Begin
       inc(k);
       lt:=lt-b;
       i:=0;
     End;
   End;
   Writeln('Per ',x,' dienu sutaupys: ',lt,' litu');
 End else
 while T do
 Begin
   lt:=lt+a;
   writeln(lt);
   inc(i);
   if i=2 then
   Begin
     if lt-b<0 then
     Begin
       t:=false;
       break;
     end;
     inc(k);
     i:=0;
     lt:=lt-b;
   End;
 End;
 Writeln('I kina nueis ',k,' kartu.');
 Readln;
end.

ačiū Linai,

programa skaičuoja viska gerai , tik yra problema, kad mes dar net apie ciklą for nesimokinome :| , manau čia kažkaip paprasčiau reiktu, nes mes dar tik minimaliai apie pascalį mokinomės, ciklą while, loginius duomenis, priskyrimą, reiškiniu reikšmes :rolleyes: , bet dėkui kad nors ant kelio užvedei ;)

Nu tai tą ciklą For galima pakeisti į While,bet su For patogiau ir paprasčiau,tai tiek :)

tai pasikeisiu čia ne bėda, tai dėkui tau :rolleyes:

Blemba jaučiu į mokyklą nešiuosi Pythono interpretatorių, beviltiška kalba tas pascalis... Dabar supratau kodėl mano draugas į ekstazę papuolė kai parodžiau jam Pythoną...

help žmonės, man reikia padaryt bent kartą normaliai programą, semestro galas, išprotėsiu, reikia man kad bent veiktų procedūros, suku galvą pati kiek sugebu, man reik tik lašiuko pagalbos.. man vidurkį ir sumą meta nulius, kaip visada nežinau ką blogai darau... :/

program Bevarde8;

type masA = array [1..100] of integer ;

masB = array [1..100] of integer ;

//------------pradzia. funkcija: vidurkis --------

function vidurkis(n , sum :integer; vid:real) : real;

var i : integer;

m :masA;

begin

sum:=0;

for i:=1 to n do

sum := sum+m;

vidurkis := sum/n;

end;

// -----------------------------------------

//-------procedura didinanti,mazinanti---------

{ procedure didmaz(n:integer; vid, s :real);

begin

if n< vid then

s := n*2

else

s := n/2;

writeln(s);

end;

//--------------------------------------------

//---------procedura salinanti vienodus sk--------

procedure salina (n,i:integer; m :masA; b :masB);

var x :integer; // patikrinti ar skaie`ius yra masB ir,jei ne"ra, a'ra?yti a' masB

begin

for i:=2 to n do

begin

if m <>b[x] then write(b[])

else writeln('kartojasi');

end;

end;

//------------------proceduuros pabaiga------------------------------ }

var n, i,sum : integer;

m : masA;

vid : real;

begin

n:=0 ;

writeln('iveskite n');

readln(n);

for i:=1 to n do

begin

vidurkis(n,sum, vid);

writeln(sum,' ',vid:0:2);

end;

Readln;

end.

Asmeniškai tai man reiktų pačio uždavinio sąlygos.:)

Kas dėl programos tai kol kas matau kelis dalykus:

Tu perduodi 'n' 'sum ' ir 'vid' į funkciją,tačiau kam tau perduot sum jeigu tu jį vistiek funkcijos pradžioj nunulini? O vidurkio ir perdavinėt nereikia manau.

TOliau,tu kaupi sumą pridėdama skaičius iš 'M Masyvo

sum := sum+m[i];

Tačiau dalykas toks,kad tas masyvas tai gi tuščias,tad logiška,kad gauni ir atsakymą 0.

Gal būt ir tokios klaidos,čia tik tiek,kiek permečiau :)

Edit: Dar vienas dalykas,išmok įdėti savo kodą tarp tagų,kad eitų normaliai skaityt,nes taip tai dažniausiai iš kart atkrenta noras kažką žiūrėt,programą dėti tarp šių tagų [kode] kodas [/kode] (vietoj K - C (code)

Padariau - veikia visos tavo procedūros ir funkcijos,tik tiek,kad reikėjo pakeist truputį.Gali vienas dalykas gal būt blogai,kad kai išmeta skaičius vietoj jo būna 0, tačiau kiekvienoj procedūroj tam yra tikrinimo sąlyga,gal būt tiks.

Sau masyvą užsipildžiau šiaip,pasidarysi jau gal su nuskaitymu jeigu reikia ar įvedimu iš klaviatūros.

program Bevarde8;
type masA = array [1..100] of real ;
    masB = array [1..100] of integer ;
 var n, i : integer;
            m : masA;
          sum,vid : real;

//------------pradzia. funkcija: vidurkis --------
function vidurkis(n:integer) : real;
 var i : integer;
begin
 for i:=1 to n do
 if m[i]<> 0 then
 sum := sum+m[i];
 vidurkis  := sum/n;
end;

// -----------------------------------------
//-------procedura didinanti,mazinanti---------
procedure didmaz(s:real);
begin
 For i:=1 to n do
 if m[i]<>0 then
 Begin
   if m[i]<s then m[i]:=m[i]*2 else
   m[i]:=m[i] / 2;
 end;
end;
//--------------------------------------------
//---------procedura salinanti vienodus sk--------
procedure salina;
 var j,r,l,x :integer; // patikrinti ar skaie`ius yra masB ir,jei ne"ra, a'ra?yti a' masB
     Kur:Masb;
     pag:masa;

begin
 Pag:=m;
 for i:=1 to n do
 begin
   x:=0; l:=0;
   if m[i]<>0 then
   Begin
     For j:=1 to n do
     Begin
       if m[i] = pag[j] then
       Begin
         inc(x);
         if x>1 then
         Begin
           m[j]:=0;
           dec(x);
         end;
       end;
     end;
   end;
end;

end;
//------------------proceduuros pabaiga------------------------------


begin
n:=10; sum:=0; vid:=0;
m[1]:=5; m[2]:=3; m[3]:=1; m[4]:=6; m[5]:=8; m[6]:=8; m[7]:=5; m[8]:=7; m[9]:=6;  m[10]:=7;

{vid:=vidurkis(n);         // vidurkio funkcija su isvedimu
writeln(vid:0:2);  }

{Salina;
For i:=1 to n do          // Salinimo procedura su isvedimu
Begin
 writeln(m[i]);
end;  }

{didmaz(vid);
writeln(vid:0:2);         // Padidinti,pamazinti procedura su isvedimu
For i:=1 to n do
writeln(m[i]:0:2); }

Readln;
end.

Padariau - veikia visos tavo procedūros ir funkcijos,tik tiek,kad reikėjo pakeist truputį.Gali vienas dalykas gal būt blogai,kad kai išmeta skaičius vietoj jo būna 0, tačiau kiekvienoj procedūroj tam yra tikrinimo sąlyga,gal būt tiks.

 

Sau masyvą užsipildžiau šiaip,pasidarysi jau gal su nuskaitymu jeigu reikia ar įvedimu iš klaviatūros.

 

program Bevarde8;
type masA = array [1..100] of real ;
    masB = array [1..100] of integer ;
 var n, i : integer;
            m : masA;
          sum,vid : real;

//------------pradzia. funkcija: vidurkis --------
function vidurkis(n:integer) : real;
 var i : integer;
begin
 for i:=1 to n do
 if m[i]<> 0 then
 sum := sum+m[i];
 vidurkis  := sum/n;
end;

// -----------------------------------------
//-------procedura didinanti,mazinanti---------
procedure didmaz(s:real);
begin
 For i:=1 to n do
 if m[i]<>0 then
 Begin
   if m[i]<s then m[i]:=m[i]*2 else
   m[i]:=m[i] / 2;
 end;
end;
//--------------------------------------------
//---------procedura salinanti vienodus sk--------
procedure salina;
 var j,r,l,x :integer; // patikrinti ar skaie`ius yra masB ir,jei ne"ra, a'ra?yti a' masB
     Kur:Masb;
     pag:masa;

begin
 Pag:=m;
 for i:=1 to n do
 begin
   x:=0; l:=0;
   if m[i]<>0 then
   Begin
     For j:=1 to n do
     Begin
       if m[i] = pag[j] then
       Begin
         inc(x);
         if x>1 then
         Begin
           m[j]:=0;
           dec(x);
         end;
       end;
     end;
   end;
end;

end;
//------------------proceduuros pabaiga------------------------------


begin
n:=10; sum:=0; vid:=0;
m[1]:=5; m[2]:=3; m[3]:=1; m[4]:=6; m[5]:=8; m[6]:=8; m[7]:=5; m[8]:=7; m[9]:=6;  m[10]:=7;

{vid:=vidurkis(n);         // vidurkio funkcija su isvedimu
writeln(vid:0:2);  }

{Salina;
For i:=1 to n do          // Salinimo procedura su isvedimu
Begin
 writeln(m[i]);
end;  }

{didmaz(vid);
writeln(vid:0:2);         // Padidinti,pamazinti procedura su isvedimu
For i:=1 to n do
writeln(m[i]:0:2); }

Readln;
end.

viskas išėjo, pasidariau, pasitaisiau, ačiū :) pasiūlyčiau arbatos, bet tu ne iš mano miesto :D:D

Mokinys pradėjo spręsti uždavinį kai laikrodis rodė ha valandų ir mina minučių, o baigė - hb valandų ir minb minučių. Uždavinį jis sprendė ne ilgiau kaip parą. Sudarykite programą apskaičiuoti kiek laiko sugaišo mokinys spręsdamas uždavinį.

Gal kas gali padėt? Būčiau labai dėkinga.

Mokinys pradėjo spręsti uždavinį kai laikrodis rodė ha valandų ir mina minučių, o baigė - hb valandų ir minb minučių. Uždavinį jis sprendė ne ilgiau kaip parą. Sudarykite programą apskaičiuoti kiek laiko sugaišo mokinys spręsdamas uždavinį.

Gal kas gali padėt? Būčiau labai dėkinga.

sugaiso := (hb * 60 + minb) - (ha * 60 + mina);
WriteLn('Sugaiso ',sugaiso div 60,'h',sugaiso mod 60,'min.');

sugaiso := (hb * 60 + minb) - (ha * 60 + mina);
WriteLn('Sugaiso ',sugaiso div 60,'h',sugaiso mod 60,'min.');

Ačiū labai, bet bėda ta, kad buvau jau taip padarius ir mokytoja neužskaitė.. Nes pvz jei pradinis laikas 20:24, o galutinis 02:15, tai atėmus gauname atsakymą minuso ženkle.. Galvoju, kad gal reiktų rašyt kažką panašaus į: (if min<0 then min:=min+60). Tuomet ir vieną h atimt (h:=h-1). Kažkas panašaus ir su valandom turėtų būt: (if h<0 then h:=h+24). Bėda ta, kad nemoku parašyt.. :(