Pascal Programavimas

Reikia padaryti tokį uždavinį :)

Parašyti programą:

1. Trys krepšinio komandos dalyvavo turnyre. Pirma komanda surinko p1 taškų, antra komanda - p2 taškų, o trečia -p3 taškų (taškai - dviženklis skaičius).

Stengiuosi atkakliai mokytis šios programavimo kalbos :) Tačiau dar neseniai pradėjau, gal galite užvesti ant kelio kokį kodą turėčiau čia naudoti ir kokias komandas? :)

Ačiū.

Jeigu gerai supratau...

program Krepsinis;
var x, y, p1, p2, p3 : integer;
begin
 p1 := 10*x + y; // pirmos komandos taškai
 p2 := 10*x + y; // antros komandos taškai
 p3 := 10*x + y; // trečios komandos taškai
 Readln;
end.

10*x + y - tai dviženklis skaičius.

Nesupratau uzdavinio esmes, arba ne pilna nurasiai arba nesupratau.

1. Trys krepšinio komandos dalyvavo turnyre. Pirma komanda surinko p1 taškų, antra komanda - p2 taškų, o trečia -p3 taškų (taškai - dviženklis skaičius).

Kuri komanda surinko mažiausiai taškų? (šis uždavinys privalomas)

Nuskaitai taškus ir tada lygini kuri komanda turi mažiausiai taškų. Jeigu taškai ne dviženkis sk. tada nevykdai programos.

if ((p1 > 9) or (p2 > 9) or (p3 > 9)) then

...

If p1 > p2 then

min := p2;

if p2 > p1 then

min := p1

ir pan, tik mano sintaksėj čia bus bėdų man atrodo.

Parašiau tokia:

program KomandosTaskai;

 

var

p1,p2,p3: Integer;

 

begin

Readln(p1);

Writeln('Pirmoji komanda surinko tasku ',p1);

Readln(p2);

Writeln('Antroji komanda surinko tasku ',p2);

Readln(p3);

Writeln('Trecioji komanda surinko tasku ',p3);

if p1 > p2 then

if p2 > p3 then

writeln('Trecioji Krepsinio komanda Surinko maziausiai tasku')

else

writeln('Antroji Krepsinio komanda Surinko maziausiai tasku');

if p1 < p2 then

writeln('Pirmoji Krepsinio komanda Surinko maziausiai tasku');

readln;

readln;

end.

O ką daryt dėl to Dviženklių? Galvoju ar tiks, kad nieko daugiau nedarysiu šitam kodui :D

Štai, greitai tokią parašiau

program krepsinis;


 var p1, p2, p3: integer;
begin
 WriteLn('iveskite pelnytus taskus');
 ReadLn(p1, p2, p3);
 if p1<p2 then if p2<p3 then WriteLn('p1 maziausiai ', p1)
                        else WriteLn('p3 maziausiai',p3)

          else WriteLn ('p2 maziausiai', p2);
end.

program KomandosTaskai;
var min,mint,i:integer;
var t:array[1..3] of integer;
begin
Writeln('Kiek pirmoji komanda surinko tasku?');
Readln(t[1]);
Writeln('Kiek antroji komanda surinko tasku?');
Readln(t[2]);
Writeln('Kiek trecioji komanda surinko tasku?');
Readln(t[3]);
min:=100;
 if (t[1] < 10) or (t[2] <10) or (t[3]<10) or (t[1]>99) or (t[2]>99) or (t[3]>99) then Writeln('Tasku skaicius turi buti dvizenklis!')
 else
 begin
 for i:=1 to 3 do if t[i]<min then
 begin
 min:=t[i];
 mint:=i;
 end;
 WriteLn('Maziausiai tasku surinko:',mint,' komanda');
 end;
 Readln;
end.

 program skaiciavimai;
 var p1, p2, p3 : integer;
 begin
 WriteLn('Iveskite pirmos komandos taskus');
 Readln(p1);
 WriteLn('Iveskite antros komandos taskus');
 Readln(p2);
 WriteLn('Iveskite trecios komandos taskus');
 Readln(p3);
 If p1<p2 then
 If p1<p2 then
 WriteLn('maziausiai surinko pirma komanda');
 If p2<p1 then
 if p2<p3 then
 WriteLn('maziausiai surinko antra komanda');
 If p3<p1 then
 If p3<p2 then
 WriteLn('maziausiai surinko trecia komanda');
 ReadLn; ReadLn;
end.

Laimingo naudojimo :) Tikiuosi padejau.

program KomandosTaskai;
var min,mint,i:integer;
var t:array[1..3] of integer;
begin
Writeln('Kiek pirmoji komanda surinko tasku?');
Readln(t[1]);
 Writeln('Kiek antroji komanda surinko tasku?');
Readln(t[2]);
 Writeln('Kiek trecioji komanda surinko tasku?');
Readln(t[3]);
min:=100;
  if (t[1] < 10) or (t[2] <10) or (t[3]<10) or (t[1]>99) or (t[2]>99) or (t[3]>99) then Writeln('Tasku skaicius turi buti dvizenklis!')
  else
  begin
  for i:=1 to 3 do if t[i]<min then
  begin
  min:=t[i];
  mint:=i;
  end;
  WriteLn('Maziausiai tasku surinko:',mint,' komanda');
  end;
  Readln;
end.

Dėkui, man tai su Ciklais sudėtinga.

Num num pradedančiųjų uždavinį išspręsk su masyvais :) Tikrai mokytoja patikės, jog tu padarei :)

Num num pradedančiųjų uždavinį išspręsk su masyvais :) Tikrai mokytoja patikės, jog tu padarei :)

Turiu kitą dar pasidaręs :) kur pats dariau :)

Turiu kitą dar pasidaręs :) kur pats dariau :)

Pasikoreguok pagal save, daug pavyzdziu gavai :D

Arba šitaip.

program taskai;
 var kuri,i,min,p1,p2,p3:integer;
begin
 readln(p1);
 readln(p2);
 readln(p3);
 min:=p1;
 kuri:=1;
 if p2<min then
 Begin
   kuri:=2;
   min:=p2;
 End;
 if p3<min then
 Begin
   min:=p3;
   kuri:=3;
 End;
 writeln('Maziausiai tasku surinko ',kuri,' komanda');
 Readln;
end.

Nepamirškit jog kelios ar net visos komandos gali surinkti po tiek pat taškų...