pascal klausimai

Trumpai apie uzdavinio salyga, ivedami taksi marsrutai, rei apskaiciuot kiek nuvaziavo, ir kiek uzdirbo. jei vaziavo maziau kaip 10 km, tai km kaina = 3.5 jei daugiau kaip 10 tai kaina = 2.8.

program taksi;
var
km : array [0..1000] of integer;
viso,i:integer;
begin
viso := 0;
  writeln('iveskite paeilui taksi marsrutus. pabaiga 0');
     while ( km[i] > 0 ) do read (km[i]);
        begin
        viso := viso + (km[i]);
        readln(km[i]);
        end;
     writeln('viso nuvaziavo: ',viso);
     readln;
end.

Dabar klausimas kodel vietoj viso nuvaziuoto kelio isveda atsakyma 0 ?

Del to kad visa kelia skaiciuoja net ne cikle. Taip pat i reiksme nenurodyta ir visu masyvo nariu reiksmes visada bus 0 nebent jas pakeisi, todel sito ciklo net neatliks. Ir isvis siulau net neneaudot tau cia masyvo.

Tai kaip ištaisyt ta cikla? Nes ivairiausiu variantu galvojau ir niekaip nesigavo.

Tai kaip ištaisyt ta cikla? Nes ivairiausiu variantu galvojau ir niekaip nesigavo.

program taksi;
var viso,km:integer;
   kaina  :real;
begin
viso := 0;
  writeln('iveskite paeilui taksi marsrutus. pabaiga 0');
     readln(km);
     repeat
        viso := viso + km;
        if km>10 then
           kaina:=kaina + (km*2.80)
               else
                   kaina:=kaina + (km*3.20);
        readln(km);
     until km=0;
writeln('viso nuvaziavo: ',viso);
writeln('uzdirbo: ',kaina:3:2, 'lt');
readln;
end.

tik pasinagrinek kas ir kodel, nes man pavyzdziai geriausiai padedavo

km := 0;
viso := 0;
while (km > -1) do
   begin
       viso := viso + km;
read(km);
   end;

Trumpai apie uzdavinio salyga, ivedami taksi marsrutai, rei apskaiciuot kiek nuvaziavo, ir kiek uzdirbo. jei vaziavo maziau kaip 10 km, tai km kaina = 3.5 jei daugiau kaip 10 tai kaina = 2.8.

program taksi;
var
km : array [0..1000] of integer;
viso,i:integer;
begin
viso := 0;
  writeln('iveskite paeilui taksi marsrutus. pabaiga 0');
     while ( km[i] > 0 ) do read (km[i]);
        begin
        viso := viso + (km[i]);
        readln(km[i]);
        end;
     writeln('viso nuvaziavo: ',viso);
     readln;
end.

 

Dabar klausimas kodel vietoj viso nuvaziuoto kelio isveda atsakyma 0 ?

program taksi;
var
 viso, uzdirbo, kaina, km: real;
begin
 viso := 0;
 writeln('iveskite paeilui taksi marsrutus. pabaiga 0');
 read(km);
 if km >= 10 then kaina := km * 3.5
  else kaina := km * 2.8;
 while ( km > 0 ) do
  begin
   viso := viso + km;
   uzdirbo := uzdirbo + kaina;
   read(km);
   if km >= 10 then kaina := km * 3.5
    else kaina := km * 2.8;
   end;
 writeln('viso nuvaziavo: ',viso:3:3, ' km');
 writeln('viso uzdirbo: ',uzdirbo:3:2,' Lt');
end.

Be masyvo, paprastai, kad aišku būtų..

Gal yra koks pascal uždavinynas ar kasnors panašaus? Nes ieškodamas radau tik uzdavinių forumuose ir pnš.

http://www.licejus.l...uzdaviniai/LTU/

http://forumas.ktu.l....php?metai=2011

http://77.79.24.138:8000/index.html

http://projecteuler....ection=problems

http://www.licejus.l...uzdaviniai/LTU/

http://forumas.ktu.l....php?metai=2011

http://77.79.24.138:8000/index.html

http://projecteuler....ection=problems

Na šitie olimpiadu uždaviniai yra man persunkus. :blink: