agnek21

na mes tokius per pamokas sprendziam, cia vieni is lengvesniu, nors dar 11-okai mes tai sunkiu ir neduoda :) teisingai pasake kad failo pavadinimas esmes nekeicia ar jis txt ar in ar out, cia kaip mokytojas uzduoti suformuluoja taip ir darom, su ugiais be proceduros darem, nes tiesiog jos dar nesimokeme tuo laiku, bet tavo kodas geras :)

1.Duomenu failo pirmoje eiluteje nurodyta (0 < n < 30) kiek is viso mokiniu mokosi klaseje.

Sekanciose eilutese isvardinti mokiniu ugiai.

Parasykite programa, kuri atvaizduotu mokiniu ugius ekrane.

2.Duomenu faile stulpeliu yra surasyti 9 skaiciai.

Parasyti programa, kuri atrastu:

1) Visu skaiciu suma.

2) Visu skaiciu vidurki.

3) Didziausia skaiciu.

4) Maziausia Skaiciu.

5) Isrinktu ir atspausdintu tik lyginius skaicius.

3.Tekstiniame faile Duomenys.in pirmojoje eilutėje yra nurodyta kiek bus skaičių n.

Toliau kitose eilutėse yra išvardinti visi skaičiai atskirose eilutėse.

Parašykite programą kuri apskaičiuotų ir tekstiniame faile rezultatai.out spausdintų:

Skaičių sumą;

Skaičių vidurkį;

Didžiausią skaičių;

Mažiausią skaičių;

Teigiamų skaičių kiekį;

Neigiamų skaičių kiekį;

Duomenys.in

11

-25

458

-655

-2

9

78

-9

78

997

-1

33

Rezultatai.out

Skaičių suma: 961

Skaičių vidurkis: 87.364

Didžiausias skaičius: 997

Mažiausias skaičius: -655

Iš viso teigiamų skaičių: 6

Iš viso neigiamų skaičių: 5

pora uzdavinuku nesudetingu, jei reiks dar ar reiks pagalbos sprendziant parasyk, mano jie visi padaryti :)

va be jokiu masyvu, profeduru funkciju, paanalizuok ir suprasi visai nesunku ;)

program Skaiciai;

var x, sks, g, skk, lyg, max, maxs, atb, a : longint;

begin

WriteLn('Iveskite pirmaji skaitmeni');

Readln (x);

While x <> 0 do

begin

sks := 0;

skk := 0;

lyg := 0;

atb := 0;

g := x;

while g > 0 do

begin

sks := sks + g mod 10;

g := g div 10;

end;

WriteLn ('Skaiciaus skaitmenu suma : ',sks);

g := x;

while g > 0 do

begin

if g mod 10 mod 2 <> 0 then skk := skk + SQR (g mod 10);

g := g div 10;

end;

WriteLn ('nelyginiø skaièiaus skaitmenø kvadratø suma : ',skk);

g := x;

while g > 0 do

begin

if g mod 10 mod 2 = 0 then g := g div 10;

begin

if g mod 10 mod 2 = 0 then lyg := lyg + 1;

g := g div 10;

end;

end;

if lyg = 0 then WriteLn ('Skaicius ', x, ' sudarytas is lyginiu skaitmenu');

g := x;

while g > 0 do

begin

atb := atb * 10 + g mod 10;

g := g div 10;

end;

WriteLn ('Skaicius atbulai : ',atb);

g := x;

max := 0; maxs := 0;

while g > 0 do

begin

a := g mod 10;

if max < a then max := a;

g := g div 10;

maxs := sks;

end;

maxs := maxs - max;

if max > maxs then

WriteLn ('Skaitmuo didesnis uz skaitmenu suma : ', max, ' Skaitmenu suma: ', maxs);

WriteLn;

WriteLn ('Iveskite sekanti skaiciu'); ReadLn (x);

end;

end

Aciu simonai, padejai :D

vistiek neranda :angry: tiek to gal mano mokytojas pades

O tu viską kur išsaugojai? Atskirame kataloge? O mokykloje randa duomenų failą?

susikuriau aplanka butent tai programai,ir ten issaugojau ir programa ir faila duomenu

Galėtum kodo fragmentą parodyti kur kreipiesi į rinkmeną?

program ûgiai;

var fr, fd : text;

i, n : integer;

suma, vvu, min, max, x : real;

begin

Assign (fd,'duom.bin'); reset(fd);

Assign (fr,'rez.bin'); rewrite(fr);

suma := 0;

max := 0;

min := 3;

ReadLn (fd, n);

ReadLn(fd, x);

for i := 1 to n do

begin

suma := suma + x;

if x > max

then max := x;

if x < min

then min := x;

end;

vvu := suma / n;

WriteLn (fr, 'vaiku viautinis ugis ', vvu:2:2,' didziausias ugis ', max:2:2,' maziausias ugis ', min:2:2);

Close(fd);

Close(fr);

end.

tokia programa dariau ir neranda nors mokykloje viskas gerai, kad issaugot programa, paskui susikurti tekstini failiuka kuri pavadint reik duom.bin, ten irasyti duomenis tai tiek zinau bet vistiek neveikia :\

turiu tokia bedele, man neranda paskalis rikmenos, seip viska gerai darau, sulei viskas gerai veikia viska ta pati namie darau ir neranda rinkmenos :( gal kas zinot kodel?

Tai gal šitaip? :)

 

program mas;
Type Masyvas1 = array [1..10] of integer;
Masyvas2 = array [1..10] of integer;
 Var A : Masyvas1;
     B : Masyvas2;
     i, j : integer;
begin
For i := 1 to 10 do
A[i] := i;

for i := 1 to 10 do
Begin
For j := 1 to 10 do
 begin
   B[i] := A[i] * j;
   Write(j,'*',A[i],'=',b[i],' ');
 end;
 writeln;
end;
Readln;
end.

taip, sitaip :) aciū ;)

mum su masyvu liepe tai pagal teorija kuria ismokom tai ismasciau taip, tik liko padaryt taip kad atsakyma grziai parasytu :)

program mas;

Type Masyvas1 = array [1..10] of integer;

Masyvas2 = array [1..10] of integer;

Var A : Masyvas1;

B : Masyvas2;

i, j : integer;

begin

For i := 1 to 10 do

A := i;

for i := 1 to 10 do

For j := 1 to 10 do

begin

B := A * j;

WriteLn (B, ' ');

end;

Readln;

end.

"PROGRAMAVIMAS PASKALIU"

G. Grigas

tenka man sita kniga paskaityt, naudojuosi ja jau :)

gal kas galite parasyti kaip padaryti, kad masyvas atspausdintu daugybos lentele, tik snd pradejom mokytis ir dar nko panasaus nedarem, gal kas galit padet? :unsure:

program uzduotis2a;

var ziedai, i, n, diena, m : longint;

begin

WriteLn('iveskite dienas');

Readln(n);

WriteLn('iveskite kiek ziedu gali tilpti visame ezere');

ReadLn(m);

diena := 0;

ziedai := 1;

for i := 1 to n do

ziedai := ziedai * 3;

WriteLn(ziedai);

while ziedai <= m / 2 do

begin

diena := diena + 1;

end;

WriteLn(diena);

ReadLn;

end.

kazko b nesigauna :unsure: tegul kasnors pataiso, nu nzn as daryciau taip bet as dar tik 11kl, :rolleyes:

http://programavimopamokos.net/index.php programavimo vidoe pamokos, man tai praverte, :) http://fliiby.com/file/837326/qp96re7w58.html , o cia vadovelis :D

program uzduotis1;

var zmones : integer;

y : real;

begin

WriteLn('iveskite valandas');

Readln(y);

zmones := 0;

while y > 0 do

begin

zmones := zmones + 2;

y := y - 0.5;

end;

WriteLn( zmones);

ReadLn;

end.

Labai ačiū Giedriau. :D as truputi perdariau ir gavau, manau, lengvesni varjanta. :rolleyes:

program Skaiciai;

var x, sks, g, skk, lyg, max, maxs, atb, a : longint;

begin

WriteLn('Iveskite pirmaji skaitmeni');

Readln (x);

While x <> 0 do

begin

sks := 0;

skk := 0;

lyg := 0;

atb := 0;

g := x;

while g > 0 do

begin

sks := sks + g mod 10;

g := g div 10;

end;

WriteLn ('Skaiciaus skaitmenu suma : ',sks);

g := x;

while g > 0 do

begin

if g mod 10 mod 2 <> 0 then skk := skk + SQR (g mod 10);

g := g div 10;

end;

WriteLn ('nelyginiø skaièiaus skaitmenø kvadratø suma : ',skk);

g := x;

while g > 0 do

begin

if g mod 10 mod 2 = 0 then g := g div 10;

begin

if g mod 10 mod 2 = 0 then lyg := lyg + 1;

g := g div 10;

end;

end;

if lyg = 0 then WriteLn ('Skaicius ', x, ' sudarytas is lyginiu skaitmenu');

g := x;

while g > 0 do

begin

atb := atb * 10 + g mod 10;

g := g div 10;

end;

WriteLn ('Skaicius atbulai : ',atb);

g := x;

max := 0; maxs := 0;

while g > 0 do

begin

a := g mod 10;

if max < a then max := a;

g := g div 10;

maxs := sks;

end;

maxs := maxs - max;

if max > maxs then

WriteLn ('Skaitmuo didesnis uz skaitmenu suma : ', max, ' Skaitmenu suma: ', maxs);

WriteLn;

WriteLn ('Iveskite sekanti skaiciu'); ReadLn (x);

end;

end.

taip dariau ir viska teisingai skaičuoja, man tavo pasirodė sudėtingai( nes as 11kl), nors pasidomėjau ir supratau, :rolleyes: AČIŪ UŽ PAGALBA!!!

gal kas galit parasyt programa iki antos uzduoties viska suprantu :rolleyes: Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų

kiekvieno skaičiaus skaitmenų sumą;

nelyginių skaičiaus skaitmenų kvadratų sumą;

tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų;

tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo;

skaičius perrašytus atbulai;

iki antros tai manau taip

var x, sum, ks, k : integer;

begin

WriteLn('iveskite skaicius');

Readln(x);

ns := 0;

sum := 0;

ks := 0;

j := 0;

while x > 0 do

begin

while x > 0 do

begin sum := sum + x mod 10;

x := x div 10;

end;

vis delto kas galit parasykit programa nes pasiklydau :unsure: , buciau labai dekinga :)

sveiki visi :rolleyes: turiu toki uzdavini; Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų

1kiekvieno skaičiaus skaitmenų sumą;

2nelyginių skaičiaus skaitmenų kvadratų sumą;

3tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų;

4tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo;

5skaičius perrašytus atbulai;

na cia pradzia visiskai aiski, taciau nzn kaip surasti lyginius ir nelyginius skaicius :( , o paskutinis tai kiek suprantu su div ir mod. seip cia su ciklu while ir salyga viska daryciau, bet uzsstrigau su 2 ir 3,,,

kas galit arba programa parasykit arba uzveskit ant kelio su 2, 3. aciu is anksto kas padetu ;)

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

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 ;)

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: