FPS programavimas, padekite.

1.Trys sokeju poros dalyvavo konkurse. Komisija jas ivertino dvizenkliais balais: pirma pora m1 balu,

antra pora m2 balu, o trecia pora m3 balu. Kuri pora surinko daugiausiai balu?

Raskite sios poros balu skaiciaus skaitmenu suma.

2.Trys krepsinio komandos dalyvavo turnyre. Pirma komanda surinko p1 rasku, antra komanda surinko p2 tasku,

trecia komanda surinko p3 tasku(surinko dvizenkli skaiciu tasku). Maziausiai surinkusios komandos tasku skaiciu

isskaidykite skaitmenimis ir surasykite juos atvirkstine tvarka(jei skaicius ab, tai uzrasykite ba)

3.Turiu m suma pinigu. Reikia nupirkti daug dovanu. Galeciau pirkti kaledinius senelius(vieneto kaina k Lt) arba

suvenyrines eglutes(vieneto kaina s Lt), arba dekoratyvines zvakes(vieneto kaina d Lt).Uz visa turima suma

pirksiu pigiausias vienodas dovaneles. Kiek nuoirksiu dovanu ir kiek pinigu liks?

4.Duotas trizenklis skaicius. parasykite programa, kuri rastu sio skaiciaus skaitmenu suma, jei jis dalus is 3,

ir skaitmenu sandauga, jei jis nera dalus is 3.

5.Duoti du skaiciai A ir B. Parasykite programa, kuri surastu siu skaiciu suma, jei A daugiau uz B arba surastu

siu skaiciu sandauga, jei A maziau arba lygu uz B.

Sveiki, kas galite padekit ispresti siuos 5 uzdavinius, vargstu jau apie 2 valandas bet vis islenda kokia klaidele... Reikejo anksciau mokintis kad nereiketu dabar vargti.

Didelis aciu

pirmas uzd:

program pirmas;
var m1, m2, m3: integer;
begin
  read(m1, m2, m3);

  if (m1 > m2) and (m1 > m3) then
  begin
  writeln ((m1 mod 10) + (m1 div 10));
  end
  else if (m2 > m1) and (m2 > m3) then
  begin
  writeln ((m2 mod 10) + (m2 div 10));
  end
  else if (m3 > m1) and (m3 > m2) then
  begin
  writeln ((m3 mod 10) + (m3 div 10));
  end;
  readln();
end.

antras uzd:

program antras;
var p1, p2, p3, a, b: integer;
begin
  read(p1, p2, p3);

  if (p1 < p2) and (p1 < p3) then
  begin
  b := p1 mod 10;
  a := p1 div 10;
  writeln(b,a);
  end
  else if (p2 < p1) and (p2 < p3) then
  begin
  b := p2 mod 10;
  a := p2 div 10;
  writeln(b,a);
  end
  else if (p3 < p1) and (p3 < p2) then
  begin
  b := p3 mod 10;
  a := p3 div 10;
  writeln(b,a);
  end;
  readln();
end.

trecias:

program trecias;
var m, k, s, d: integer;
begin
  read (m, k, s, d);

  if (k < s) and (k < d) then
  begin
  writeln(m div k);  //kiek nupirkta
  writeln(m mod k);  //kiek liko pinigu
  end
  else if (s < k) and (s < d) then
  begin
  writeln(m div s);
  writeln(m mod s);
  end
  else if (d < s) and (d < k) then
  begin
  writeln(m div d);
  writeln(m mod d);
  end;
  readln();
end.

ketvirtas: *gali but ir kitokiu sprendimu *

program ketvirtas;
var n, a, b, c: integer;
begin
  read(n);
  a := n div 100;
  b := n mod 100 div 10;
  c := n mod 10;

  if (frac(n/3) = 0) then
  begin
  writeln(a+b+c);
  end
  else
  begin
  writeln(a*b*c);
  end;
  readln();
end.

Penktas uzd:

program penktas;
var a, b: real;
begin
  read(a, b);
  if (a > b) then writeln (a+b)
  else if (a <= b) then writeln (a * b);
  readln();
end.

baigta ;)

Didelis didelis dėkui Sawliooz. Vat dėl to man ir patinka šitas forumas, kad čia daug gerų ir protingų žmonių. ;)

Didelis didelis dėkui Sawliooz. Vat dėl to man ir patinka šitas forumas, kad čia daug gerų ir protingų žmonių. :)

ner uz ka :)

ketvirtam uzdaviny frac() funkcija grazina trupmenine skaiciaus dali pvz.: frac(1.5314) = 0.5314

jei kabinesis mokytojas atsakyk taip ;)

EDIT: katik sumasciau kad frac galima pakeist i

if ((n div 3) = (n/3)) then

netestavau

Cia kazkas panasaus kaip pascalis ? :)

Cia kazkas panasaus kaip pascalis ? :)

Taip, čia paskalis :D

Cia kazkas panasaus kaip pascalis ? :)

FPS - Free Pascal. Daugiau info: http://ims.mii.lt/fps/lt/about/index.html

Man atrodo, kad ketvirtam uzdavini paprasciausiai galima if (n mod 3 = 0)...

Tada mokytoja tikrai nesikabines, nors aisku ir su frac() galima, bet tada programa daugiau vietos uzims (nors kas cia tas 1 ar 2 kb siais laikais :) ) ir mokytojai labai itarima gali sukelti, ypac jei nelabai gerai mokaisi siaip. :D

ka daugausiai galima padaryt su fps? tik matematinius veiksmus ar ir zaidimus kokius ar ka?

Žaidimų su paskaliu tikrai nepadarysi...

Žaidimų su paskaliu tikrai nepadarysi...

Dėja bet tu neteisus ;) pirmame kurse pats 2d žaidimus kūriau :) o ir buvo tokių kurie 3d užkabinę buvo :)

Per FPS (kuris dažniausiai naudojamas mokyklose) ištiesų net primityviausio žaidimo nepavyks padaryti, nes ten nėra grafinių tvarkyklių (kurios yra Turbo Pascalyje) :S

sveiki visi :rolleyes: turiu toki uzdavini; Klaviatūra įvedami natūralieji skaičiai (įvedimo pabaiga sk. 0) Parašyti programą, kuri atspausdintų

1kiekvieno skaičiaus skaitmenų sumą;

2nelyginių skaičiaus skaitmenų kvadratų sumą;

3tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų;

4tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo;

5skaičius perrašytus atbulai;

na cia pradzia visiskai aiski, taciau nzn kaip surasti lyginius ir nelyginius skaicius :( , o paskutinis tai kiek suprantu su div ir mod. seip cia su ciklu while ir salyga viska daryciau, bet uzsstrigau su 2 ir 3,,,

kas galit arba programa parasykit arba uzveskit ant kelio su 2, 3. aciu is anksto kas padetu ;)

Jeigu padalinus skaičių su "mod" iš dviejų gauni 0, reiškia skaičius lyginis, bet koks kitas rezultatas reikštų kad skaičius nelyginis. Pvz.: b bus lygus 0.

b := 12 mod 2;

vis delto kas galit parasykit programa nes pasiklydau :unsure: , buciau labai dekinga :)