Pereiti prie turinio

pascal (naujas klausimas 5nr.)


Rekomenduojami pranešimai

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?

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Redagavo Tadziokaz
Nuoroda į pranešimą
Dalintis kituose puslapiuose

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;

Redagavo C_Linas
Nuoroda į pranešimą
Dalintis kituose puslapiuose

 

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;

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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?

Redagavo Tadziokaz
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...