Pascal uždaviniai
Sveiki.
Man reikia išpresti tokį uždavinį:
Parašytos trys funkcijos masyvo mažiausiojo elemento numeriui rasti. Nustatykite, ar jos ekvivalenčios. Atsakymą pagrįskite.
a) function a (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž > m
then begin
maž := m;
nr := i
end;
a := nr
end;
b) function b (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[n]; nr := n;
for i := n - 1 downto k do
if maž > m
then begin
maž := m;
nr := i
end;
b := nr
end;
c) function c (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž >= m
then begin
maž := m;
nr := i
end;
c := nr
end;
Labai prašau padėkit.
Man reikia išpresti tokį uždavinį:
Parašytos trys funkcijos masyvo mažiausiojo elemento numeriui rasti. Nustatykite, ar jos ekvivalenčios. Atsakymą pagrįskite.
a) function a (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž > m
then begin
maž := m;
nr := i
end;
a := nr
end;
b) function b (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[n]; nr := n;
for i := n - 1 downto k do
if maž > m
then begin
maž := m;
nr := i
end;
b := nr
end;
c) function c (m: array[k..n: integer] of real): integer;
var maž: real; { mažiausias elementas }
nr, { ir jo numeris }
i: integer;
begin
maž := m[k]; nr := k;
for i := k + 1 to n do
if maž >= m
then begin
maž := m;
nr := i
end;
c := nr
end;
Labai prašau padėkit.
Nu noreciau kad nors sitam pagelbetumet.
Yra toks uzdavinys:
Tik nemoku idėt masyvą. Įdėkit kas galit. Skaičiau apie jį, bet nedaina man. Paprašysių rytoi mokytojaus, kad išaiškintu man. O šiaip programa man rods gerai veikia. Labai prašau pagelbėkit. Šituos uždavinius turiu išprest ir pateikt iki šiandienos 24h.
Yra toks uzdavinys:
As jį išsprendžiau šit kaip:Senovės japonų kolendoriuje buvo naudojami 60-mečiai ciklai, sudaryti iš 12-mečių
įdėtinių ciklų. Įdėtinius ciklus žymėdavo spalvų pavadinimais: žalia, raudona, geltona, balta ir
juoda. Kiekvieno įdėtinio ciklo metai turėjo gyvūnų pavadinimus: žiurkės, karvės, tigro,
kiškio, drakono, gyvatės, arklio, avies, beždžionės, gaidžio, šuns ir kiaulės. (1984 metai –
žaliosios žiurkės metai – buvo naujo ciklo pradžia.)
Parašykite programą, kuri spausdintų įvestų mūsų eros metų pavadinimą pagal senovės
japonų kalendorių.
program metai;
const pm = 1984;
var m, isp, ig : integer;
begin
read (m);
if m > pm
then begin
ig := (m - pm) mod 60 mod 12;
isp := (m - pm) mod 60 div 12 + 1;
end
else begin
isp := (60 - (pm - m) mod 60) div 12 + 1;
ig := (60 - (pm - m) mod 60) mod 12;
end;
if isp = 0 then isp := isp + 1;
if ig = 0 then ig := ig + 1;
writeln (isp : 3, ig : 3);
end.
Tik nemoku idėt masyvą. Įdėkit kas galit. Skaičiau apie jį, bet nedaina man. Paprašysių rytoi mokytojaus, kad išaiškintu man. O šiaip programa man rods gerai veikia. Labai prašau pagelbėkit. Šituos uždavinius turiu išprest ir pateikt iki šiandienos 24h.
Kadangi šios temos pavadinimas Pascal, tai nusprendžiau parašyti čia, kad nereikėtų kurti naujos temos ir bereikalinga prišiukšlinti forumą.
Galbūt kas nors turite kokių nors e-books ar žinote iš kur parsisiųsti apie Pascal, aš renku tokią kaip kolekcija savo mokymuisi, praverstų bet kokia informacija. Tai gali būti Pascal forumaio, tutorial ir panašiai. Tiesą sakant google'inau ir nelabai ką radau.
Galbūt kas nors turite kokių nors e-books ar žinote iš kur parsisiųsti apie Pascal, aš renku tokią kaip kolekcija savo mokymuisi, praverstų bet kokia informacija. Tai gali būti Pascal forumaio, tutorial ir panašiai. Tiesą sakant google'inau ir nelabai ką radau.
http://www.gamezone.lt/diskusijos/viewtopic.php?t=3999 pasrink is cja.Ten keleta yra.
linux + nessus + nmap + exploit +enter = all doors open
Re: Pascal
Sveiki,
Gal kas galetu padet issprest uzadavini?
Parasykite algoritma, kuris kiekviena duotojo naturaliojo skaiciaus skaitmeni parasytu po du kartus. Pvz, jei duota 1993, tai rezultas turi buti 11999933.
Nesijuokit kad uzdavinys per lengvas... be to ji reikia ispresti su ciklu while.
jei nenorit sprest, tai galetumet uzvesti ant teisingo kelio
Gal kas galetu padet issprest uzadavini?
Parasykite algoritma, kuris kiekviena duotojo naturaliojo skaiciaus skaitmeni parasytu po du kartus. Pvz, jei duota 1993, tai rezultas turi buti 11999933.
Nesijuokit kad uzdavinys per lengvas... be to ji reikia ispresti su ciklu while.
jei nenorit sprest, tai galetumet uzvesti ant teisingo kelio
Re: Pascal
Nueini čia - http://www.ipc.lt/21z/mokymas/mokymopr/ ... askal3.htm , pasiskaitai apie ciklą while, pažiūri ir išnagrinėji keletą pavyzdžių, o paskui bandai rašyti savo algoritmą. Bandyk rašyti tol kol pavyks... Jei kas išspręs už tave - iš to naudos negausi jokios.Pascis rašė:Sveiki,
Gal kas galetu padet issprest uzadavini?
Parasykite algoritma, kuris kiekviena duotojo naturaliojo skaiciaus skaitmeni parasytu po du kartus. Pvz, jei duota 1993, tai rezultas turi buti 11999933.
Nesijuokit kad uzdavinys per lengvas... be to ji reikia ispresti su ciklu while.
jei nenorit sprest, tai galetumet uzvesti ant teisingo kelio
Re: Pascal uždaviniai
Sveiki. Po truputi mokausi paskalio is grigo knygos. padariau keleta uzdavinuku, gal galite pasakyti ar teisingai?
uzdaviniai:
1.1.1. Programa vidurkis pakeiskite taip, kad ji apskaièiuotu triju skaiciu aritmetini vidurki.
Jis skaicuojamas pagal formule
(a + b + c) / 3.
ats:
program vidurkis;
var a, b, c, vid: real;
begin
read(a, b, c);
vid := (a+b+c)/3;
writeln (vid: 8: 2)
end.
1.1.2. Vietoj daugtaskiu iterpkite tinkamus zodzius:
ats:
Paskalio kalbos sistemos terpėje esančiu redaktoriumi renkami ir taisomi programų tekstai. Paskalio kalbos tranlsiatorius arba kompiliatorius išverčia programos tekstą iš Paskalio kalbos į kompiuterio kalbą.
1.3.1. Ar teisinga sitokia aritmetinio vidurkio skaiciavimo programa?
program vidurkis3;
var a, vid: real;
begin
read(vid);
read(a);
vid := (vid + a)/2;
writeln(vid: 8: 2)
end.
ats: Programa teisinga. Kintamajui vid priskiriame reikšmę, lygiai taip pat, kaip ir kintamajui a. Prieskyros sakinyje bus įvykdytas veiksmas, t.y., bus sudėtos kintamųjų reikšmės ir padalintos iš 2. Atsakymą gausime su dviejais skaičiais po kablelio.
Kà paraðytø programos KasBus1 ir KasBus1, jeigu joms pateiktume tuos paèius
pradinius duomenis: 11 ir 255?
program KasBus1;
var a, b : integer;
begin
read(a);
read(b);
a := b;
b := a;
writeln(a, b: 4)
end.
program KasBus2;
var a, b, t: integer;
begin
read(a);
read(b);
t := a;
a := b;
b := t;
writeln(a, b: 4)
end.
ats:
Programoje KasBus1 bus išspausdintas reultatas - 255 ir 255. Kintamojo a reikšmė (11) yra priskiriama kintamojo b reikšmei (255), o kintamojo b (255) reikšmė yra priskiriama kintamojo a reikšmei, kuri yra taip pat 255 (ji tokia pasidar4 ivykdžius pirmą priskirimo sakinį).
Programoje KasBus2 bus išspausdintas toks pats rezultatas kaip ir programoje - KasBus1. Kintamasis t nieko nereiškia, mat jo nėra paskutiniame sakinyje, todėl reultate išvysime a ir b kintamųjų reikšmes, kurios bus tokios pačios.
1.3.3. Kà paraðys ðitokia programa?
program laipsnis;
var a : integer;
begin
a := 2;
a := a*a;
a := a*a;
a := a*a;
writeln(a)
end.
ats:
Programa parašys atsakymą - 256. Pirmajame priskirimo sakinyje, a kintamajam bus priskirta reikšmė 2, antrajame sakinyje bus atliktas veiksmas (2*2), o atsakymas priskirtas kitame sakinyje, kur vėl bus atliktas veiksmas (4*4). Šio veiksmo atsakymas bus priskirtas paskutiniajam veiksmui (a=16), todėl atlikus daugybos veiksmą (16*16) gausime 256.
kadangi mokausi savarankiskai noreciau suzinoti ar kolkas teisingai mastau ir galvoju?
uzdaviniai:
1.1.1. Programa vidurkis pakeiskite taip, kad ji apskaièiuotu triju skaiciu aritmetini vidurki.
Jis skaicuojamas pagal formule
(a + b + c) / 3.
ats:
program vidurkis;
var a, b, c, vid: real;
begin
read(a, b, c);
vid := (a+b+c)/3;
writeln (vid: 8: 2)
end.
1.1.2. Vietoj daugtaskiu iterpkite tinkamus zodzius:
ats:
Paskalio kalbos sistemos terpėje esančiu redaktoriumi renkami ir taisomi programų tekstai. Paskalio kalbos tranlsiatorius arba kompiliatorius išverčia programos tekstą iš Paskalio kalbos į kompiuterio kalbą.
1.3.1. Ar teisinga sitokia aritmetinio vidurkio skaiciavimo programa?
program vidurkis3;
var a, vid: real;
begin
read(vid);
read(a);
vid := (vid + a)/2;
writeln(vid: 8: 2)
end.
ats: Programa teisinga. Kintamajui vid priskiriame reikšmę, lygiai taip pat, kaip ir kintamajui a. Prieskyros sakinyje bus įvykdytas veiksmas, t.y., bus sudėtos kintamųjų reikšmės ir padalintos iš 2. Atsakymą gausime su dviejais skaičiais po kablelio.
Kà paraðytø programos KasBus1 ir KasBus1, jeigu joms pateiktume tuos paèius
pradinius duomenis: 11 ir 255?
program KasBus1;
var a, b : integer;
begin
read(a);
read(b);
a := b;
b := a;
writeln(a, b: 4)
end.
program KasBus2;
var a, b, t: integer;
begin
read(a);
read(b);
t := a;
a := b;
b := t;
writeln(a, b: 4)
end.
ats:
Programoje KasBus1 bus išspausdintas reultatas - 255 ir 255. Kintamojo a reikšmė (11) yra priskiriama kintamojo b reikšmei (255), o kintamojo b (255) reikšmė yra priskiriama kintamojo a reikšmei, kuri yra taip pat 255 (ji tokia pasidar4 ivykdžius pirmą priskirimo sakinį).
Programoje KasBus2 bus išspausdintas toks pats rezultatas kaip ir programoje - KasBus1. Kintamasis t nieko nereiškia, mat jo nėra paskutiniame sakinyje, todėl reultate išvysime a ir b kintamųjų reikšmes, kurios bus tokios pačios.
1.3.3. Kà paraðys ðitokia programa?
program laipsnis;
var a : integer;
begin
a := 2;
a := a*a;
a := a*a;
a := a*a;
writeln(a)
end.
ats:
Programa parašys atsakymą - 256. Pirmajame priskirimo sakinyje, a kintamajam bus priskirta reikšmė 2, antrajame sakinyje bus atliktas veiksmas (2*2), o atsakymas priskirtas kitame sakinyje, kur vėl bus atliktas veiksmas (4*4). Šio veiksmo atsakymas bus priskirtas paskutiniajam veiksmui (a=16), todėl atlikus daugybos veiksmą (16*16) gausime 256.
kadangi mokausi savarankiskai noreciau suzinoti ar kolkas teisingai mastau ir galvoju?
Dabar prisijungę
Vartotojai naršantys šį forumą: 0 ir 0 svečių