eMatematikas Paieška Testai Forumas

Programavimas su Paskaliu. Keletas užduočių, jų sprendimai

Informatika   Peržiūrų sk. (7248)

Sveiki. Gal yra žmonių, kas moka programuoti Paskaliu ir galėtų padėti dėl keleto uždavinių, jų sprendimų?
Uždavinys 3:
https://www.ematematikas.lt/upload/uploads/40000/4500/44744/thumb/p17u8qkqf01fmh1qurr3v3s41cqa1.png
Šitą uždavinį kuo puikiausiai suprantu, bet problema ta, kad pati programa išmeta lentelę su klaida. Kas įdomiausia šitą lentelę man išmeta, kai Paskalio programoje yra parašytas prierašas "longint" (sveikųjų skaičių tipas), o kai jo nėra uždavinys kuo puikiausiai išsisprendžia. Galėčiau to "longint" ir nerašyti, bet užduotis to reikalauja, o gal netinkamoj vietoj jį aš parašau, ir dėl to man meta klaida ;/
Uždavinys 3. Sprendimas:
https://www.ematematikas.lt/upload/uploads/40000/4500/44744/thumb/p17u8qruuc1cft1fop17g711nf1sfd2.png
Uždaviniai 6 ir 7:
https://www.ematematikas.lt/upload/uploads/40000/4500/44744/thumb/p17u8r00f64md6jisn9su0vn13.png
Šią užduotį suprantu kaip reikia spręsti, bet kažkodėl man atsakymas nesigauna teisingai. O 7 uždavinio išvis nesuprantu kaip reikia spręsti...
Uždavinys 6. Sprendimas:
https://www.ematematikas.lt/upload/uploads/40000/4500/44744/thumb/p17u8r0eg51rrkvuuu9015ne1kvj4.png

0

del tos 3 uzduotes tau vietoj logint reiktu parasyt Readln(men) ir t.t. o  longint reikia priskirnt tiems kintamesiems (men, d , v) arba kitaip sakant tiesiog vietoj integer parasyk longint.

7 uzduoti gali padaryt naudodamas div mod

Paskutinį kartą atnaujinta 2013-06-30

0

ir tiesa del 6 pratimo tai va
program lektuvas;
var A , B, C, V, M : integer;
begin
  WriteLn('Kai lektuvas pakylo valandu ir minuciu buvo');
  Readln(A, B);
  Writeln('Kiek lektuvas praleido ore');
  Readln(C);
  M:= (A * 60 + B + C) mod 60;
  V:= (A * 60 + B + C) div 60;
    if V >= 24
        then V:= V - 24;
  Writeln(V,' ', M);
  Readln;
end.

0

Dėkui Ernis už paaiškinimus. Beje, gal žinai kaip reiktų išspręsti šį uždavinį?
"Parašykite programą, kuri sukeistų kintamųjų x ir y reikšmes vietomis. Rašant programą negalima
naudoti papildomų kintamųjų. Pasitikrinkite: kai x = 0, y = 5, turi būti spausdinama: Sukeitę x ir y
reikšmes vietomis, gauname: x = 5, y = 0."

0

program kintamieji;
var x,y:integer;
begin
  ReadLn(x,y);
  x:=x+y;
  y:=x-y;
  x:=x-y;
  WriteLn('x=',x,'  y=',y);
  Readln;
end.

P.S. Cia kartais uzduotis ne is JPM?

0

Ernisprogram kintamieji;
var x,y:integer;
begin
  ReadLn(x,y);
  x:=x+y;
  y:=x-y;
  x:=x-y;
  WriteLn('x=',x,'  y=',y);
  Readln;
end.

P.S. Cia kartais uzduotis ne is JPM?


Šiuos visos užduotys iš knygos "Šiuolaikiškas žvilgsnis į programavimo pagrindus". O tas JPM, kaip išsiverčia jo trumpinys? Beje, gal galėtum paaiškinti tas formules, kur parašei:
  x:=x+y;
  y:=x-y;
  x:=x-y;
Kai įvedu tai 0(x) ir 5(y), tai:
x:=x+y;
x:=5
y:=x-y;
y:=-5
x:=x-y;
x:=-5
Nesuprantu kaip programai išeina apkeisti tuos skaičių vietomis, jei gaunasi tokie nesąmoningi skaičiavimai...

0

JPM - Jaunųjų programuotojų mokykla.

x:=x+y;
y:=x-y;
x:=x-y;

tarkime x= 0, y= 5
1) x := x + y = 0 + 5 = 5;
2)y := x - y = 5 - 5 = 0;
3)x := x - y = 5 -  0 = 5

Paskutinį kartą atnaujinta 2013-06-30

0

Erni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

0

matrixErni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

http://ragaine.su.lt/mokomoji/pascal/ is sitos knygos mokiausi paskali (nors toje knygoje yra nemazai klaidu), pats dabar mokaus  C kalbos ir blem sunkoka, taip pat ir su paskaliu pradzioje buvo man :) tereik tik noro ir uzsispirino ismokti, ir dirbt su paskaliu/programuot,  nes zinok as irgi 12kl pradejau paskali mokytis, tai toks gruzas buvo, galvojau, kad zluges busiu, bet kazkaip po truputi ismokau kazka :)

0

Ernis
matrixErni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

http://ragaine.su.lt/mokomoji/pascal/ is sitos knygos mokiausi paskali (nors toje knygoje yra nemazai klaidu), pats dabar mokaus  C kalbos ir blem sunkoka, taip pat ir su paskaliu pradzioje buvo man :) tereik tik noro ir uzsispirino ismokti, ir dirbt su paskaliu/programuot,  nes zinok as irgi 12kl pradejau paskali mokytis, tai toks gruzas buvo, galvojau, kad zluges busiu, bet kazkaip po truputi ismokau kazka :)


Didelis ačiū už pagalbą. :)

0

Norėdami rašyti žinutes privalote prisijungti!