Programavimas paskaliu (Cinklas)

Sveiki,

taigi kadangi neturėjau galimybės lankyti Informatikos pamokų jie pradėjo naują temą pavadinimu Cinklas, ir vnž kažkur knygą nukišęs negaliu pasiskaityt kaip ką ten daryt nes dabar visiškai nedašunta, iš klasės irgi neturiu ko paklaust nes patys nemoka (reiktų bent ant teigiamo parašyt :)), vnž būtų gerai kad moką tą ciklą daryt būtų gerai kad paaiškintą kaip išpręst porą uždavinių.

Kokia bus kintamojo x reikšmė atlikus sakinių seką:

x:=35;

y:=6;

while x mod y <> 0 do

x:= x+1;

x:=x+y+x div y;

Šio pratimo atsakymas 48. Esmė tame kad reiktų kad kas paaiškintu kaip ką čia daryt kad gaut tą 48 atsakymą.

Dar keletą uždavinių:

n:=3;

x:=9;

while n <> x do

x:= x-2

kitas:

n:=12;

x:16;

while x > = n do

begin

n:=n+1

x:=x-2

end;

Būtų gerai kad kas paašikintu šituos tris uždavinius. Ačiū.

x := 35;
y := 6;
while x mod y <> 0 do
x:= x + 1;
x := x + y + x div y;

Ciklas vykdomas tol, kol x dalinant iš y nelieka liekanos, t.y. liekana = 0, vadinasi ciklas ivykdomas tik viena karta, todėl x reikšmė pakeičiama į 36.

n := 3;
x := 9;
while n <> x do
x:= x - 2

Ciklas vykdomas tol, kol n nelygus x. Ciklas bus įvykdytas 3 kartus. Rezultate x = 3, n = 3.

n := 12;
x := 16;
while x >= n do
begin
	n := n + 1
	x := x - 2
end;

Ciklas įvykdomas 2 kartus. Rezultate n = 14, x = 12.

Žodžiu ciklo viduje esantys veiksmai vykdomi tol kol yra tenkinama ciklo salyga.

Kad nekurti naujos temos tai pasiklausiu čia :) Šimtą metų su paskaliu nedirbęs, tai dabar iškilo tokia problema. Gal galit kiekvieną burbulo rikiavimo algoritmo eilutę paaiškint kas joje daroma? :)

procedure Burbulas(var a:array of integer; N:integer);
var i,j,t: integer;
begin
for i:=N downto 1 do
 for j:=2 to i do
if a[j-1]>a[j] then
  begin
	t:=a[j-1];
	a[j-1]:=a[j];
	a[j]:=t;
  end
end;

Kad nekurti naujos temos tai pasiklausiu čia :) Šimtą metų su paskaliu nedirbęs, tai dabar iškilo tokia problema. Gal galit kiekvieną burbulo rikiavimo algoritmo eilutę paaiškint kas joje daroma? :)

 

procedure Burbulas(var a:array of integer; N:integer);
var i,j,t: integer;
begin
for i:=N downto 1 do
 for j:=2 to i do
if a[j-1]>a[j] then
  begin
	t:=a[j-1];
	a[j-1]:=a[j];
	a[j]:=t;
  end
end;

Einama per visa sąrašą ir lyginamas elementas su sekančiu. Jei elementas didesnis(ar mažesnis, pagal sąlygą) jie apkeičiami vietomis. Taip kelis kartus einama per visą sąrašą, kol galiausiai perėjus per visą sąrašą nebuvo apkeistas nė vienas elementas, tada sąrašas surikiuotas.

Bėja tavo duotam pavyzdyje nėra tikrinimo ar sąrašas surikiuotas, tad jis suksis iki pabaigos, nesvarbu ar sąrašas jau surikiuotas ar ne.

Sveiki uzdarbieciai nepatinegikit man padeti , nes as visiskai zalias programavime gal galit kas padaryti sias 10kl programas paprasciau budu , nes veleu mokytojui nemokesiu paaiskint :) tikrai parasysiu gera atsiliepima :

1.programa kuri skaiciuoja intervalo [m;n] skaiciu suma ir ju kvadratu suma

2.programa kuri skaiciuoja intervalo [n;m] lyginiu skaiciu suma

3.programa kuri skaiciuoja lyginiu skaiciu suma ir ju kvadratu suma.

4.programa kuri skaiciuoja intervalo [1;n] skaiciu suma ir sandauga.

5.Programuotojui moka a litu atlyginima.Darbdavys pazadejo kiekviena menesi padidinti atlyginima x litu, parasykite programa (butinai naudodami cikla for), kuri suprastu:

a)koks atlyginimas bus po metu

b)koks atlyginimas bus po n menesiu

c)koks atlyginimas bus po m metu.

Skalpelis, čia tau pirma ir antra, jei dar reikia. Kitas tingiu. Iš šitų dviejų, jei bent kiek supranti kaip veikia, pasidarysi nesunkiai trečia ir ketvirta (reikia sukeist kai kurias eilutes, kai kur pakeist formules).

program inervalas_1;
var i, n, m, sum, kvsum : integer;
begin
sum := 0;
kvsum := 0;
write('Iveskite intervala: ');
read(n, m);
for i := n to m do begin
				   sum := sum + i;
				   kvsum := kvsum + i*i;
				   end;
writeln('Skaiciu ',n,' ir ',m,' intervalo suma lygi ', sum,'.');
writeln('Skaiciu ',n,' ir ',m,' kvadratu intervalo suma lygi ', kvsum,'.');
end.

program inervalas_2;
var i, n, m, sum : integer;
begin
sum := 0;
write('Iveskite intervala: ');
read(n, m);
for i := n to m do begin
				   if i mod 2 = 0 then sum := sum + i;
				   end;
writeln('Lyginiu skaiciu ',n,' ir ',m,' intervalo suma lygi ', sum,'.');
end.