Keli Pascal uždaviniai

Programuoti pradėjau visai neseniai ir iškart susidūriau su uždavinių problemomis... Niekaip nesugebu jų padaryti taip, kad jie veiktų. Gal yra žmonių kurie galėtų man juos išspręsti? Uždaviniai skamba taip:

1.Pirkėjas, apžiūrėjęs septynis automobilius, nusprendė, kad visi automobiliai, kainuojantys daugiau negu 50 000Ly-brangūs. Parašykite programą nustatančią, kokių automobilių pirkėjas apžiūrėjo daugiau- brangių ar pigių. Pradiniai duomenys - 7 automobilių kainos , išreikštos tūkst Lt.

2.Moksleivis su tėvais susitarė, kad už kiekvieną informatikos dešimtuką ar devintuką jis gaus po penkis litus. Parašykite programą, apskaičiuojančią kiek visos pinigų "Uždirbo" moksleivis. Pradiniai duomenys - klaviatūra įvedami penki informatikos dalyko pažymiai.

Antrąjį uždavinį bandžiau pasidaryti taip, bet deja nieko nesigavo. (čia yra tik pradėtas rašyti kodas iš naujo, pradžia jau yra kuri man meta errorą:

program informatikos_paz;
var p1 , p2 , p3 , p4 , p5 , pinigai: integer;
begin
 WriteLn('Iveskite penkis ifnorfmatikos pazymius ir programa parodys kiek uzdirbo moksleivis');
 read (p1 , p2 , p3 , p4 , p5);
 if (p1=9 or 10) then (p1 = 5)
 else
 (p1 < 9) then (p1 = 0);
 pinigai:= p1 + p2 + p3 + p4 + p5;
 writeln ('mokinys uzdirbo : ' , pinigai);
 Readln;
end.

pirmam tai įvestą rekšmė tikrink ar jis žiūrėjo didesne nei 50K lt ar mažesne. ir tada prie sumos dėk jeigu didesnė tai plius jeigu mažesne tai nepliusink. pvz

Ivesta: 20000, 45000,50000,51000,59000,100000,5000.
if 20000>50000 then suma= suma +1;
else suma=suma; 

ir panašiai. gal nelabai tinkamai paaiškinau, nu bet manau esme suprasi :)

antram uždavinį tavo klaida tą manyčiau, jog tu paprašai, kad įvesti sk p1, o vėliau jį priskirį 5 arba 0. geriau pasidaryk, dar vieną integer kokį nors pvz, kad ir penki. ir tada jeigu p=9 arba 10 integer penki = 5.pvz:

if (p1=9 or 10) then (penki = 5)
 else
 (p1 < 9) then (penki = 0);
 pinigai:= penki; 

tą patį daryk ir su kitais p2 ir p3.

P.S. daryk cikle viską lengviau gausis :)

pirmam tai įvestą rekšmė tikrink ar jis žiūrėjo didesne nei 50K lt ar mažesne. ir tada prie sumos dėk jeigu didesnė tai plius jeigu mažesne tai nepliusink. pvz

Ivesta: 20000, 45000,50000,51000,59000,100000,5000.
if 20000>50000 then suma= suma +1;
else suma=suma; 

ir panašiai. gal nelabai tinkamai paaiškinau, nu bet manau esme suprasi :)

 

 

antram uždavinį tavo klaida tą manyčiau, jog tu paprašai, kad įvesti sk p1, o vėliau jį priskirį 5 arba 0. geriau pasidaryk, dar vieną integer kokį nors pvz, kad ir penki. ir tada jeigu p=9 arba 10 integer penki = 5.pvz:

if (p1=9 or 10) then (penki = 5)
 else
 (p1 < 9) then (penki = 0);
 pinigai:= penki; 

 

tą patį daryk ir su kitais p2 ir p3.

P.S. daryk cikle viską lengviau gausis :)

Ačiū už atsakymą :0 Pavyko uždavinį atilikti kol dar nemačiau tavo paaiškinimo :) Štai kaip kodas atrodo:

program bapkes;
var pinigai , p1 , p2 , p3 , p4 , p5: integer;
begin
 WriteLn('Iveskite penkis skaicius kad suzinotumete kiek mokinys uzdirbo (uz 10 ar 9 jis gauna 5lt)');
 read(p1 , p2 , p3 , p4 , p5);
 if p1 >= 9 then p1:=5
 else
 if p1 < 9 then p1:=0;
   if p2 >= 9 then p2:=5
 else
 if p2 < 9 then p2:=0;
   if p3 >= 9 then p3:=5
 else
 if p3 < 9 then p3:=0;
   if p4 >= 9 then p4:=5
 else
 if p4 < 9 then p4:=0;
   if p5 >= 9 then p5:=5
 else
 if p5 < 9 then p5:=0;
 pinigai:= p1 + p2 + p3 + p4 + p5;
 writeln ('Tiek mokinys uzdirbo pinigu: ' ,  pinigai);
 Readln;
 Readln;
end.

Manau, šiek tiek paprastesnis variantas:

program pinigai;
   var p1, p2, p3, p4, p5, pinigai : integer;
begin
 WriteLn('Įveskite 5 pažymius');
 ReadLn(p1,p2,p3,p4,p5);
 if (p1 = 10) or (p1 = 9) then pinigai += 5;
 if (p2 = 10) or (p2 = 9) then pinigai += 5;
 if (p3 = 10) or (p3 = 9) then pinigai += 5;
 if (p4 = 10) or (p4 = 9) then pinigai += 5;
 if (p5 = 10) or (p5 = 9) then pinigai += 5;
 WriteLn('Moksleivis turės: ',pinigai,' litų');
 Readln;
end.