pascal (naujas klausimas 5nr.)

Uzduosiu cia savo klausimus apie pascal.

program Bevardë1;

var n : real;

begin

WriteLn ('Tiesiogine tvarka');

for n:= 1 to 10 do

WriteLn (n);

end.

 

Paprastas kodas... ir uzkniso meta toki eror'a ir nesuprantu del ko ....

 

"5,5 (eil. stulp.) - Ordinal expression expected"

integer pabandyk.

O "integer" tipas netiktų tau šiuo atveju?

Myliu as jus chebra :) Dq

program Bevardë1;

var n, s, l : integer;

begin

WriteLn ('ivesk skaiciu');

ReadLn (s);

for n:= 1 to s do

begin

WriteLn ('Iveskite skaiciu');

ReadLn (l);

l := l + 10;

end;

WriteLn (l);

end.

Taigi dar vienas klausimas. Ivedu s viskas ok. Bet kai ivedu l reiskmes kelis kartus tik pirmas l uzsiskaito. tarkim s ivedu 3, tai ciklas viks tris kartus... ivedu tris l kintamus tarkim 10, 10, 10. Bet atsakymas bus 20... nes paskutiniu dvieju l neuzskaito. kaip istasiyt?

program Bevardë1;

var n, s, l : integer;

begin

WriteLn ('ivesk skaiciu');

ReadLn (s);

for n:= 1 to s do

begin

WriteLn ('Iveskite skaiciu');

ReadLn (l);

l := l + 10;

end;

WriteLn (l);

end.

 

Taigi dar vienas klausimas. Ivedu s viskas ok. Bet kai ivedu l reiskmes kelis kartus tik pirmas l uzsiskaito. tarkim s ivedu 3, tai ciklas viks tris kartus... ivedu tris l kintamus tarkim 10, 10, 10. Bet atsakymas bus 20... nes paskutiniu dvieju l neuzskaito. kaip istasiyt?

Kiekviena kart iš naujo nuskaitomas l, todėl senos reikšmės nelieka ir atsakymas visada bus paskutinė l reikšmė + 10:)

Tai as suprantu, bet ka reikia pridurti kad sena reiskme liktu.

Tai as suprantu, bet ka reikia pridurti kad sena reiskme liktu.

Gali dar vieną kintamajį panaudoti:

program Bevardë1;
var n, s, l,x : integer;
begin
WriteLn ('ivesk skaiciu');
ReadLn (s);
for n:= 1 to s do
 begin
  WriteLn ('Iveskite skaiciu');
  ReadLn (x);
  l := l + x + 10;
 end;
WriteLn (l);
end.

program zvejys;

var a, b, c, d : integer;

Begin

ReadLn (b);

d:= 0;

for a:=1 to b do

begin

WriteLn ('ivesk skaiciu');

ReadLn ©;

d := d + c;

end;

WriteLn (d);

end.

Tarkim matot sia paprasta programele virsuj. Ciklas kartojasi tiek kartu kiek ivedu pries pati cikla. Man reikia, kad jis kartotus tol, kol paciame cikle neiveisiu skaiciaus 00. t.y. kai c reiskme bus lygi 00 tada ciklas sustos kartojasis ir uzsibaigs. Kaip tai padaryti? Nes neismastau, ka mastyti nemoke manes to, o liepe uzduoti padaryt :)

ai dar klausimas del ifo.. kur beda?

ReadLn (g);

if g < 0

then u := u + 1

v := v + 1 // ----

else t := t + 1

v := v + 1;

syntax error, ; expected but identifier V found (kazkas tokio). Klaida metama kur prie bruksniuku

Visų pirma tai išmok dėti kodą į kodo tagus

 tavo kodas 

 program zvejys;
var a, b, c, d : integer;
Begin
d:= 0; c:=1;
While c<>00 do
begin
  WriteLn ('ivesk skaiciu');
  ReadLn(c);
  d := d + c;
end;
WriteLn (d);
readln;
end.

O antras turėtų būti ne taip?

if g < 0
then
Begin
 u := u + 1;
 v := v + 1; // ----
end
else
Begin
 t := t + 1;
 v := v + 1;
end;

 

ai dar klausimas del ifo.. kur beda?

 

ReadLn (g);

if g < 0

then u := u + 1

v := v + 1 // ----

else t := t + 1

v := v + 1;

 

syntax error, ; expected but identifier V found (kazkas tokio). Klaida metama kur prie bruksniuku

Pasižiūrėk sintaksę.

Pvz.:

if x > 1 then
begin
  x := 1;
  y := 2;
end
else
begin
 x := 2;
 y := 1;
end;

4. Klausimas:

program Zvejys;
var a, b, c, d, l : integer;
   e : integer;
begin
c:= 0;
l:= 0;
a:= 1;
b:= 1;
e:= 0;
while ( a <> e) and (b <> e) do
 begin
  ReadLn (a);
   if a <> 0
     then c := c + a
     else a := e;
  ReadLn (b);
   if b <> 0
     then l := l + b
     else b := e;
  d := d + 1;
 end;
WriteLn (l, ' ', c);
end.

Krc, yra taip. Suvedus 0 ir 0 programa turi uzsibaigti. Bet kai suvedu 0 ir 10 arba 0 ir 10 (cia kaip pvz) programa uzsidaro, nros turetu toliau veikti, kame beda?

Readln gale nera.

Suvedus pirmą skaičių 0 darys šitą eilutę

else a := e;

a tampa lygiu e tai reiškia,kad a=0 ko pasekoje pagal tavo ciklo sąlyga

while ( a <> e) and (b <> e) do

Ciklas nutraukiamas.

Ai dq :) supratau kame reikalas.