Masyvo sudarymas

Duotas masyvas X(n). Raskite didziausia ir maziausia elementus masyve.

kitas uzdavinys:Duotas masyvas A(n) ir skaicius y. suskaiciuokite kiek kartu skaicius y kartojasi masyve.

Prasau padekit, cia man nulems labai daug ka sitas dalykas,o su fps as nieko nesuprantu. jei galit parasykit kaip rasyt i programa, su visais kableliais ir pns.. dekoju :)) rasykit tik iki 14valandos, jei veliau - nevarkit nereikes, dekoju! :))

Antrai užduočiai, padariau kaip prašiai nesakiai masyvo dydžio tai nurodžiau nuo 1 iki 5, ir iš kur bus masyve skaičiai ar iš failo ar iš programos, tai programoj kiekvienam masyvui uždėjau atitinkama skaičių.

program Y_kartojasi;

type masyvas=array[1..5] of integer;

var ciklas,y,k:integer;

A_masyvas:masyvas;

begin

A_masyvas[1]:=1;

A_masyvas[2]:=40;

A_masyvas[3]:=4;

A_masyvas[4]:=10;

A_masyvas[5]:=5;

y:=10;

k:=0;

for ciklas:=1 to 5 do

begin

if(y=A_masyvas[ciklas])

then

begin

k:=k+1;

end;

end;

WriteLn(k);

Readln;

end.

EDIT: pirmos užduoties nedariau, nes daugiau reikia rašyti ;D bet gali ir pats pasistengti pasidaryti pasirašyk dvi funkcijas viena kuri išrikiuotu viska didėjimo tvarka kita kuri surikiuoja mažėjimo tvarka ir belieka parodyti pirmus skaičius, didžiausia ir mažiausia, sėkmes.

P.S šitais metais dar vis su Pascal reikia daryti programas egzaminui?

program didziausias_maziausias_masyvas;
var i, max, min : integer;
    x : array [1..5] of integer;

begin
x[1]:=1;
x[2]:=40;
x[3]:=4;
x[4]:=10;
x[5]:=5;
min := 32000;
max := -32000;
for i := 1 to 5 do begin
                  if x[i] <= min then min := x[i];
                  if x[i] >= max then max := x[i];
                  end;
writeln('Didziausias elementas masyve: ', max);
writeln('Maziausias elementas masyve: ', min);
end;
end.

Nepazadu, kad veiks, nes rasiau forume ir netikrinau. Teoriskai turetu veikt, o jei nera kaidu, tai ir praktiskai.

EDIT: pirmos užduoties nedariau, nes daugiau reikia rašyti ;D bet gali ir pats pasistengti pasidaryti pasirašyk dvi funkcijas viena kuri išrikiuotu viska didėjimo tvarka kita kuri surikiuoja mažėjimo tvarka ir belieka parodyti pirmus skaičius, didžiausia ir mažiausia, sėkmes.

 

P.S šitais metais dar vis su Pascal reikia daryti programas egzaminui?

Nieko ten daug rasyt nereikia, bludiji.

P.S. Taip ir reikes dar daug, daug metu :) tai pagrindai.

Antrai užduočiai, padariau kaip prašiai nesakiai masyvo dydžio tai nurodžiau nuo 1 iki 5, ir iš kur bus masyve skaičiai ar iš failo ar iš programos, tai programoj kiekvienam masyvui uždėjau atitinkama skaičių.

 

program Y_kartojasi;

type masyvas=array[1..5] of integer;

var ciklas,y,k:integer;

A_masyvas:masyvas;

begin

 

A_masyvas[1]:=1;

A_masyvas[2]:=40;

A_masyvas[3]:=4;

A_masyvas[4]:=10;

A_masyvas[5]:=5;

 

y:=10;

k:=0;

 

for ciklas:=1 to 5 do

begin

if(y=A_masyvas[ciklas])

then

begin

k:=k+1;

end;

end;

 

WriteLn(k);

Readln;

end.

 

EDIT: pirmos užduoties nedariau, nes daugiau reikia rašyti ;D bet gali ir pats pasistengti pasidaryti pasirašyk dvi funkcijas viena kuri išrikiuotu viska didėjimo tvarka kita kuri surikiuoja mažėjimo tvarka ir belieka parodyti pirmus skaičius, didžiausia ir mažiausia, sėkmes.

 

P.S šitais metais dar vis su Pascal reikia daryti programas egzaminui?

jo su pascaliu, o del uzdaviniu tikslumo tai gavau lapeli pirma pamoka su uzdaviniais, ji nusifotografavau telefonu ir sakiau kad ateisiu per 7 pamoka ;DD tai parasiau uzdavini taip kaip jis buvo pateiktas man ;) dar pasikonsultuosiu su kita informatikos mokytoja , isvis nebesuprantu kuriu velniu as ta informatika pasiemiau..... anyway, dekingas!! ismeginsiu visus variantus rasykit, dar laiko turiu :P

program didziausias_maziausias_masyvas;

var i, max, min,v,n: integer;

x : array [1..5] of integer;

begin

n:=5;

for i:=1 to n do begin

read(x);

end;

min :=x[1];

max :=x[1];

for i := 1 to 5 do begin

if min > x then min := x;

if max < x then max := x;

end; readln;

writeln('Didziausias elementas masyve: ', max);

writeln('Maziausias elementas masyve: ', min);

readln;

end.

program didziausias_maziausias_masyvas;
var i, max, min : integer;
    x : array [1..5] of integer;

begin
x[1]:=1;
x[2]:=40;
x[3]:=4;
x[4]:=10;
x[5]:=5;
min := 32000;
max := -32000;
for i := 1 to 5 do begin
                  if x[i] <= min then min := x[i];
                  if x[i] >= max then max := x[i];
                  end;
writeln('Didziausias elementas masyve: ', max);
writeln('Maziausias elementas masyve: ', min);
end;
end.

 

Nepazadu, kad veiks, nes rasiau forume ir netikrinau. Teoriskai turetu veikt, o jei nera kaidu, tai ir praktiskai.

 

 

 

Nieko ten daug rasyt nereikia, bludiji.

 

P.S. Taip ir reikes dar daug, daug metu :) tai pagrindai.

Na aš bučiau rašys kitaip tai todėl ir sakau daug :) bučiau su rikiavimu darias taip savotiškai :) na matai buvau girdėjęs, kad jau su c++ bus, bet turbūt gandai tik :)

program didziausias_maziausias_masyvas;
var i, max, min : integer;
    x : array [1..5] of integer;

begin
x[1]:=1;
x[2]:=40;
x[3]:=4;
x[4]:=10;
x[5]:=5;
min := 32000;
max := -32000;
for i := 1 to 5 do begin
                  if x[i] <= min then min := x[i];
                  if x[i] >= max then max := x[i];
                  end;
writeln('Didziausias elementas masyve: ', max);
writeln('Maziausias elementas masyve: ', min);
end;
end.

 

Nepazadu, kad veiks, nes rasiau forume ir netikrinau. Teoriskai turetu veikt, o jei nera kaidu, tai ir praktiskai.

nevisais atvejais veiks. jei mažiausias skaičius bus 32001, tai programa nekorektiškai dirbs arba jei didžiausias -32001. tokią problemą spręst galima iš pradžių min ir max nustačius pirmą masyvo elementą, o cikle bėgt nuo 2. ir šiaip resursai biškutuką susitaupo :)

Kodel jus paimat ir parasot viska ? Juk jis klausia ne kodo, o kaip tas padaroma algoritmiskai. Neturit ka veikt zmogai, ir sau gaisinat laika, ar temos autoriui kenkiat.

el ou el.

Kas sakė kad c++ reiks?

galima bet kokia kalba egzą laikyt.

Štai aš jį su Delphi žadu laikyt..