Pascal

Program T1;

var a, b: integer;

begin

a := 20; b := 4;

while a > 2 * b do

begin

b := b + 2;

a := a - b;

end;

writeln(a,' ',b);

end.

Program T2;

var s, a, b, c : integer;

begin

s := 3; b := 6; c := 4;

for a := s + c to b + c do

begin

s := s + a;

c := c + 1;

end;

writeln(s,' ',c);

end.

Program T3;

var s, a, b, c : integer;

begin

s := 0; a := 1; b :=1; c := a + b;

while (s < 20) and (c < 10) do

begin

s := s + c;

a := b;

b := c;

c := a + b;

end;

writeln(s,' ', a,' ', b,' ', c);

end.

Program T4;

var t : boolean;

s, a, b ,c : integer;

begin

t := TRUE;

s := 0; a := 3; b := 3;

for c := a to a + b do

begin

if t then s := s + c

else s := s + a + b;

a := a + 1;

t := not t;

end;

writeln(t,' ',a,' ',s);

end.

Jai kas galetu padet tai noreciau kad parodytumet kaip atlikt veiksmus kad gauti atsakymus.

Imk visas eilutes iš eilės ir daryk ant kokio popieriaus lapo, gali ir mintinai jeigu sugebi. Kito būdo manau nėra.

Nu bet man kazko nesigauna atsakymai tokie kokie turetu gautis tai gal kas galetu parodyt visa ta veiksmu eiga tu programu?

Tai gal tiesiog reikia pascalį pasimokyt daugiau? :) Susiformatuok kodą, kad aiškiau matytųsi kas kiek kartų vykdoma. Tada rašyk skaičius ir žiūrėk po kiekvieno ciklo kokias reiškmes gauni. Sakykim pirmą:

Program T1;
var a, b: integer;
begin
 a := 20; b := 4;
 while a > 2 * b do
 begin
b := b + 2;
a := a - b;
 end;
 writeln(a,' ',b);
end.

Ciklą vykdom, kor a didesnis už 2*b. Pradžioje a=20, 2*b=2*4=8, 20 daugiau už 8 taigi ciklą vykdom vieną kartą. Dabar b=4+2=6, o a=20-6=14. Taigi turim a=14, 2*b=2*6=12, 14 vis dar daugiau už 12 taigi ciklą vykdom dar kartą. b=6+2=8, o a=14-8=6. Dabar jau a=6, ir 2*b=2*8=16, 6 ne daugiau už 16, taigi ciklo nebevykdysim ir išvesim turimas reikšmes: a=6, b=8.

Daviau pavyzdį, dabar taip analizuokis likusias programas. Sėkmės.:)