FPS uždaviniai (trys greiti uždavinukai)

Būtų šaunu jei kasnors galėtų padėti su FPS uždaviniais. Jei kas turėtų noro plačiau paaiškinti, skype: braskyte9 :)

1 Užduotis

Klaviatūra įvedamos skaičių poros. Pirmasis skaičius reiškia prekės kainą, o antrasis tos prekės

pirkėjo pasirinktą kiekį. Įvedamų skaičių srauto pabaiga nurodoma dviem skaičiais, lygiais nuliui.

Reikia sudaryti programą, kuri suskaičiuotų, kiek pirkėjas privalo sumokėti pinigų už savo

pirkinius. Išvesti į ekraną suskaičiuotą sumą ir kiek skirtingų prekių pasirinko pirkėjas (kiek skaičių

porų buvo įvesta).

2 Užduotis

Didžiausios reikšmės paieška skaičių sraute. Ciklo stabdymas įvedant 0 .

3 Užduotis

http://img269.imageshack.us/img269/9950/progk.png

1.

program kazkas;
var keikis, kaina, suma : real;
begin
readln(kiekis, kaina);
while (kiekis > 0) and (kaina>0) do
 begin
 suma := suma + kiekis * kaina;
 readln(kiekis, kaina);
 end;
writeln(suma);
end.

2.

program kazkas;
var sk, max : longint;
begin
max := -maxlongint;
readln(sk);
while (sk>0) do
 begin
 if sk > max then max := sk;
 readln(sk);
 end;
writeln(sk);
end.

1.

program kazkas;
var keikis, kaina, suma : real;
begin
readln(kiekis, kaina);
while (kiekis > 0) and (kaina>0) do
 begin
 suma := suma + kiekis * kaina;
 readln(kiekis, kaina);
 end;
writeln(suma);
end.

 

2.

program kazkas;
var sk, max : longint;
begin
max := -maxlongint;
readln(sk);
while (sk>0) do
 begin
 if sk > max then max := sk;
 readln(sk);
 end;
writeln(sk);
end.

1 uždaviny cikle while reiktų, pagal sąlygą, prirašyti eilutę s := s + 1 t.y. dar reikia prekių skaičių suskaičiuot.

2 uždavinį pats galas netoks. Writeln(max) o ne sk turėtų būti.

Kaip reikėtų pertvarkyti uždavinį, taip, kad galima būtų vykdyti su žinomo kartojimo ciklu (ciklas kartojamas 7 kartus).

Uždavinys:

program antra;

var a, b, i:integer;

begin

Writeln('Iveskite skaiciu');

Readln(a);

i:=0;

b:=a;

while a<>0 do

begin

if a>b

then b:=a

else b:=b;

Writeln('Iveskite skaiciu (noredami baigti iveskite nuli)');

Readln(a);

end;

Writeln('Didziausias skaicius ', b:2);

Readln;

end.

Jeigu gerai supratau, ko tau reikia, tai while a>0 reiktų keisti į for i := 1 to 7 do

gal galit padeti, prasau

4. Ūkininkas nukasė bulves ir supylė jas į B maišų. Reikia rasti, kiek kartų teks ūkininkui važiuoti į lauką norint parvežti visą derlių,jeigu vežime telpa ne daugiau kaip n maišų.

6. Stačiakampė dežė, kurios pagrindas yra AxB, O aukštis C., iki pusės pripilta vandens. Kiek galima į dėžę priberti vyšnių (kaip žinome jos skęsta) jeigu vyšnios skersmuo R mm ir vanduo neturi išbėgti? A, B, ir C, reikšmės ne mažesnės kaip 50 cm.

10.Petriukas spalio 12d. 11val. 30min. Nusipirko slides ir ėmė laukti sniego. Snigto pradėjo sausio 25d. 9val 14min. Kiek minučių Petriukas laukė sniego?