Paskalio uždaviniai

Sveiki, gal galite padėti išspręsti 3 užduotis susijusias su masyvu?

1. Parašykite programą:

a) su procedūra 8 elementų masyvui užpildyti elementų indeksais;

b) ir su procedūra masyvo elementus išspausdinti vienoje eilutėje.

2. Parašykite programą:

c) su procedūra 12 elementų masyvui užpildyti klaviatūra renkamais sveikaisiais skaičiaus;

d) ir procedūra šį masyvą spausdinti vienoje eilutėje;

e) ir procedūra kitoje eilutėje spausdinti masyvo elementus atvirkščia tvarka.

3. Antrąją programą papildyti procedūra, kuri suskaičiuotų masyvo elementų, didesnių už 5, sumą skaičiavimo.

Iš anksto dėkoju už pagalbą.

Ir kokios PAGALBOS tau reikia? Sakyk, kas nesigauna, padėsim ;) .

Esu žalias programavime su Paskaliu. Pvz: 1 užduoties a) net nesuprantu užduoties, kaip, ką, nuo ko man pradėt daryti? :|

Jeigu tu esi žalias, tu negalėjai IŠKARTO gauti užduotis su masyvais.

Pradžiai išmok pradmenis ;)

Esu žalias programavime su Paskaliu. Pvz: 1 užduoties a) net nesuprantu užduoties, kaip, ką, nuo ko man pradėt daryti? :|

pirma apsirašyk masyvą, po to nuskaityk ivestus skaičius. Jie nieks neišpres, išspresiu vėliau tau .:)

Matai pas mane mokykloje labai atmestinai mokina Paskalį, o paskui iškart duoda užduotis ir spręsk kaip nori. Pasinaudosiu tavo patarimu ir mokysiuos viską nuo pagrindų. Bet ar galėtum išspręsti šias užduotis (jei aišku turi laiko), nes gausiu už jas pažymį ir būtų pavyzdys ateičiai? :)

{Parašykite programą:
c) su procedūra 12 elementų masyvui užpildyti klaviatūra renkamais sveikaisiais
skaičiaus;
d) ir procedūra šį masyvą spausdinti vienoje eilutėje;
e) ir procedūra kitoje eilutėje spausdinti masyvo elementus atvirkščia tvarka.}
program Buzduotis2;
type masyvas = array[1..12] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 12 do
   readln(A[i]);
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 12 do
       write(A[i],' ');
   writeln;
end;
{-----------------prodedura spausdinti atvirkscia tverka-----------------------}
procedure atvirksciai;
var i : integer;
begin
   for i := 12 downto 1 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 atvirksciai;
 Readln;
end.

{1. Parašykite programą:
a) su procedūra 8 elementų masyvui užpildyti elementų indeksais;
b) ir su procedūra masyvo elementus išspausdinti vienoje eilutėje.}
program Buzduotis1;
type masyvas = array[1..8] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 8 do
   A[i] := i;
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 8 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 Readln;
end.

as taip suprantu pirma uzduoti :rolleyes: nzn ar gerai :)

{3. Antrąją programą papildyti procedūra, kuri suskaičiuotų masyvo elementų,
didesnių už 5, sumą skaičiavimo.}
program uzduotis2;
type masyvas = array[1..12] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 12 do
   readln(A[i]);
end;
{------------------procedura didesniu uz 5 sumai skaicuoti---------------------}
procedure sum;
var i, suma : integer;
begin
   suma := 0;
   for i := 1 to 12 do
       if A[i] > 5
           then suma += A[i];
   writeln('didesniu uz 5 suma yra ',suma);
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 12 do
       write(A[i],' ');
   writeln;
end;
{-----------------prodedura spausdinti atvirkscia tverka-----------------------}
procedure atvirksciai;
var i : integer;
begin
   for i := 12 downto 1 do
       write(A[i],' ');
   writeln;
end;
begin
 uzpildymas;
 spausdinimas;
 atvirksciai;
 sum;
 Readln;
end.

jei reiks pakomentuot galiu, klausk jei ko nesuprasi ;)

{Parašykite programą:
c) su procedūra 12 elementų masyvui užpildyti klaviatūra renkamais sveikaisiais
skaičiaus;
d) ir procedūra šį masyvą spausdinti vienoje eilutėje;
e) ir procedūra kitoje eilutėje spausdinti masyvo elementus atvirkščia tvarka.}
program Buzduotis2;
type masyvas = array[1..12] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 12 do
   readln(A[i]);
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 12 do
       write(A[i],' ');
   writeln;
end;
{-----------------prodedura spausdinti atvirkscia tverka-----------------------}
procedure atvirksciai;
var i : integer;
begin
   for i := 12 downto 1 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 atvirksciai;
 Readln;
end.

 

{1. Parašykite programą:
a) su procedūra 8 elementų masyvui užpildyti elementų indeksais;
b) ir su procedūra masyvo elementus išspausdinti vienoje eilutėje.}
program Buzduotis1;
type masyvas = array[1..8] of integer;
var i : integer;
   A : masyvas;
{-------------------procedura uzpildyti masyva---------------------------------}
procedure uzpildymas;
var i : integer;
begin
   for i := 1 to 8 do
   A[i] := i;
end;
{------------------procedura spausdinti vienoje eiluteje-----------------------}
procedure spausdinimas;
var i : integer;
begin
   for i := 1 to 8 do
       write(A[i],' ');
end;
begin
 uzpildymas;
 spausdinimas;
 Readln;
end.

as taip suprantu pirma uzduoti :rolleyes: nzn ar gerai :)

Ačiū, agnek21. ;)

jei reiks pakomentuot galiu, klausk jei ko nesuprasi ;)

Dar kartą ačiū. ;) Pirmiausia pats bandysiu perskaitęs teoriją apie masyvus gilintis į užduotis, o jeigu nepavyks, būtinai tavęs paklausiu. ;)